(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    584916,      16261]
NotebookOptionsPosition[    567697,      16019]
NotebookOutlinePosition[    568109,      16036]
CellTagsIndexPosition[    568066,      16033]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.6870176155750523`*^9, 3.6870176168779373`*^9}, {
  3.722087989965823*^9, 3.722087990100855*^9}, {3.831989119905649*^9, 
  3.831989121111746*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"434b25cc-c541-48b1-b239-2b9ee6289bcf"],

Cell[CellGroupData[{

Cell["Action and EOMS", "Title",
 CellChangeTimes->{{3.687017630125065*^9, 
  3.687017633028063*^9}},ExpressionUUID->"1607a1e3-b0eb-468d-8737-\
db6480abe9f6"],

Cell[CellGroupData[{

Cell["Pacotes e defini\[CCedilla]\[OTilde]es", "Subsection",
 CellChangeTimes->{{3.8322613866244726`*^9, 
  3.8322614041262712`*^9}},ExpressionUUID->"9c2fd5d9-439f-45f8-b836-\
e70f694d43cc"],

Cell["Load the xAct packages", "Text",
 CellChangeTimes->{{3.6984256053863783`*^9, 
  3.698425609526906*^9}},ExpressionUUID->"c2206045-1cf4-4472-a58f-\
b569c0231c28"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "xAct`xTensor`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "xAct`xPert`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "xAct`xCoba`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "xAct`xTras`"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.605440373708837*^9, 3.60544041930961*^9}, {
  3.68693858023107*^9, 3.6869385894863787`*^9}, {3.686938786143264*^9, 
  3.6869387989083757`*^9}, {3.698580464372858*^9, 3.698580467443396*^9}, {
  3.8321685312297473`*^9, 3.8321685326854057`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"591e6f6a-550a-4bdf-a924-ceca156b6f94"],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276165927058*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"dc920ace-d1fd-42a5-ad93-fe3561bff9a3"],

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.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276165929061*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a338e4bc-3bdb-4e28-b08d-d5edd9f342b7"],

Cell[BoxData["\<\"CopyRight (C) 2003-2020, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276165932063*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6c852d99-3a98-4bf9-9247-ad5849cddff3"],

Cell[BoxData["\<\"Connecting to external MinGW executable...\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166063182*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"bb9d0658-f9e6-4838-abd0-597ec6b44bce"],

Cell[BoxData["\<\"Connection established.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166069692*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6eac7ae6-6a4e-450b-8baa-96da7b5694b7"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166072695*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"b3f747c9-0f40-4007-8ff6-34ecc4545a20"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xTensor`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.1.5\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2021", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm[
  "Package xAct`xTensor`  version ", "1.1.5", ", ", {2021, 2, 28}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761660746965`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"e3be5a9e-3300-48f1-87b7-a8273b7e51cf"],

Cell[BoxData["\<\"CopyRight (C) 2002-2021, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166075697*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"d4a79c2f-6d94-46d1-be38-83f59c8c292a"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761660766983`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"d930f3b9-25ea-40f9-b4ec-dc5233826052"],

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.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761660786996`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6ecfa372-d7e7-4f0d-8a41-ae9041d15733"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166080702*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"8a7d8e6d-688d-4e92-9506-b3e8fe654ed7"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166269993*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"45bef0c5-0364-4284-821b-262c84abea52"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xPert`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.0.6\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm["Package xAct`xPert`  version ", "1.0.6", ", ", {2018, 2, 28}],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662719946`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"6af477b8-9791-40e8-856d-170d43da0bc3"],

Cell[BoxData["\<\"CopyRight (C) 2005-2020, David Brizuela, Jose M. \
Martin-Garcia and Guillermo A. Mena Marugan, under the General Public \
License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166272995*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"80240924-d3c8-4b6f-bf5c-3110c5b4e6bb"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166274997*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"d7c6bd0a-e311-4bb5-8039-4b9e01b828ac"],

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.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662759986`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"089fb394-ad73-4fe9-9058-b134f6d59aa3"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662780013`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"f1a04859-d305-4f23-8477-c041e6fb6eb1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Variable \"\>", "\[InvisibleSpace]", "$PrePrint", 
   "\[InvisibleSpace]", "\<\" assigned value \"\>", "\[InvisibleSpace]", 
   "ScreenDollarIndices"}],
  SequenceForm[
  "** Variable ", $PrePrint, " assigned value ", 
   xAct`xTensor`ScreenDollarIndices],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662790008`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"2f59350b-06f1-4d14-a8b3-2257ff67a7de"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Variable \"\>", "\[InvisibleSpace]", "$CovDFormat", 
   "\[InvisibleSpace]", "\<\" changed from \"\>", 
   "\[InvisibleSpace]", "\<\"Prefix\"\>", "\[InvisibleSpace]", "\<\" to \"\>",
    "\[InvisibleSpace]", "\<\"Postfix\"\>"}],
  SequenceForm[
  "** Variable ", xAct`xTensor`$CovDFormat, " changed from ", "Prefix", 
   " to ", "Postfix"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662810025`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"3b870893-961c-4e49-af34-a239f9bb5d63"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Option \"\>", "\[InvisibleSpace]", "AllowUpperDerivatives", 
   "\[InvisibleSpace]", "\<\" of \"\>", "\[InvisibleSpace]", "ContractMetric",
    "\[InvisibleSpace]", "\<\" changed from \"\>", "\[InvisibleSpace]", 
   "False", "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "** Option ", xAct`xTensor`AllowUpperDerivatives, " of ", 
   xAct`xTensor`ContractMetric, " changed from ", False, " to ", True],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662820024`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"ca0eabf4-ee38-41c9-9e79-fbf3f8391f60"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Option \"\>", "\[InvisibleSpace]", "MetricOn", 
   "\[InvisibleSpace]", "\<\" of \"\>", "\[InvisibleSpace]", "MakeRule", 
   "\[InvisibleSpace]", "\<\" changed from \"\>", "\[InvisibleSpace]", "None",
    "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "All"}],
  SequenceForm[
  "** Option ", xAct`xTensor`MetricOn, " of ", xAct`xTensor`MakeRule, 
   " changed from ", None, " to ", All],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761662840047`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"7bf87b46-e657-4a72-bdfc-a4043bbeb253"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Option \"\>", "\[InvisibleSpace]", "ContractMetrics", 
   "\[InvisibleSpace]", "\<\" of \"\>", "\[InvisibleSpace]", "MakeRule", 
   "\[InvisibleSpace]", "\<\" changed from \"\>", "\[InvisibleSpace]", 
   "False", "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "** Option ", xAct`xTensor`ContractMetrics, " of ", xAct`xTensor`MakeRule, 
   " changed from ", False, " to ", True],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166286007*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"3c43b410-8883-4b17-9534-f3e96416395e"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166326044*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"463552f6-c684-4e0e-9086-e9b82fea23c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xCoba`  version \"\>", 
   "\[InvisibleSpace]", "\<\"0.8.6\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2021", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm["Package xAct`xCoba`  version ", "0.8.6", ", ", {2021, 2, 28}],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166328046*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"b3918d9c-3338-4f25-b773-fd03acdabf61"],

Cell[BoxData["\<\"CopyRight (C) 2005-2021, David Yllanes and Jose M. \
Martin-Garcia, under the General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761663290462`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"afb71a6e-0022-4b8b-9c43-96c90515c2f1"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166330047*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"aa54351a-1333-4d50-99ef-06c4dbf5449c"],

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.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761663310475`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"31a8d363-5f73-4627-a8c2-9a178ef7a32f"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.83227616633305*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"216562e5-e6f9-4c7c-9650-e899884345b6"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761667929487`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"3cc96c2b-7494-4dd6-b423-e95385f683a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`Invar`  version \"\>", 
   "\[InvisibleSpace]", "\<\"2.0.5\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2013", ",", "7", ",", "1"}], "}"}]}],
  SequenceForm["Package xAct`Invar`  version ", "2.0.5", ", ", {2013, 7, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761667949505`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"56424f41-d532-447b-a364-c94de1303480"],

Cell[BoxData["\<\"CopyRight (C) 2006-2020, J. M. Martin-Garcia, D. Yllanes \
and R. Portugal, under the General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166795951*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"0db18eed-a055-4ff1-a5d9-449b15eef481"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "sigma", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", "constant symbol ", 
   xAct`Invar`sigma, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761667969513`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"efb4370c-f4c8-435c-bb97-1a4b7ccdfb2a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "dim", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", "constant symbol ", 
   xAct`Invar`dim, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761667989545`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"34a586df-b39d-45ed-bcc4-31f5505e5d76"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Option \"\>", "\[InvisibleSpace]", "CurvatureRelations", 
   "\[InvisibleSpace]", "\<\" of \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\" changed from \"\>", "\[InvisibleSpace]", "True",
    "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "** Option ", xAct`xTensor`CurvatureRelations, " of ", xAct`xTensor`DefCovD,
    " changed from ", True, " to ", False],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166799955*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"bde3e31e-df5f-4a5f-be21-47435d3d21d9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Variable \"\>", "\[InvisibleSpace]", 
   "$CommuteCovDsOnScalars", "\[InvisibleSpace]", "\<\" changed from \"\>", 
   "\[InvisibleSpace]", "True", "\[InvisibleSpace]", "\<\" to \"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "** Variable ", xAct`xTensor`$CommuteCovDsOnScalars, " changed from ", True,
    " to ", False],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761668009553`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"897a35f7-4e78-437a-b92b-6280598e510f"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761668359876`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"edfd59ca-5c2d-44c6-9013-168d95b3f0a5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`SymManipulator`  version \"\>", 
   "\[InvisibleSpace]", "\<\"0.9.4\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2016", ",", "11", ",", "29"}], "}"}]}],
  SequenceForm[
  "Package xAct`SymManipulator`  version ", "0.9.4", ", ", {2016, 11, 29}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761668369894`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"24a6c345-dfeb-4950-b7f7-b7c11629ef7f"],

Cell[BoxData["\<\"CopyRight (C) 2011-2016, Thomas B\[ADoubleDot]ckdahl, under \
the General Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.83227616683899*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"e05d1f65-78dc-42d9-b539-c9943af73786"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761668890357`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"8603ed1c-ea9a-4177-87ee-5d68b1cf6f45"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xTras`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.4.2\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2014", ",", "10", ",", "30"}], "}"}]}],
  SequenceForm["Package xAct`xTras`  version ", "1.4.2", ", ", {2014, 10, 30}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276166891038*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"15f4ca53-f9c8-4691-bb0b-1cf4d866a219"],

Cell[BoxData["\<\"CopyRight (C) 2012-2014, Teake Nutma, under the General \
Public License.\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761668920383`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"fca14e35-0018-4b76-bd2d-b5328499ddec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Variable \"\>", "\[InvisibleSpace]", "$CovDFormat", 
   "\[InvisibleSpace]", "\<\" changed from \"\>", 
   "\[InvisibleSpace]", "\<\"Postfix\"\>", 
   "\[InvisibleSpace]", "\<\" to \"\>", 
   "\[InvisibleSpace]", "\<\"Prefix\"\>"}],
  SequenceForm[
  "** Variable ", xAct`xTensor`$CovDFormat, " changed from ", "Postfix", 
   " to ", "Prefix"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.83227616689304*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"c8951a69-10ee-45b5-98b4-2e5b56a10c6e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** Option \"\>", "\[InvisibleSpace]", "CurvatureRelations", 
   "\[InvisibleSpace]", "\<\" of \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\" changed from \"\>", "\[InvisibleSpace]", 
   "False", "\[InvisibleSpace]", "\<\" to \"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "** Option ", xAct`xTensor`CurvatureRelations, " of ", xAct`xTensor`DefCovD,
    " changed from ", False, " to ", True],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761668950405`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"9475fb23-40d2-4d27-b0e1-ad3dc78460b3"]
}, Open  ]],

Cell[BoxData[
 TemplateBox[{
  "PacletManager`CreatePaclet","badpi",
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"C:\\\\\\\\\\\\\\\\ProgramData\\\\\\\\\\\\\\\
\\Mathematica\\\\\\\\\\\\\\\\Applications\\\\\\\\\\\\\\\\xAct\\\\\\\\\\\\\\\\\
Spinors\\\\\\\\\\\\\\\\PacletInfo.wl\\\\\\\"\\\"}]\\) is not a properly \
formatted PacletInfo.m or PacletInfo.wl file. You can use the VerifyPaclet \
function to get more detailed information about the error.\"",2,4,1,
   19329015541492154661,"Local","PacletManager`CreatePaclet"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{{3.831989111556225*^9, 3.8319891284846783`*^9}, 
   3.831989363503434*^9, 3.832166840416173*^9, {3.8321685299108324`*^9, 
   3.8321685375867047`*^9}, {3.832251853369151*^9, 3.8322518653806505`*^9}, {
   3.832252490905209*^9, 3.8322524986197953`*^9}, 3.8322525584524183`*^9, 
   3.8322527413772383`*^9, 3.8322535980984144`*^9, {3.832253651746181*^9, 
   3.8322536673994513`*^9}, 3.832256967030992*^9, 3.8322603154312677`*^9, 
   3.832261278092245*^9, 3.832261415922778*^9, 3.8322627532062397`*^9, 
   3.8322645316300354`*^9, 3.832276167047014*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"963d6481-3c0c-4b6b-8273-8578cc88aadf"],

Cell[BoxData[
 TemplateBox[{
  "PacletManager`CreatePaclet","badpi",
   "\"\\!\\(\\*RowBox[{\\\"\\\\\\\"C:\\\\\\\\\\\\\\\\ProgramData\\\\\\\\\\\\\\\
\\Mathematica\\\\\\\\\\\\\\\\Applications\\\\\\\\\\\\\\\\xAct\\\\\\\\\\\\\\\\\
Spinors\\\\\\\\\\\\\\\\PacletInfo.wl\\\\\\\"\\\"}]\\) is not a properly \
formatted PacletInfo.m or PacletInfo.wl file. You can use the VerifyPaclet \
function to get more detailed information about the error.\"",2,4,2,
   19329015541492154661,"Local","PacletManager`CreatePaclet"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{{3.831989111556225*^9, 3.8319891284846783`*^9}, 
   3.831989363503434*^9, 3.832166840416173*^9, {3.8321685299108324`*^9, 
   3.8321685375867047`*^9}, {3.832251853369151*^9, 3.8322518653806505`*^9}, {
   3.832252490905209*^9, 3.8322524986197953`*^9}, 3.8322525584524183`*^9, 
   3.8322527413772383`*^9, 3.8322535980984144`*^9, {3.832253651746181*^9, 
   3.8322536673994513`*^9}, 3.832256967030992*^9, 3.8322603154312677`*^9, 
   3.832261278092245*^9, 3.832261415922778*^9, 3.8322627532062397`*^9, 
   3.8322645316300354`*^9, 3.832276168347972*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a0a9eda1-c96e-474e-a235-5539f358e433"],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761687228165`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"a0c4dd4b-b938-4621-b1f5-842bb001d08a"],

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.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.8322761687248187`*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"2ea8f6dc-2186-481a-8d97-d61055dda333"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print",
 CellChangeTimes->{
  3.6869385912787867`*^9, 3.686938787865513*^9, 3.6869396817485037`*^9, 
   3.6869401830960417`*^9, 3.686941171444933*^9, 3.687017639992963*^9, 
   3.6870200047080927`*^9, 3.687020200118555*^9, 3.687098711389475*^9, 
   3.6870989476356173`*^9, 3.697978127318605*^9, 3.6979782199798203`*^9, 
   3.698061120911009*^9, 3.698156450584745*^9, 3.698166356232582*^9, 
   3.6984132694874*^9, 3.698490902092717*^9, 3.6985804740863533`*^9, 
   3.698580513446591*^9, 3.698746428137022*^9, {3.6998743895265083`*^9, 
   3.699874403189165*^9}, 3.707499859136249*^9, 3.717861273564785*^9, {
   3.8319891115402117`*^9, 3.8319891277029676`*^9}, 3.8319893627237253`*^9, 
   3.8321668394553623`*^9, {3.832168529138789*^9, 3.832168536830702*^9}, {
   3.8322518532803955`*^9, 3.8322518645744457`*^9}, {3.83225249074465*^9, 
   3.8322524971852922`*^9}, 3.832252557000521*^9, 3.8322527399483433`*^9, 
   3.832253596611714*^9, {3.832253651569036*^9, 3.8322536666253076`*^9}, 
   3.832256966188113*^9, 3.8322603146412396`*^9, 3.8322612773767595`*^9, 
   3.8322614151315327`*^9, 3.832262752521469*^9, 3.8322645306291127`*^9, 
   3.832276168729823*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"7de21db0-cc4f-4f9f-8368-746f8fc4c9a3"]
}, Open  ]]
}, Open  ]],

Cell["Define the metric etc..", "Text",
 CellChangeTimes->{{3.6869385610771513`*^9, 3.686938564884067*^9}, {
   3.686939667935576*^9, 3.686939676447874*^9}, {3.698425619383354*^9, 
   3.6984256218955936`*^9}, 
   3.720283350145059*^9},ExpressionUUID->"b35abd82-2f1d-455f-87a4-\
c6c8823ea69f"],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"DefManifold", "[", 
    RowBox[{"M", ",", "4", ",", 
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "h", ",", 
       "i", ",", "j", ",", "k", ",", "l"}], "}"}]}], "]"}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"DefMetric", "[", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"g", "[", 
      RowBox[{
       RowBox[{"-", "a"}], ",", 
       RowBox[{"-", "b"}]}], "]"}], ",", "CD", ",", 
     RowBox[{"SymbolOfCovD", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<|\>\"", ",", "\"\<\[Del]\>\""}], "}"}]}], ",", 
     RowBox[{"PrintAs", "->", "\"\<g\>\""}]}], "]"}], ";"}],
  FontSize->14], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"$Pre", "=", "ScreenDollarIndices"}], ";"}],
  FontSize->14], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"SetOptions", "[", 
    RowBox[{"ContractMetric", ",", 
     RowBox[{"AllowUpperDerivatives", "\[Rule]", "True"}]}], "]"}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"Unprotect", "[", "IndexForm", "]"}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"IndexForm", "[", 
     RowBox[{"LI", "[", "x_", "]"}], "]"}], ":=", 
    RowBox[{"ColorString", "[", 
     RowBox[{
      RowBox[{"ToString", "[", "x", "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "]"}]}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"Protect", "[", "IndexForm", "]"}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"DefMetricPerturbation", "[", 
    RowBox[{"g", ",", "metpert", ",", "\[Epsilon]"}], "]"}], ";"}],
  FontSize->14], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{
    RowBox[{"PrintAs", "[", "metpert", "]"}], "^=", "\"\<h\>\""}], ";"}],
  FontSize->14]}], "Input",
 CellChangeTimes->{{3.605195255970133*^9, 3.6051952559717417`*^9}, 
   3.605351117547423*^9, 3.686938569314673*^9, {3.686938652771813*^9, 
   3.6869386530268583`*^9}, {3.686938711690826*^9, 3.686938776398155*^9}, {
   3.686939659098444*^9, 3.686939690173978*^9}, 3.6993748890786324`*^9, {
   3.8322569459240055`*^9, 3.8322569577984366`*^9}, {3.8322602871365566`*^9, 
   3.8322603012647505`*^9}, 3.832261381201929*^9},
 FontSize->18,
 CellLabel->"In[5]:=",ExpressionUUID->"a84b1f9c-ced7-478e-8d82-f756b933188a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefManifold", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"manifold \"\>", "\[InvisibleSpace]", "M", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefManifold, ": Defining ", "manifold ", $CellContext`M,
    ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276168893002*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"582a1393-30f9-4f1f-ba85-fd4e6994fe49"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefVBundle", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vbundle \"\>", "\[InvisibleSpace]", "TangentM", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefVBundle, ": Defining ", 
   "vbundle ", $CellContext`TangentM, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761688970056`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"353151e7-8be8-4e00-9b08-487277dd1d35"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric metric tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"g", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric metric tensor ", 
   $CellContext`g[-$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689290347`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"e81a477f-10ad-415b-aeaa-bef9079eabfd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric tensor \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"epsilong", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric tensor ", 
   $CellContext`epsilong[-$CellContext`a, -$CellContext`b, -$CellContext`c, \
-$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689300356`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"96dcba0f-4ebd-4517-bcfe-8da86c562704"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tetrametric \"\>", "\[InvisibleSpace]", 
   RowBox[{"Tetrag", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tetrametric ", 
   $CellContext`Tetrag[-$CellContext`a, -$CellContext`b, -$CellContext`c, \
-$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276168932038*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"54c04633-ce77-4c9d-9032-7fe0ee2873b7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tetrametric \"\>", "\[InvisibleSpace]", 
   RowBox[{"Tetrag\[Dagger]", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tetrametric ", 
   $CellContext`Tetrag\[Dagger][-$CellContext`a, -$CellContext`b, \
-$CellContext`c, -$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689330387`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"34d9e476-c73c-46ce-9e4a-e6cc90e432fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"covariant derivative \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"CD", "[", 
    RowBox[{"-", "a"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "covariant derivative ", 
   $CellContext`CD[-$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689350395`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"d24ec9fe-7879-4062-a489-b189a71521a4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionCD", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionCD[$CellContext`a, -$CellContext`b, -$CellContext`c], 
   ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276168936041*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"95ff1d55-365e-40a0-8833-aab901f550d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelCD", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelCD[$CellContext`a, -$CellContext`b, \
-$CellContext`c], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689380426`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"36fdbfb0-bbf0-41da-9f01-38dff078d181"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Riemann tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"RiemannCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Riemann tensor ", 
   $CellContext`RiemannCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \
-$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689390435`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"87c0702b-4e03-42cf-9e75-353278d7b68d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric Ricci tensor ", 
   $CellContext`RicciCD[-$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689410458`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"496bdb11-3718-42b6-84ac-504087b9e774"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Riemann automatically replaced \
by Ricci.\"\>"], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689420466`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"f6308383-0c4c-4d1c-b5e3-69136fe6afcb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Ricci scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"RicciScalarCD", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Ricci scalar ", 
   $CellContext`RicciScalarCD[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689430475`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"7ea8c442-1ad5-42e9-bb15-28fbe581ce2a"],

Cell[BoxData["\<\"** DefCovD:  Contractions of Ricci automatically replaced \
by RicciScalar.\"\>"], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689440484`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"669cb4d2-4937-431d-8b69-2caa68c9f45f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Einstein tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"EinsteinCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Einstein tensor ", 
   $CellContext`EinsteinCD[-$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761689450493`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"95f8cca4-8bb9-4200-b60f-90198968e490"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Weyl tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"WeylCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "Weyl tensor ", 
   $CellContext`WeylCD[-$CellContext`a, -$CellContext`b, -$CellContext`c, \
-$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276168973075*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"255e7faf-30c9-43a6-b073-659eed285efe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric TFRicci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TFRicciCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetric TFRicci tensor ", 
   $CellContext`TFRicciCD[-$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169039135*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"052217bd-2851-4fa8-a1c4-beb123ad5fb1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"Kretschmann scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"KretschmannCD", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "Kretschmann scalar ", 
   $CellContext`KretschmannCD[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761690656652`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"d602d474-0384-451f-bee8-d70acd07f01b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RiemannToWeylRules for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RiemannToWeylRules for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761690666656`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"8120a4b6-ce48-4750-b6e2-750165390e7c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RicciToTFRicci for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RicciToTFRicci for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761691427402`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"b1d56c94-f41b-464e-b2d2-2a5e80a243ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** DefCovD:  Computing RicciToEinsteinRules for dim \"\>", 
   "\[InvisibleSpace]", "4"}],
  SequenceForm["** DefCovD:  Computing RicciToEinsteinRules for dim ", 4],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169168764*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"f058554b-d236-465e-a224-f1b3d587cc2d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetrized Riemann tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"SymRiemannCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}], ",", 
     RowBox[{"-", "c"}], ",", 
     RowBox[{"-", "d"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "symmetrized Riemann tensor ", 
   $CellContext`SymRiemannCD[-$CellContext`a, -$CellContext`b, \
-$CellContext`c, -$CellContext`d], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169170765*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"f872ecaa-9814-4fa6-b642-2ace83b71064"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Schouten tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"SchoutenCD", "[", 
    RowBox[{
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Schouten tensor ", 
   $CellContext`SchoutenCD[-$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761691717663`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"c44a5d66-190c-47d7-b76c-54b67f7cf81d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric cosmological Schouten tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"SchoutenCCCD", "[", 
    RowBox[{
     RowBox[{"LI", "[", "_", "]"}], ",", 
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric cosmological Schouten tensor ", 
   $CellContext`SchoutenCCCD[
    xAct`xTensor`LI[
     Blank[]], -$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169173769*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"f199cc16-261e-4a3d-89c1-632942993d1f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric cosmological Einstein tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"EinsteinCCCD", "[", 
    RowBox[{
     RowBox[{"LI", "[", "_", "]"}], ",", 
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric cosmological Einstein tensor ", 
   $CellContext`EinsteinCCCD[
    xAct`xTensor`LI[
     Blank[]], -$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761691757703`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"9f6e3717-5f0e-4ea8-95de-6b1b5f168fb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"weight +2 density \"\>", "\[InvisibleSpace]", 
   RowBox[{"Detg", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Determinant.\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "weight +2 density ", 
   $CellContext`Detg[], ". ", "Determinant."],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169245863*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"5f72404f-b5ac-43d2-987f-85e7432e7c09"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefParameter", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"parameter \"\>", "\[InvisibleSpace]", 
   "PerturbationParameterg", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefParameter, ": Defining ", 
   "parameter ", $CellContext`PerturbationParameterg, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761692468634`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"a1f02f6a-dd8f-4b87-aba2-299a914b8efb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Perturbationg", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\<\"order\"\>", "]"}], ",", 
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Perturbationg[
    xAct`xTensor`LI["order"], -$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169248865*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"550c3c3a-c6e5-48d0-8473-2939011b6838"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefParameter", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"parameter \"\>", "\[InvisibleSpace]", 
   "\[Epsilon]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefParameter, ": Defining ", 
   "parameter ", $CellContext`\[Epsilon], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.832276169273888*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"d227e71e-3a1c-41b1-bc41-8629cc45c99e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"metpert", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\<\"order\"\>", "]"}], ",", 
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`metpert[
    xAct`xTensor`LI["order"], -$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.832260316958276*^9, 3.8322612798443437`*^9, 
  3.8322614166930485`*^9, 3.8322627538921375`*^9, 3.8322645331050715`*^9, 
  3.8322761692768908`*^9},
 CellLabel->
  "During evaluation of \
In[5]:=",ExpressionUUID->"d50b1e9c-62d7-426d-a309-149b065c4ea7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefConstantSymbol", "[", 
  RowBox[{"Mp", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", "\"\<\!\(\*SubscriptBox[\(M\), \(pl\)]\)\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.686938877757683*^9, 3.686938889776134*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"bf2a70cf-608e-4bbb-a6be-391ca88462c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", "Mp",
    "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`Mp, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6869388918791533`*^9, 3.686939693663183*^9, 3.6869401893497143`*^9, 
   3.6869411751211853`*^9, 3.6870176504885406`*^9, 3.687020006313653*^9, 
   3.6870202017951202`*^9, 3.687098713167151*^9, 3.687098949477178*^9, 
   3.6979781287168293`*^9, 3.697978221306261*^9, 3.698061122404749*^9, 
   3.69815645220397*^9, 3.6981663576373034`*^9, 3.6984132719367733`*^9, 
   3.698490903579702*^9, 3.6985804771585913`*^9, 3.6985805159155607`*^9, 
   3.698746435021626*^9, {3.699874391452476*^9, 3.6998744051584682`*^9}, 
   3.717861275775332*^9, 3.831989137901487*^9, 3.8319893666603055`*^9, 
   3.8321668477392817`*^9, 3.832168541211787*^9, 3.832251869030421*^9, 
   3.8322525048310843`*^9, 3.83225274313227*^9, 3.832253602197204*^9, 
   3.8322536717473054`*^9, 3.832256969189001*^9, 3.8322603184909325`*^9, 
   3.8322612835313377`*^9, 3.832261417944906*^9, 3.8322627549881697`*^9, 
   3.832264533497967*^9, 3.832276170836918*^9},
 CellLabel->
  "During evaluation of \
In[14]:=",ExpressionUUID->"f2259df0-5e69-402c-a807-45fe8d03e14a"]
}, Open  ]],

Cell["Define the Gauss Bonnet invariant", "Text",
 CellChangeTimes->{{3.687017657566256*^9, 
  3.68701767252564*^9}},ExpressionUUID->"8ee9997c-6f9d-4407-8de3-\
f0a1bd6eb3cb"],

Cell["Define scalar and scalar function", "Text",
 CellChangeTimes->{{3.687017726616302*^9, 
  3.68701775292934*^9}},ExpressionUUID->"886de374-38be-4764-9275-\
36f3b2856acd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DefScalarFunction", "[", "F", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefScalarFunction", "[", "Vv", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefScalarFunction", "[", "Vs", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Phi", "[", "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<\[Phi]\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Phib", "[", "]"}], ",", "M", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", 
    "\"\<\!\(\*OverscriptBox[\(\[Phi]\), \(_\)]\)\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Av", "[", "a", "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<A\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Bv", "[", "a", "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<B\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Bvc", "[", "a", "]"}], ",", "M", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", "\"\<\!\(\*OverscriptBox[\(B\), \(_\)]\)\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", "G", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", 
  RowBox[{"Mass", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<M\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", 
  RowBox[{"\[Alpha]", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<\[Alpha]\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", 
  RowBox[{"q", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<q\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", "\[Beta]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", "\[Kappa]", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.687017722088285*^9, 3.687017758454157*^9}, {
   3.687031694606969*^9, 3.6870317086949368`*^9}, {3.697978206371714*^9, 
   3.697978209346964*^9}, {3.698425809482993*^9, 3.698425815626566*^9}, {
   3.698581597788712*^9, 3.6985815980722723`*^9}, 3.8319892296225786`*^9, {
   3.8322518960953646`*^9, 3.8322518978363457`*^9}, {3.8322519385275927`*^9, 
   3.8322519850803924`*^9}, {3.8322521457143126`*^9, 3.832252149953148*^9}, {
   3.8322522625414*^9, 3.8322522673051815`*^9}, {3.832252509839943*^9, 
   3.8322525119850125`*^9}, {3.8322525702956247`*^9, 
   3.8322525711824207`*^9}, {3.8322526415952263`*^9, 3.83225265116625*^9}, {
   3.832252691577365*^9, 3.832252702224248*^9}, {3.832252854362171*^9, 
   3.832252884678342*^9}, {3.8322536064751897`*^9, 3.832253646856143*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"20b92dc4-4651-4219-9a5f-75e5bfef83e3"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "F", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`F, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720198946`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"74665c05-0be2-4c01-bdff-72c2a9d56f80"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "Vv",
    "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`Vv, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.832276172022896*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"c1d7f82b-81b2-4a0c-9b69-60e7d35dfdfa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "Vs",
    "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`Vs, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720279007`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"275c7e0f-7b9a-490d-b03c-f283b4c7887f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Phi", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Phi[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720289016`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"d9d4d1d3-93fb-44fa-8fa2-ebe89b786a35"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Phib", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Phib[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720299025`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"672cb3e6-b4f2-4020-9e18-54cecbb40ccd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Av", "[", "a", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Av[$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720309033`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"c09d3660-e9de-4781-b394-a9760a7627d8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Bv", "[", "a", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Bv[$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.832276172032905*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"d3e3bca2-a7c6-4658-8b3e-dced05e0e2af"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Bvc", "[", "a", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Bvc[$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.832276172033906*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"886fdbba-1ecc-4523-9f05-c2a7291102f0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", "G", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`G, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.832276172034907*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"47e026bf-d9ac-48d7-bd06-543bdfab72e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "Mass", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`Mass, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720359077`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"e8a32ea8-6728-4a8f-91c7-c5f3f2e8a19a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[Alpha]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[Alpha], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.832276172036909*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"c877cdf2-0c2f-4d1d-a3bd-93d31940c4c6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", "q", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`q, ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720379095`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"36d470ec-5a30-4f25-89e5-d98b488e93fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[Beta]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[Beta], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.832276172038911*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"bd8deeac-2e24-47e4-b0b5-f823bced2085"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", 
   "\[Kappa]", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`\[Kappa], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322536729146986`*^9, 3.8322569704030046`*^9, 
  3.83226031976951*^9, 3.832261285167409*^9, 3.8322614180152245`*^9, 
  3.8322627550503025`*^9, 3.832264533532468*^9, 3.8322761720409126`*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"47ece912-8427-44bd-98c1-3db86db62023"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "I set ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "pl"], TraditionalForm]],ExpressionUUID->
  "0e41e20e-9294-4abd-b624-b9672ba4d3d7"],
 " = 1 to avoid confusion. If you want to see the G\[CloseCurlyQuote]s just \
comment this out."
}], "Text",
 CellChangeTimes->{{3.698425632336973*^9, 
  3.698425660857132*^9}},ExpressionUUID->"f6affed3-cdd7-499e-9e46-\
f42842be6497"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mp", "=", "1"}]], "Input",
 CellChangeTimes->{{3.698061072042824*^9, 3.698061074063427*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"8e1791d9-f1c9-46f1-bb47-fdb07f693265"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.698061074494487*^9, 3.698061122586894*^9, 3.698156452453459*^9, 
   3.698166357818584*^9, 3.698413272139563*^9, 3.6984909037649317`*^9, 
   3.698580477558186*^9, 3.698580516147513*^9, 3.6987464352325773`*^9, {
   3.699874391650806*^9, 3.699874405392827*^9}, 3.717861276159705*^9, 
   3.8319891582451115`*^9, 3.8319893879582777`*^9, 3.8321668518317375`*^9, 
   3.832168545123698*^9, 3.832252704482439*^9, 3.832252748709403*^9, 
   3.832253675648145*^9, 3.832256972554083*^9, 3.832260321273215*^9, 
   3.8322612865659313`*^9, 3.832261418117406*^9, 3.8322627551006784`*^9, 
   3.832264533577936*^9, 3.8322761734847856`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"f1aae0f5-baa1-4b2a-aef4-565dac0500e6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["resto", "Subsection",
 CellChangeTimes->{{3.83226141141858*^9, 
  3.832261411923371*^9}},ExpressionUUID->"d639fbc4-5248-421b-93e8-\
a16a4f7b6549"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SF", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "b"}], "]"}], "[", 
       RowBox[{"Phib", "[", "]"}], "]"}], "+", 
      RowBox[{"I", " ", "q", " ", 
       RowBox[{"Av", "[", 
        RowBox[{"-", "b"}], "]"}], 
       RowBox[{"Phib", "[", "]"}]}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "b", "]"}], "[", 
       RowBox[{"Phi", "[", "]"}], "]"}], "-", 
      RowBox[{"I", " ", "q", " ", 
       RowBox[{"Av", "[", "b", "]"}], 
       RowBox[{"Phi", "[", "]"}]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"Vs", "[", 
     RowBox[{
      RowBox[{"Phib", "[", "]"}], 
      RowBox[{"Phi", "[", "]"}]}], "]"}]}], "-", 
   RowBox[{
    FractionBox["1", "4"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "a", "]"}], "[", 
       RowBox[{"Av", "[", "b", "]"}], "]"}], "-", 
      RowBox[{
       RowBox[{"CD", "[", "b", "]"}], "[", 
       RowBox[{"Av", "[", "a", "]"}], "]"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "a"}], "]"}], "[", 
       RowBox[{"Av", "[", 
        RowBox[{"-", "b"}], "]"}], "]"}], "-", 
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "b"}], "]"}], "[", 
       RowBox[{"Av", "[", 
        RowBox[{"-", "a"}], "]"}], "]"}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "4"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "a", "]"}], "[", 
       RowBox[{"Bvc", "[", "b", "]"}], "]"}], "-", 
      RowBox[{
       RowBox[{"CD", "[", "b", "]"}], "[", 
       RowBox[{"Bvc", "[", "a", "]"}], "]"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "a"}], "]"}], "[", 
       RowBox[{"Bv", "[", 
        RowBox[{"-", "b"}], "]"}], "]"}], "-", 
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "b"}], "]"}], "[", 
       RowBox[{"Bv", "[", 
        RowBox[{"-", "a"}], "]"}], "]"}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"Vv", "[", 
     RowBox[{
      RowBox[{"Bvc", "[", 
       RowBox[{"-", "b"}], "]"}], 
      RowBox[{"Bv", "[", "b", "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8322520361251993`*^9, 3.8322520965965734`*^9}, {
   3.8322521611884813`*^9, 3.832252372770293*^9}, 3.8322525444457035`*^9, {
   3.8322525771192045`*^9, 3.832252595933693*^9}, {3.8322527251368394`*^9, 
   3.8322527266825595`*^9}, {3.832252805300217*^9, 3.8322528362843814`*^9}, {
   3.832253016086619*^9, 3.8322530304867086`*^9}, 3.832253085492219*^9, {
   3.8322531525664597`*^9, 3.832253221705437*^9}, {3.8322532670515966`*^9, 
   3.832253273886598*^9}, {3.832253506395609*^9, 3.83225356661952*^9}, {
   3.832253622194336*^9, 3.8322536346483493`*^9}, {3.832254463567232*^9, 
   3.832254552598523*^9}, {3.8322547095380774`*^9, 3.8322547552511435`*^9}, {
   3.8322551566886115`*^9, 3.832255179481386*^9}, {3.8322626434350944`*^9, 
   3.8322626655656576`*^9}, {3.8322630936491184`*^9, 
   3.8322630957593403`*^9}, {3.83226355879472*^9, 3.832263570991289*^9}, {
   3.8322636176990795`*^9, 3.8322636180376205`*^9}, 3.8322636879439893`*^9, {
   3.832265461974874*^9, 3.832265480342847*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"25382337-478e-40d0-bb2b-41e2a003813b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   RowBox[{
    InterpretationBox[
     StyleBox["Vs",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Vs,
     Editable->False], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    InterpretationBox[
     StyleBox["Vv",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Vv,
     Editable->False], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {"b"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`b],
      Editable->False]}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Av[-$CellContext`b]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Av[-$CellContext`a]],
      Editable->False]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "a"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"b"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`a][
       $CellContext`Av[$CellContext`b]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "b"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`b][
       $CellContext`Av[$CellContext`a]],
      Editable->False]}], ")"}]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Bv[-$CellContext`b]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Bv[-$CellContext`a]],
      Editable->False]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "a"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {"b"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`a][
       $CellContext`Bvc[$CellContext`b]],
      Editable->False], "-", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "b"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`b][
       $CellContext`Bvc[$CellContext`a]],
      Editable->False]}], ")"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["\[Phi]", "_"],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phib[],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], 
        OverscriptBox["\[Phi]", "_"]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Phib[]],
      Editable->False]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"b"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False]}], "+", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "b"], "\[Phi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`b][
       $CellContext`Phi[]],
      Editable->False]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.832252085470178*^9, 3.832252097174362*^9}, 
   3.832252189505517*^9, 3.832252233669866*^9, 3.832252306611551*^9, 
   3.8322523740496206`*^9, {3.8322525362075305`*^9, 3.832252545365698*^9}, 
   3.8322525969023085`*^9, 3.832252704966261*^9, 3.832252749450489*^9, 
   3.832252791809225*^9, 3.8322528659635067`*^9, 3.832253030954397*^9, 
   3.8322530857499056`*^9, {3.832253180139206*^9, 3.832253235987753*^9}, 
   3.8322532742231846`*^9, {3.8322535067269073`*^9, 3.832253524544243*^9}, 
   3.8322535684390497`*^9, 3.8322536359453955`*^9, 3.8322536799466686`*^9, {
   3.8322544640280595`*^9, 3.832254508521285*^9}, {3.832254547946165*^9, 
   3.8322545528732233`*^9}, 3.832254711860095*^9, {3.8322547423589873`*^9, 
   3.8322547555718875`*^9}, {3.8322551603972015`*^9, 3.83225517993011*^9}, 
   3.832256974697152*^9, 3.832257293906039*^9, 3.8322603222650537`*^9, 
   3.832261288566351*^9, {3.8322615253636904`*^9, 3.832261529183445*^9}, 
   3.832262667562104*^9, 3.8322627023232355`*^9, 3.832262936139144*^9, 
   3.8322630961970873`*^9, 3.8322636186380687`*^9, 3.83226368830035*^9, 
   3.8322645571841288`*^9, 3.832265489726858*^9, 3.832276174483704*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"a6d0a535-9db7-49cf-bbe3-0a88cb2e61a6"]
}, Open  ]],

Cell["\<\
Load the action. Note that I set g=1 for simplicity. You can restore it by \
setting \[Alpha]\[CloseCurlyQuote]->\[Alpha]\[CloseCurlyQuote]/g^2\
\>", "Text",
 CellChangeTimes->{{3.698425663378166*^9, 3.698425665161244*^9}, {
   3.698425821052722*^9, 3.6984258368271837`*^9}, 3.8322531744683647`*^9, 
   3.832263740827076*^9, 
   3.8322654850889497`*^9},ExpressionUUID->"e746253e-3bf3-40a7-901c-\
145af02e601e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"RicciScalarCD", "[", "]"}], "\[Kappa]"], "+", "SF"}], ")"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.832256123583314*^9, 3.8322561255185103`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"2dd616f7-bbda-47cc-8cbf-a8c73759aea8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Action", "=", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{"-", 
     RowBox[{"Detg", "[", "]"}]}], "]"}], "*", "L"}]}]], "Input",
 CellChangeTimes->{{3.686938896168777*^9, 3.686938911926057*^9}, {
   3.686939831293592*^9, 3.6869398326369257`*^9}, {3.6870177150643387`*^9, 
   3.687017764072235*^9}, {3.687018183631977*^9, 3.687018191378605*^9}, {
   3.6979782116594*^9, 3.697978213435254*^9}, {3.698061078234145*^9, 
   3.698061090038188*^9}, {3.831989176596562*^9, 3.8319892514158554`*^9}, {
   3.8319892951005664`*^9, 3.8319892987018423`*^9}, {3.831989332204393*^9, 
   3.8319893323755507`*^9}, {3.8321668874553776`*^9, 3.832166904346164*^9}, {
   3.8321671402533045`*^9, 3.83216719083324*^9}, {3.8322523825576596`*^9, 
   3.832252388357398*^9}, {3.832252600328321*^9, 3.8322526012625475`*^9}, {
   3.832253047922572*^9, 3.83225308051551*^9}, {3.832255182987113*^9, 
   3.8322551834230995`*^9}, 3.8322561283931713`*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"4f7e7b52-8e4a-4829-9576-8480cd1d9c5f"],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{"-", 
    InterpretationBox[
     StyleBox[
      OverscriptBox["g", 
       OverscriptBox[
        StyleBox["~",
         FontColor->RGBColor[0, 0, 0]], 
        StyleBox["~",
         FontColor->RGBColor[0, 0, 0]]]],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Detg[],
     Editable->False]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     InterpretationBox[
      StyleBox[
       RowBox[{"R", "[", "\[Del]", "]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`RicciScalarCD[],
      Editable->False], 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False]], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Vs",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Vs,
       Editable->False], "[", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[Phi]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Phi[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         OverscriptBox["\[Phi]", "_"],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Phib[],
        Editable->False]}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Vv",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Vv,
       Editable->False], "[", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"b"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Bv[$CellContext`b],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Bvc[-$CellContext`b],
        Editable->False]}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "a"], GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {" "},
                {"b"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[-$CellContext`a][
         $CellContext`Av[-$CellContext`b]],
        Editable->False], "-", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "b"], GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[-$CellContext`b][
         $CellContext`Av[-$CellContext`a]],
        Editable->False]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "a"], GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {"b"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[$CellContext`a][
         $CellContext`Av[$CellContext`b]],
        Editable->False], "-", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "b"], GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[$CellContext`b][
         $CellContext`Av[$CellContext`a]],
        Editable->False]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "a"], GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {" "},
                {"b"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[-$CellContext`a][
         $CellContext`Bv[-$CellContext`b]],
        Editable->False], "-", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "b"], GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[-$CellContext`b][
         $CellContext`Bv[-$CellContext`a]],
        Editable->False]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "a"], GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {"b"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[$CellContext`a][
         $CellContext`Bvc[$CellContext`b]],
        Editable->False], "-", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "b"], GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[$CellContext`b][
         $CellContext`Bvc[$CellContext`a]],
        Editable->False]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", 
        InterpretationBox[
         StyleBox["q",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`q,
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {" "},
                {"b"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Av[-$CellContext`b],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[
          OverscriptBox["\[Phi]", "_"],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Phib[],
         Editable->False]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SubscriptBox["\[Del]", "b"], 
          OverscriptBox["\[Phi]", "_"]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[-$CellContext`b][
         $CellContext`Phib[]],
        Editable->False]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        InterpretationBox[
         StyleBox["q",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`q,
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {"b"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Av[$CellContext`b],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox["\[Phi]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Phi[],
         Editable->False]}], "+", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          SuperscriptBox["\[Del]", "b"], "\[Phi]"}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`CD[$CellContext`b][
         $CellContext`Phi[]],
        Editable->False]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.8322530807951727`*^9, 3.832253087322234*^9}, 
   3.832253196050169*^9, 3.8322532376607428`*^9, 3.8322532760603213`*^9, {
   3.832253509123763*^9, 3.832253527854432*^9}, 3.832253569853382*^9, 
   3.8322536827384005`*^9, {3.8322544869113517`*^9, 3.8322545103544207`*^9}, 
   3.832254556140335*^9, {3.8322547432302904`*^9, 3.8322547582941566`*^9}, {
   3.8322551629891396`*^9, 3.8322551838462143`*^9}, 3.8322561287593985`*^9, 
   3.832256295562091*^9, 3.8322569764483957`*^9, 3.8322603244904404`*^9, 
   3.83226129113649*^9, 3.832261531188599*^9, {3.832262676920805*^9, 
   3.832262704566724*^9}, 3.832262941449257*^9, {3.832263097468008*^9, 
   3.8322631031743903`*^9}, 3.8322636481123753`*^9, 3.832263690042059*^9, 
   3.832263745632606*^9, 3.8322646021137733`*^9, 3.832265491794161*^9, 
   3.8322761761967306`*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"2a35a13b-26e9-44bd-901e-cd722ed1f69a"]
}, Open  ]],

Cell["Define scalar perturbation", "Text",
 CellChangeTimes->{{3.686939708231813*^9, 3.686939752008301*^9}, {
   3.6870177744757643`*^9, 3.687017778988513*^9}, 3.8322527966595345`*^9, 
   3.832254792355332*^9},ExpressionUUID->"53ed8422-f695-4a33-b87a-\
3e440c79a4a0"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Delta]\[Phi]", ",", "\[Delta]\[Phi]b", ",", "\[Delta]A", ",", 
   "\[Delta]B", ",", "\[Delta]Bb", ",", "\[Delta]g"}], "]"}]], "Input",
 CellChangeTimes->{{3.8322524526463566`*^9, 3.8322524594533653`*^9}, {
  3.8322527129163604`*^9, 3.832252714774635*^9}, {3.832253719516737*^9, 
  3.832253725840274*^9}, {3.8322547597895613`*^9, 3.8322547603884306`*^9}, {
  3.8322600381866965`*^9, 3.8322600568652105`*^9}, {3.832260102925176*^9, 
  3.832260115499877*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"0e923bb7-e11e-486f-8fbe-36dc709330ac"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DefMetricPerturbation", "[", 
  RowBox[{"g", ",", "\[Delta]g", ",", "\[Epsilon]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensorPerturbation", "[", 
  RowBox[{
   RowBox[{"\[Delta]\[Phi]", "[", 
    RowBox[{"LI", "[", "\"\<order\>\"", "]"}], "]"}], ",", 
   RowBox[{"Phi", "[", "]"}], ",", "\[Epsilon]", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<\[Delta]\[Phi]\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensorPerturbation", "[", 
  RowBox[{
   RowBox[{"\[Delta]\[Phi]b", "[", 
    RowBox[{"LI", "[", "\"\<order\>\"", "]"}], "]"}], ",", 
   RowBox[{"Phib", "[", "]"}], ",", "\[Epsilon]", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", 
    "\"\<\[Delta]\!\(\*OverscriptBox[\(\[Phi]\), \(_\)]\)\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensorPerturbation", "[", 
  RowBox[{
   RowBox[{"\[Delta]A", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\"\<order\>\"", "]"}], ",", "a"}], "]"}], ",", 
   RowBox[{"Av", "[", "a", "]"}], ",", "\[Epsilon]", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<\[Delta]A\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensorPerturbation", "[", 
  RowBox[{
   RowBox[{"\[Delta]B", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\"\<order\>\"", "]"}], ",", "a"}], "]"}], ",", 
   RowBox[{"Bv", "[", "a", "]"}], ",", "\[Epsilon]", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<\[Delta]B\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensorPerturbation", "[", 
  RowBox[{
   RowBox[{"\[Delta]Bb", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\"\<order\>\"", "]"}], ",", "a"}], "]"}], ",", 
   RowBox[{"Bvc", "[", "a", "]"}], ",", "\[Epsilon]", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", 
    "\"\<\[Delta]\!\(\*OverscriptBox[\(B\), \(_\)]\)\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.6869400543271217`*^9, 3.686940055940044*^9}, {
   3.686940204031348*^9, 3.686940207695221*^9}, {3.832252873425701*^9, 
   3.832252875888566*^9}, {3.8322536891284733`*^9, 3.832253781481245*^9}, 
   3.8322538350435596`*^9, {3.832259838032423*^9, 3.8322599846888657`*^9}, {
   3.832260041663724*^9, 3.832260043662897*^9}, {3.8322603730407033`*^9, 
   3.8322603754988456`*^9}, {3.832260429550813*^9, 3.832260458457621*^9}, {
   3.8322631876746416`*^9, 3.8322632173661833`*^9}, {3.8322632566238112`*^9, 
   3.8322633140722723`*^9}, {3.832263431135215*^9, 3.8322634322614307`*^9}, {
   3.8322636606614237`*^9, 3.8322636635490427`*^9}, {3.832263750079544*^9, 
   3.832263778752054*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"21f8a431-eaaf-422e-8702-71d6191dace1"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Delta]g", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\<\"order\"\>", "]"}], ",", 
     RowBox[{"-", "a"}], ",", 
     RowBox[{"-", "b"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Delta]g[
    xAct`xTensor`LI["order"], -$CellContext`a, -$CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832260099197967*^9, 3.8322601171538143`*^9}, 
   3.8322603277422132`*^9, 3.8322604604669733`*^9, 3.8322612945542603`*^9, 
   3.832261537524253*^9, 3.8322626785215397`*^9, 3.8322627138111224`*^9, 
   3.8322629454962893`*^9, 3.832263190476992*^9, 3.832263221405678*^9, {
   3.8322632631327896`*^9, 3.832263314672551*^9}, {3.832263650569599*^9, 
   3.832263691690011*^9}, {3.83226375921691*^9, 3.8322637810789547`*^9}, 
   3.8322646057353115`*^9, 3.8322654930988765`*^9, 3.8322761784724855`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"ee34ce1d-0a0a-4140-a345-6a452b01b830"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Delta]\[Phi]", "[", 
    RowBox[{"LI", "[", "\<\"order\"\>", "]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Delta]\[Phi][
    xAct`xTensor`LI["order"]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832260099197967*^9, 3.8322601171538143`*^9}, 
   3.8322603277422132`*^9, 3.8322604604669733`*^9, 3.8322612945542603`*^9, 
   3.832261537524253*^9, 3.8322626785215397`*^9, 3.8322627138111224`*^9, 
   3.8322629454962893`*^9, 3.832263190476992*^9, 3.832263221405678*^9, {
   3.8322632631327896`*^9, 3.832263314672551*^9}, {3.832263650569599*^9, 
   3.832263691690011*^9}, {3.83226375921691*^9, 3.8322637810789547`*^9}, 
   3.8322646057353115`*^9, 3.8322654930988765`*^9, 3.8322761784754887`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"82078677-8684-4dce-9c7e-9e37533f088f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Delta]\[Phi]b", "[", 
    RowBox[{"LI", "[", "\<\"order\"\>", "]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Delta]\[Phi]b[
    xAct`xTensor`LI["order"]], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832260099197967*^9, 3.8322601171538143`*^9}, 
   3.8322603277422132`*^9, 3.8322604604669733`*^9, 3.8322612945542603`*^9, 
   3.832261537524253*^9, 3.8322626785215397`*^9, 3.8322627138111224`*^9, 
   3.8322629454962893`*^9, 3.832263190476992*^9, 3.832263221405678*^9, {
   3.8322632631327896`*^9, 3.832263314672551*^9}, {3.832263650569599*^9, 
   3.832263691690011*^9}, {3.83226375921691*^9, 3.8322637810789547`*^9}, 
   3.8322646057353115`*^9, 3.8322654930988765`*^9, 3.8322761784777746`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"9e7d2602-c3f4-427a-b5b2-dee34fe8d155"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Delta]A", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\<\"order\"\>", "]"}], ",", "a"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Delta]A[
    xAct`xTensor`LI["order"], $CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832260099197967*^9, 3.8322601171538143`*^9}, 
   3.8322603277422132`*^9, 3.8322604604669733`*^9, 3.8322612945542603`*^9, 
   3.832261537524253*^9, 3.8322626785215397`*^9, 3.8322627138111224`*^9, 
   3.8322629454962893`*^9, 3.832263190476992*^9, 3.832263221405678*^9, {
   3.8322632631327896`*^9, 3.832263314672551*^9}, {3.832263650569599*^9, 
   3.832263691690011*^9}, {3.83226375921691*^9, 3.8322637810789547`*^9}, 
   3.8322646057353115`*^9, 3.8322654930988765`*^9, 3.8322761784787765`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"e4ab9d41-c176-43ec-8c48-2fc8e3e7bb72"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Delta]B", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\<\"order\"\>", "]"}], ",", "a"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Delta]B[
    xAct`xTensor`LI["order"], $CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832260099197967*^9, 3.8322601171538143`*^9}, 
   3.8322603277422132`*^9, 3.8322604604669733`*^9, 3.8322612945542603`*^9, 
   3.832261537524253*^9, 3.8322626785215397`*^9, 3.8322627138111224`*^9, 
   3.8322629454962893`*^9, 3.832263190476992*^9, 3.832263221405678*^9, {
   3.8322632631327896`*^9, 3.832263314672551*^9}, {3.832263650569599*^9, 
   3.832263691690011*^9}, {3.83226375921691*^9, 3.8322637810789547`*^9}, 
   3.8322646057353115`*^9, 3.8322654930988765`*^9, 3.8322761784807773`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"8a9fceeb-8ed9-4b40-8108-bb7ca11fcf39"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Delta]Bb", "[", 
    RowBox[{
     RowBox[{"LI", "[", "\<\"order\"\>", "]"}], ",", "a"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`\[Delta]Bb[
    xAct`xTensor`LI["order"], $CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832260099197967*^9, 3.8322601171538143`*^9}, 
   3.8322603277422132`*^9, 3.8322604604669733`*^9, 3.8322612945542603`*^9, 
   3.832261537524253*^9, 3.8322626785215397`*^9, 3.8322627138111224`*^9, 
   3.8322629454962893`*^9, 3.832263190476992*^9, 3.832263221405678*^9, {
   3.8322632631327896`*^9, 3.832263314672551*^9}, {3.832263650569599*^9, 
   3.832263691690011*^9}, {3.83226375921691*^9, 3.8322637810789547`*^9}, 
   3.8322646057353115`*^9, 3.8322654930988765`*^9, 3.832276178481778*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"4fdc814d-28f5-4c4b-9763-e6934c47015b"]
}, Open  ]]
}, Open  ]],

Cell["Varied Lagrangian:", "Text",
 CellChangeTimes->{{3.570118335091161*^9, 3.5701183489443407`*^9}, {
  3.8322636690731487`*^9, 
  3.8322636697101383`*^9}},ExpressionUUID->"066b43c4-9d20-4d75-8592-\
198a4867481c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LagrP", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Perturbation", "[", "Action", "]"}], "//", 
     "ExpandPerturbation"}], "//", "ContractMetric"}], "//", 
   "ToCanonical"}]}]], "Input",
 CellChangeTimes->{{3.570116330485517*^9, 3.5701163474015636`*^9}, {
   3.570116484816201*^9, 3.570116503418075*^9}, 3.570116697892788*^9, {
   3.8322596675955563`*^9, 3.8322596717035685`*^9}, {3.8322602352904367`*^9, 
   3.8322602359395466`*^9}, {3.8322651610410385`*^9, 3.832265161348867*^9}, {
   3.8322652226420746`*^9, 3.8322652228242016`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"82a77dbf-22ff-41bf-af72-ba55c64fbe08"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], "2"]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]A", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " "},
           {" ", "a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]A[
     xAct`xTensor`LI[1], -$CellContext`a],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["q",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`q,
     Editable->False], "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"b"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`b],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "a", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b],
    Editable->False]}], "-", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["g", 
         OverscriptBox[
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]], 
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]]]],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Detg[],
       Editable->False]}]], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {
         RowBox[{"R", "[", "\[Del]", "]"}], 
         StyleBox[GridBox[{
            {"a", "b"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciCD[$CellContext`a, $CellContext`b],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[Kappa]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Kappa],
    Editable->False]], "+", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["g", 
         OverscriptBox[
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]], 
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]]]],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Detg[],
       Editable->False]}]], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{"R", "[", "\[Del]", "]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`RicciScalarCD[],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], "a", " "},
            {" ", " ", "a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], $CellContext`a, -$CellContext`a],
     Editable->False]}], 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["\[Kappa]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Kappa],
     Editable->False]}]], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   RowBox[{
    InterpretationBox[
     StyleBox["Vs",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Vs,
     Editable->False], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "]"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "a", " "},
           {" ", " ", "a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`a, -$CellContext`a],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   RowBox[{
    InterpretationBox[
     StyleBox["Vv",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Vv,
     Editable->False], "[", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bv[$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bvc[-$CellContext`a],
         Editable->False]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
     Editable->False], "]"}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "a", " "},
           {" ", " ", "a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`a, -$CellContext`a],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["q",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`q,
     Editable->False], "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {" "},
           {"a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[-$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "b", " "},
           {" ", " ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`b, -$CellContext`b],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["q",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`q,
     Editable->False], "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {" "},
           {"a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[-$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]\[Phi]", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]\[Phi][
     xAct`xTensor`LI[1]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["q",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`q,
     Editable->False], "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {" "},
           {"a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[-$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"\[Delta]", 
         OverscriptBox["\[Phi]", "_"]}], 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]\[Phi]b[
     xAct`xTensor`LI[1]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]A", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "a"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]A[
     xAct`xTensor`LI[1], $CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "b", " "},
           {" ", " ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`b, -$CellContext`b],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"\[Delta]", 
         OverscriptBox["\[Phi]", "_"]}], 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]\[Phi]b[
     xAct`xTensor`LI[1]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]A", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "a"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]A[
     xAct`xTensor`LI[1], $CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phib[]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "b", " "},
           {" ", " ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`b, -$CellContext`b],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phib[]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]\[Phi]", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]\[Phi][
     xAct`xTensor`LI[1]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phib[]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {"\[Delta]\[Phi]", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]\[Phi][
      xAct`xTensor`LI[1]]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {
         RowBox[{"\[Delta]", 
          OverscriptBox["\[Phi]", "_"]}], 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]\[Phi]b[
      xAct`xTensor`LI[1]]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "b", " "},
           {" ", " ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`b, -$CellContext`b],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phib[]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {
         RowBox[{"\[Delta]", 
          OverscriptBox["\[Phi]", "_"]}], 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]\[Phi]b[
      xAct`xTensor`LI[1]]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {"\[Delta]\[Phi]", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]\[Phi][
      xAct`xTensor`LI[1]]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "a"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`a][
     $CellContext`Phib[]],
    Editable->False]}], "+", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["g", 
         OverscriptBox[
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]], 
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]]]],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Detg[],
       Editable->False]}]], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "b"], 
       SubscriptBox["\[Del]", "a"], GridBox[{
         {"\[Delta]g", 
          StyleBox[GridBox[{
             {
              StyleBox["1",
               FontColor->RGBColor[0., 0., 1.]], "a", "b"},
             {" ", " ", " "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[-$CellContext`b][
      $CellContext`CD[-$CellContext`a][
       $CellContext`\[Delta]g[
        xAct`xTensor`LI[1], $CellContext`a, $CellContext`b]]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[Kappa]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Kappa],
    Editable->False]], "-", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{"-", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["g", 
         OverscriptBox[
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]], 
          StyleBox["~",
           FontColor->RGBColor[0, 0, 0]]]],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Detg[],
       Editable->False]}]], " ", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "b"], 
       SuperscriptBox["\[Del]", "b"], GridBox[{
         {"\[Delta]g", 
          StyleBox[GridBox[{
             {
              StyleBox["1",
               FontColor->RGBColor[0., 0., 1.]], "a", " "},
             {" ", " ", "a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[-$CellContext`b][
      $CellContext`CD[$CellContext`b][
       $CellContext`\[Delta]g[
        xAct`xTensor`LI[1], $CellContext`a, -$CellContext`a]]],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["\[Kappa]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Kappa],
    Editable->False]], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "c", " "},
           {" ", " ", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`c, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {" "},
            {"b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Av[-$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {"\[Delta]A", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "},
            {" ", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]A[
      xAct`xTensor`LI[1], -$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "c", " "},
           {" ", " ", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`c, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`Av[-$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "a", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"c"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`Av[$CellContext`c]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[Delta]A", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "},
            {" ", "a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`\[Delta]A[
      xAct`xTensor`LI[1], -$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "c", " "},
           {" ", " ", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`c, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {" "},
            {"b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Bvc[-$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {
         RowBox[{"\[Delta]", 
          OverscriptBox["B", "_"]}], 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "},
            {" ", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]Bb[
      xAct`xTensor`LI[1], -$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], "c", " "},
           {" ", " ", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], $CellContext`c, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`Bvc[-$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "a", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {"c"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`Bvc[$CellContext`c]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {
         RowBox[{"\[Delta]", 
          OverscriptBox["B", "_"]}], 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "},
            {" ", "a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`\[Delta]Bb[
      xAct`xTensor`LI[1], -$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {"\[Delta]B", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "},
            {" ", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`\[Delta]B[
      xAct`xTensor`LI[1], -$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bvc[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[Delta]B", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "},
            {" ", "a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`\[Delta]B[
      xAct`xTensor`LI[1], -$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bvc[$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "a", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`a][
     $CellContext`Phi[]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Phib[]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "b", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`b, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Av[-$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "c"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`c]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Av[$CellContext`b]],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "c"], GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`c][
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Av[$CellContext`b]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["B", "_"], 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bvc[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "c"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`c]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Bv[$CellContext`b]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["B", "_"], 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bvc[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "c"], GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`c][
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Bv[$CellContext`b]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "b", "c"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`b, -$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {" "},
            {"a"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Bvc[-$CellContext`a]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bv[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "c"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`c]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Bvc[$CellContext`b]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bv[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "c"], GridBox[{
        {"\[Delta]g", 
         StyleBox[GridBox[{
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " ", " "},
            {" ", "a", "b"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`c][
     $CellContext`\[Delta]g[
      xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b]],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "c"], GridBox[{
        {
         OverscriptBox["B", "_"], 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`c][
     $CellContext`Bvc[$CellContext`b]],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]\[Phi]", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]\[Phi][
     xAct`xTensor`LI[1]],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vs",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vs,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"\[Delta]", 
         OverscriptBox["\[Phi]", "_"]}], 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]]},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]\[Phi]b[
     xAct`xTensor`LI[1]],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vs",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vs,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["B", "_"], 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bvc[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]B", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " "},
           {" ", "a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]B[
     xAct`xTensor`LI[1], -$CellContext`a],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vv",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vv,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bv[$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bvc[-$CellContext`a],
         Editable->False]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
     Editable->False], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bv[$CellContext`a],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        RowBox[{"\[Delta]", 
         OverscriptBox["B", "_"]}], 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " "},
           {" ", "a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]Bb[
     xAct`xTensor`LI[1], -$CellContext`a],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vv",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vv,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bv[$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bvc[-$CellContext`a],
         Editable->False]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
     Editable->False], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bv[$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        OverscriptBox["B", "_"], 
        StyleBox[GridBox[{
           {"b"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bvc[$CellContext`b],
    Editable->False], " ", 
   SqrtBox[
    RowBox[{"-", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["g", 
        OverscriptBox[
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]], 
         StyleBox["~",
          FontColor->RGBColor[0, 0, 0]]]],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Detg[],
      Editable->False]}]], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"\[Delta]g", 
        StyleBox[GridBox[{
           {
            StyleBox["1",
             FontColor->RGBColor[0., 0., 1.]], " ", " "},
           {" ", "a", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Delta]g[
     xAct`xTensor`LI[1], -$CellContext`a, -$CellContext`b],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vv",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vv,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bv[$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bvc[-$CellContext`a],
         Editable->False]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
     Editable->False], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.570116698628654*^9, {3.570116936645529*^9, 3.570116957533909*^9}, 
   3.570117133607278*^9, 3.570118351735216*^9, 3.5702707002273407`*^9, 
   3.570270801670926*^9, 3.832259672622574*^9, 3.832260237044642*^9, 
   3.8322604865206757`*^9, 3.832261301251122*^9, 3.832261629948289*^9, 
   3.832262680675187*^9, 3.83226271562306*^9, 3.8322629532001643`*^9, {
   3.8322632356425447`*^9, 3.832263290941293*^9}, 3.832263360135427*^9, {
   3.832263651989131*^9, 3.832263707085627*^9}, {3.832263762836509*^9, 
   3.832263784189345*^9}, 3.832264607733386*^9, 3.832265166291525*^9, 
   3.8322652238940926`*^9, 3.8322654956899233`*^9, 3.8322761806415453`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"99dfd3ac-e336-49e7-b5c7-273da6d9ee94"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Field equations:", "Subsection"]], "Subsection",
 CellChangeTimes->{{3.5701185766757317`*^9, 
  3.570118595888468*^9}},ExpressionUUID->"ceacb64c-949b-4425-a738-\
0877d5bb125e"],

Cell["\<\
LI is just a label index. We enforce the rule delta[-LI[1],LI[1]]\[Rule]1 \
because xTensor does not deal with it\
\>", "Text",
 CellChangeTimes->{{3.570118406566792*^9, 
  3.570118430632965*^9}},ExpressionUUID->"963770ff-c55f-400c-88e3-\
4b0ed510c799"],

Cell["Modified Einstein\[CloseCurlyQuote]s equations:", "Text",
 CellChangeTimes->{{3.570118447358275*^9, 
  3.570118452224324*^9}},ExpressionUUID->"63870f6f-248b-42ea-94da-\
db6fc025a04b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EQgrav", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        InterpretationBox[
         StyleBox["\[Kappa]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Kappa],
         Editable->False], 
        RowBox[{"(", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"VarD", "[", 
              RowBox[{
               RowBox[{"\[Delta]g", "[", 
                RowBox[{
                 RowBox[{"LI", "[", "1", "]"}], ",", "a", ",", "b"}], "]"}], 
               ",", "CD"}], "]"}], "[", 
             RowBox[{"-", " ", "LagrP"}], "]"}], 
            RowBox[{"Sqrt", "[", 
             RowBox[{"-", 
              RowBox[{"Detg", "[", "]"}]}], "]"}]], "/.", 
           RowBox[{
            RowBox[{"delta", "[", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"LI", "[", "1", "]"}]}], ",", 
              RowBox[{"LI", "[", "1", "]"}]}], "]"}], "\[Rule]", "1"}]}], 
          ")"}], ")"}]}], "//", "RicciToEinstein"}], "//", "ContractMetric"}],
      "//", "ToCanonical"}], "//", "SortCovDs"}], "//", 
   "Simplification"}]}]], "Input",
 CellChangeTimes->{{3.570114135051649*^9, 3.570114149718628*^9}, {
   3.570115699945792*^9, 3.570115757342409*^9}, {3.570115995535252*^9, 
   3.570115996122993*^9}, {3.570116121644434*^9, 3.57011612309144*^9}, 
   3.57011615705721*^9, 3.570116352824*^9, 3.570116523108358*^9, {
   3.570116953920871*^9, 3.570116954284226*^9}, {3.570116992706044*^9, 
   3.570117021655176*^9}, {3.5701183688964376`*^9, 3.570118389005102*^9}, {
   3.570118436841482*^9, 3.570118436899613*^9}, {3.832259684613592*^9, 
   3.8322596862227*^9}, {3.8322597175976877`*^9, 3.8322597215226784`*^9}, 
   3.8322616618765564`*^9, {3.8322696927353535`*^9, 3.8322697206961966`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"fbcfc170-8d5a-4ac6-8ac6-39bb92897a97"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox[GridBox[{
      {
       RowBox[{"G", "[", "\[Del]", "]"}], 
       StyleBox[GridBox[{
          {" ", " "},
          {"a", "b"}
         },
         GridBoxSpacings->{"Columns" -> {
             Offset[0.], {
              Offset[0.034999999999999996`]}, 
             Offset[0.]}, "Rows" -> {{
              Offset[0.]}}}],
        FontSize->Rational[39, 4]]}
     },
     GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.034999999999999996`]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`EinsteinCD[-$CellContext`a, -$CellContext`b],
   Editable->False], "+", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   InterpretationBox[
    StyleBox["\[Kappa]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Kappa],
    Editable->False], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       InterpretationBox[
        StyleBox["q",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`q,
        Editable->False], "2"], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`c],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`c],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["\[Phi]", "_"],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phib[],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Vs",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Vs,
        Editable->False], "[", 
       RowBox[{
        InterpretationBox[
         StyleBox["\[Phi]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Phi[],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[
          OverscriptBox["\[Phi]", "_"],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Phib[],
         Editable->False]}], "]"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Vv",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Vv,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          StyleBox["(",
           FontColor->RGBColor[1, 0, 0]], 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"B", 
                StyleBox[GridBox[{
                   {"a"},
                   {" "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "Rows" -> {{Center}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Bv[$CellContext`a],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {
                OverscriptBox["B", "_"], 
                StyleBox[GridBox[{
                   {" "},
                   {"a"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "Rows" -> {{Center}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Bvc[-$CellContext`a],
            Editable->False]}], 
          StyleBox[")",
           FontColor->RGBColor[1, 0, 0]]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
        Editable->False], "]"}]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Av[$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Av[-$CellContext`c]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Bvc[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Bv[$CellContext`c]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Bv[$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Bvc[-$CellContext`c]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], 
         OverscriptBox["\[Phi]", "_"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Phib[]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Phi[]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Phi[]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], 
         OverscriptBox["\[Phi]", "_"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Phib[]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Bv[$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Bvc[-$CellContext`a]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Bv[$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Bvc[-$CellContext`b]],
       Editable->False]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`c],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["\[Phi]", "_"],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phib[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Phi[]],
       Editable->False]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`c],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         OverscriptBox["\[Phi]", "_"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Phib[]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SubscriptBox["\[Del]", "a"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[-$CellContext`a][
         $CellContext`Av[$CellContext`c]]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bvc[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SubscriptBox["\[Del]", "a"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[-$CellContext`a][
         $CellContext`Bv[$CellContext`c]]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bv[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SubscriptBox["\[Del]", "a"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[-$CellContext`a][
         $CellContext`Bvc[$CellContext`c]]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bvc[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SubscriptBox["\[Del]", "b"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[-$CellContext`b][
         $CellContext`Bv[$CellContext`c]]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bv[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SubscriptBox["\[Del]", "b"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[-$CellContext`b][
         $CellContext`Bvc[$CellContext`c]]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[$CellContext`c][
         $CellContext`Av[-$CellContext`a]]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`a],
       Editable->False], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["q",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`q,
           Editable->False], "2"], " ", 
         InterpretationBox[
          StyleBox[GridBox[{
             {"A", 
              StyleBox[GridBox[{
                 {" "},
                 {"b"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
               FontSize->Rational[39, 4]]}
            },
            GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
            
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}}],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Av[-$CellContext`b],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox["\[Phi]",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Phi[],
          Editable->False], " ", 
         InterpretationBox[
          StyleBox[
           OverscriptBox["\[Phi]", "_"],
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`Phib[],
          Editable->False]}], "+", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "c"], 
           SubscriptBox["\[Del]", "b"], GridBox[{
             {"A", 
              StyleBox[GridBox[{
                 {"c"},
                 {" "}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
               FontSize->Rational[39, 4]]}
            },
            GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
            
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CD[-$CellContext`c][
          $CellContext`CD[-$CellContext`b][
           $CellContext`Av[$CellContext`c]]],
         Editable->False], "-", 
        InterpretationBox[
         StyleBox[
          RowBox[{
           SubscriptBox["\[Del]", "c"], 
           SuperscriptBox["\[Del]", "c"], GridBox[{
             {"A", 
              StyleBox[GridBox[{
                 {" "},
                 {"b"}
                },
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
               FontSize->Rational[39, 4]]}
            },
            GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
            
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[0.4]}, 
                Offset[0.2]}}]}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`CD[-$CellContext`c][
          $CellContext`CD[$CellContext`c][
           $CellContext`Av[-$CellContext`b]]],
         Editable->False]}], ")"}]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bvc[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[$CellContext`c][
         $CellContext`Bv[-$CellContext`a]]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bvc[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[$CellContext`c][
         $CellContext`Bv[-$CellContext`b]]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bv[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[$CellContext`c][
         $CellContext`Bvc[-$CellContext`a]]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bv[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`CD[$CellContext`c][
         $CellContext`Bvc[-$CellContext`b]]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Av[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Av[-$CellContext`a]],
       Editable->False]}], "-", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Av[-$CellContext`b]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Av[-$CellContext`a]],
       Editable->False]}], "+", 
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Av[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Av[-$CellContext`b]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "b"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`b][
        $CellContext`Bvc[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Bv[-$CellContext`a]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Bvc[-$CellContext`b]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Bv[-$CellContext`a]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "a"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`a][
        $CellContext`Bvc[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Bv[-$CellContext`b]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Bvc[-$CellContext`a]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Bv[-$CellContext`b]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], 
         OverscriptBox["\[Phi]", "_"]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Phib[]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "c"], "\[Phi]"}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`c][
        $CellContext`Phi[]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"d"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Av[-$CellContext`d]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "d"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`d][
        $CellContext`Av[$CellContext`c]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "d"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`d][
        $CellContext`Av[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "d"], GridBox[{
           {"A", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`d][
        $CellContext`Av[$CellContext`c]],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "c"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"d"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`c][
        $CellContext`Bvc[-$CellContext`d]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "d"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`d][
        $CellContext`Bv[$CellContext`c]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"g", 
           StyleBox[GridBox[{
              {" ", " "},
              {"a", "b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`g[-$CellContext`a, -$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SubscriptBox["\[Del]", "d"], GridBox[{
           {
            OverscriptBox["B", "_"], 
            StyleBox[GridBox[{
               {" "},
               {"c"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[-$CellContext`d][
        $CellContext`Bvc[-$CellContext`c]],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         SuperscriptBox["\[Del]", "d"], GridBox[{
           {"B", 
            StyleBox[GridBox[{
               {"c"},
               {" "}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`CD[$CellContext`d][
        $CellContext`Bv[$CellContext`c]],
       Editable->False]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bv[-$CellContext`b],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bvc[-$CellContext`a],
       Editable->False], " ", 
      RowBox[{
       SuperscriptBox[
        InterpretationBox[
         StyleBox["Vv",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Vv,
         Editable->False], "\[Prime]",
        MultilineFunction->None], "[", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          StyleBox["(",
           FontColor->RGBColor[1, 0, 0]], 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"B", 
                StyleBox[GridBox[{
                   {"a"},
                   {" "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "Rows" -> {{Center}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Bv[$CellContext`a],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {
                OverscriptBox["B", "_"], 
                StyleBox[GridBox[{
                   {" "},
                   {"a"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "Rows" -> {{Center}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Bvc[-$CellContext`a],
            Editable->False]}], 
          StyleBox[")",
           FontColor->RGBColor[1, 0, 0]]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
        Editable->False], "]"}]}], "+", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bv[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Bvc[-$CellContext`b],
       Editable->False], " ", 
      RowBox[{
       SuperscriptBox[
        InterpretationBox[
         StyleBox["Vv",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Vv,
         Editable->False], "\[Prime]",
        MultilineFunction->None], "[", 
       InterpretationBox[
        StyleBox[
         RowBox[{
          StyleBox["(",
           FontColor->RGBColor[1, 0, 0]], 
          RowBox[{
           InterpretationBox[
            StyleBox[GridBox[{
               {"B", 
                StyleBox[GridBox[{
                   {"a"},
                   {" "}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "Rows" -> {{Center}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Bv[$CellContext`a],
            Editable->False], " ", 
           InterpretationBox[
            StyleBox[GridBox[{
               {
                OverscriptBox["B", "_"], 
                StyleBox[GridBox[{
                   {" "},
                   {"a"}
                  },
                  GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                 FontSize->Rational[39, 4]]}
              },
              
              GridBoxAlignment->{
               "Columns" -> {{Center}}, "Rows" -> {{Center}}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.27999999999999997`]}, "Rows" -> {
                  Offset[0.2], {
                   Offset[0.4]}, 
                  Offset[0.2]}}],
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`Bvc[-$CellContext`a],
            Editable->False]}], 
          StyleBox[")",
           FontColor->RGBColor[1, 0, 0]]}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
        Editable->False], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.5701161573319817`*^9, 3.570116353483613*^9, {3.570116506245714*^9, 
   3.570116524306758*^9}, 3.5701166863130293`*^9, {3.570116939348905*^9, 
   3.5701169582852087`*^9}, {3.570116997375959*^9, 3.570117024070467*^9}, 
   3.570117136729538*^9, 3.570118371132779*^9, {3.570118433071496*^9, 
   3.570118438052463*^9}, 3.570270806697596*^9, 3.8322616639107313`*^9, 
   3.8322626864129972`*^9, 3.832262734465583*^9, 3.8322629563842297`*^9, {
   3.832263248441699*^9, 3.8322632962951765`*^9}, 3.8322633818300996`*^9, 
   3.8322636541123447`*^9, 3.8322637105590515`*^9, {3.832263766398263*^9, 
   3.8322637861891756`*^9}, 3.8322646108860645`*^9, 3.832265180025914*^9, 
   3.8322654320330276`*^9, 3.832265500154101*^9, {3.832269694095589*^9, 
   3.8322697261296377`*^9}, 3.8322761837095995`*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"2e296c4d-7000-49af-b3b5-a2ff13c78d94"]
}, Open  ]],

Cell["Scalar equation:", "Text",
 CellChangeTimes->{{3.570118454749255*^9, 3.570118458088773*^9}, 
   3.8322616909031105`*^9},ExpressionUUID->"b3fc464d-4b86-4b66-8a5e-\
6f0075a1a744"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EQscal", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"VarD", "[", 
                RowBox[{
                 RowBox[{"\[Delta]\[Phi]b", "[", 
                  RowBox[{"LI", "[", "1", "]"}], "]"}], ",", "CD"}], "]"}], 
               "[", "LagrP", "]"}], 
              RowBox[{"Sqrt", "[", 
               RowBox[{"-", 
                RowBox[{"Detg", "[", "]"}]}], "]"}]], "/.", 
             RowBox[{
              RowBox[{"delta", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"LI", "[", "1", "]"}]}], ",", 
                RowBox[{"LI", "[", "1", "]"}]}], "]"}], "\[Rule]", "1"}]}], "//",
             "ContractMetric"}], "//", "ToCanonical"}], ")"}], ")"}]}], "//", 
       "ScreenDollarIndices"}], "//", "RicciToEinstein"}], "//", 
     "ContractMetric"}], "//", "Simplification"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.832261700087186*^9, 3.8322617310623875`*^9}, 
   3.8322621701295433`*^9, {3.832262605858431*^9, 3.8322626112441487`*^9}, 
   3.8322630056434107`*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"0fa65c1d-6513-47a2-8f3a-3c4447609b89"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], "2"]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {" "},
           {"a"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[-$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"a"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Av[$CellContext`a]],
    Editable->False]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "a"], 
     SuperscriptBox["\[Del]", "a"], "\[Phi]"}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CD[-$CellContext`a][
    $CellContext`CD[$CellContext`a][
     $CellContext`Phi[]]],
   Editable->False], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vs",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vs,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.8322617150562325`*^9, 3.832261732026729*^9}, 
   3.8322621709430103`*^9, {3.832262608421502*^9, 3.8322626150162487`*^9}, 
   3.8322626984537315`*^9, 3.832262738801106*^9, 3.832262958131627*^9, 
   3.8322630059090853`*^9, {3.8322632714526854`*^9, 3.832263298426489*^9}, 
   3.832263384839452*^9, 3.832263712775316*^9, {3.8322637671305466`*^9, 
   3.832263786535172*^9}, 3.8322646118238444`*^9, 3.8322651356743875`*^9, 
   3.8322651823362427`*^9, 3.8322654433363895`*^9, 3.8322655023474364`*^9, 
   3.832269744829872*^9, 3.8322761843700857`*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"9cf8b28e-c743-433e-8ec3-f5cede2be9ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EQEM", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{
              RowBox[{"VarD", "[", 
               RowBox[{
                RowBox[{"\[Delta]A", "[", 
                 RowBox[{
                  RowBox[{"LI", "[", "1", "]"}], ",", 
                  RowBox[{"-", "a"}]}], "]"}], ",", "CD"}], "]"}], "[", 
              "LagrP", "]"}], 
             RowBox[{"Sqrt", "[", 
              RowBox[{"-", 
               RowBox[{"Detg", "[", "]"}]}], "]"}]], "/.", 
            RowBox[{
             RowBox[{"delta", "[", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"LI", "[", "1", "]"}]}], ",", 
               RowBox[{"LI", "[", "1", "]"}]}], "]"}], "\[Rule]", "1"}]}], "//",
            "ContractMetric"}], "//", "ToCanonical"}], ")"}], ")"}], "//", 
       "ScreenDollarIndices"}], "//", "RicciToEinstein"}], "//", 
     "ContractMetric"}], "//", "Simplification"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.570114151339404*^9, 3.570114152169366*^9}, {
   3.570116101114697*^9, 3.570116131913559*^9}, 3.570116374016409*^9, {
   3.5701169678646812`*^9, 3.570116968173604*^9}, 3.570117028844595*^9, {
   3.832261676332073*^9, 3.8322616792791505`*^9}, 3.8322630095571423`*^9, {
   3.8322633885014453`*^9, 3.832263414292161*^9}, {3.8322637282201157`*^9, 
   3.832263731166995*^9}, 3.8322655223841825`*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"030c76f4-5169-4835-859a-2efc583b9b54"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], "2"]}], " ", 
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`a],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     OverscriptBox["\[Phi]", "_"],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phib[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "a"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`a][
     $CellContext`Phi[]],
    Editable->False]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SuperscriptBox["\[Del]", "a"], 
      OverscriptBox["\[Phi]", "_"]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[$CellContext`a][
     $CellContext`Phib[]],
    Editable->False]}], "-", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "b"], 
     SuperscriptBox["\[Del]", "a"], GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"b"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CD[-$CellContext`b][
    $CellContext`CD[$CellContext`a][
     $CellContext`Av[$CellContext`b]]],
   Editable->False], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "b"], 
     SuperscriptBox["\[Del]", "b"], GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CD[-$CellContext`b][
    $CellContext`CD[$CellContext`b][
     $CellContext`Av[$CellContext`a]]],
   Editable->False]}]], "Output",
 CellChangeTimes->{{3.5701161334359818`*^9, 3.570116158189845*^9}, 
   3.570116374294209*^9, 3.570116542566491*^9, 3.570116968787313*^9, 
   3.570117029857665*^9, 3.570117140355611*^9, 3.5701184398439913`*^9, 
   3.570270806985458*^9, {3.832263407481167*^9, 3.832263414819592*^9}, {
   3.832263713997506*^9, 3.8322637316355276`*^9}, {3.8322637681085567`*^9, 
   3.832263787338477*^9}, 3.832264614534855*^9, 3.83226513883049*^9, 
   3.832265446874048*^9, {3.8322655136312017`*^9, 3.8322655230691643`*^9}, 
   3.8322697462701917`*^9, 3.8322761857034616`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"57a1f854-f824-4ec1-99a8-7fa9732a1db2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EQVEC", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{
               RowBox[{"VarD", "[", 
                RowBox[{
                 RowBox[{"\[Delta]Bb", "[", 
                  RowBox[{
                   RowBox[{"LI", "[", "1", "]"}], ",", 
                   RowBox[{"-", "a"}]}], "]"}], ",", "CD"}], "]"}], "[", 
               "LagrP", "]"}], 
              RowBox[{"Sqrt", "[", 
               RowBox[{"-", 
                RowBox[{"Detg", "[", "]"}]}], "]"}]], "/.", 
             RowBox[{
              RowBox[{"delta", "[", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"LI", "[", "1", "]"}]}], ",", 
                RowBox[{"LI", "[", "1", "]"}]}], "]"}], "\[Rule]", "1"}]}], "//",
             "ContractMetric"}], "//", "ToCanonical"}], ")"}], ")"}]}], "//", 
       "ScreenDollarIndices"}], "//", "RicciToEinstein"}], "//", 
     "ContractMetric"}], "//", "Simplification"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8322664315524216`*^9, 3.8322664475426254`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"f227637d-da44-4ede-b993-40a5b6bc9f3c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], 
      SuperscriptBox["\[Del]", "a"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"b"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`CD[$CellContext`a][
      $CellContext`Bv[$CellContext`b]]],
    Editable->False]}], "+", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "b"], 
     SuperscriptBox["\[Del]", "b"], GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CD[-$CellContext`b][
    $CellContext`CD[$CellContext`b][
     $CellContext`Bv[$CellContext`a]]],
   Editable->False], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bv[$CellContext`a],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vv",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vv,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bv[$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bvc[-$CellContext`a],
         Editable->False]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
     Editable->False], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.832266438872512*^9, 3.832266447944442*^9}, 
   3.8322697473719997`*^9, 3.832276188111433*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"30aab972-f12c-4ec0-98ab-dbfe5cf0e6b2"]
}, Open  ]],

Cell["Trying to write in terms of the covariante derivative", "Text",
 CellChangeTimes->{{3.832268921264144*^9, 
  3.8322689294635444`*^9}},ExpressionUUID->"771d53da-e68e-405f-9c51-\
8ba40cfe92a6"],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"Dd", ",", "Db", ",", "D2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8322690470614347`*^9, 3.832269051011731*^9}, {
  3.8322700219076877`*^9, 3.832270023157675*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"e85ebf74-c289-4afe-a073-d14c1ee3f138"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Dd", "[", "a", "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<D\[Phi]\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"D2", "[", "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<DD\[Phi]\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Db", "[", "a", "]"}], ",", "M", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", 
    "\"\<\!\(\*OverscriptBox[\(D\), \(_\)]\)\!\(\*OverscriptBox[\(\[Phi]\), \
\(_\)]\)\>\""}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8322690440916853`*^9, 3.8322690536681433`*^9}, {
  3.8322690901272254`*^9, 3.8322691194098606`*^9}, {3.832270027338562*^9, 
  3.832270032881197*^9}, {3.8322701486394625`*^9, 3.8322701512804403`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"a52a1eee-9ea1-4e0d-a51a-6b6843c17508"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Dd", "[", "a", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Dd[$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322691237419105`*^9, 3.8322697494297953`*^9, 
  3.83227003488652*^9, 3.832270152891904*^9, 3.832276190804798*^9},
 CellLabel->
  "During evaluation of \
In[46]:=",ExpressionUUID->"fa81a7ed-12fb-40fc-92d1-5aa5354936d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"D2", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`D2[], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322691237419105`*^9, 3.8322697494297953`*^9, 
  3.83227003488652*^9, 3.832270152891904*^9, 3.832276190806801*^9},
 CellLabel->
  "During evaluation of \
In[46]:=",ExpressionUUID->"cd71ff1a-6d16-4682-9a86-90aab500f145"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Db", "[", "a", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Db[$CellContext`a], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{3.8322691237419105`*^9, 3.8322697494297953`*^9, 
  3.83227003488652*^9, 3.832270152891904*^9, 3.8322761908128057`*^9},
 CellLabel->
  "During evaluation of \
In[46]:=",ExpressionUUID->"e8110c2c-318b-424e-b647-88d34ec0fbc3"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rulesf", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "a", "]"}], "[", 
       RowBox[{"Phi", "[", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Dd", "[", "a", "]"}], "+", 
       RowBox[{"I", " ", "q", " ", 
        RowBox[{"Phi", "[", "]"}], " ", 
        RowBox[{"Av", "[", "a", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "a", "]"}], "[", 
       RowBox[{"Phib", "[", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Db", "[", "a", "]"}], "-", 
       RowBox[{"I", " ", "q", " ", 
        RowBox[{"Phib", "[", "]"}], " ", 
        RowBox[{"Av", "[", "a", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "a"}], "]"}], "[", 
       RowBox[{"Phi", "[", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Dd", "[", 
        RowBox[{"-", "a"}], "]"}], "+", 
       RowBox[{"I", " ", "q", " ", 
        RowBox[{"Phi", "[", "]"}], " ", 
        RowBox[{"Av", "[", 
         RowBox[{"-", "a"}], "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "a"}], "]"}], "[", 
       RowBox[{"Phib", "[", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Db", "[", 
        RowBox[{"-", "a"}], "]"}], "-", 
       RowBox[{"I", " ", "q", " ", 
        RowBox[{"Phib", "[", "]"}], " ", 
        RowBox[{"Av", "[", 
         RowBox[{"-", "a"}], "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", 
        RowBox[{"-", "a"}], "]"}], "[", 
       RowBox[{"Dd", "[", "a", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"D2", "[", "]"}], "+", 
       RowBox[{"I", " ", "q", " ", 
        RowBox[{"Av", "[", 
         RowBox[{"-", "a"}], "]"}], 
        RowBox[{"Dd", "[", "a", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Av", "[", "a", "]"}], 
       RowBox[{
        RowBox[{"CD", "[", 
         RowBox[{"-", "a"}], "]"}], "[", 
        RowBox[{"Phi", "[", "]"}], "]"}]}], "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"Av", "[", "a", "]"}], 
        RowBox[{"Dd", "[", 
         RowBox[{"-", "a"}], "]"}]}], "+", 
       RowBox[{"I", " ", "q", " ", 
        RowBox[{"Phi", "[", "]"}], " ", 
        RowBox[{"Av", "[", 
         RowBox[{"-", "a"}], "]"}], 
        RowBox[{"Av", "[", "a", "]"}]}]}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rulesf2", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"rulesf", ",", 
     RowBox[{"rulesf", "/.", 
      RowBox[{"a", "\[Rule]", "b"}]}], ",", 
     RowBox[{"rulesf", "/.", 
      RowBox[{"a", "\[Rule]", "c"}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8322689375975904`*^9, 3.832269000947437*^9}, {
   3.832269157583117*^9, 3.832269212429587*^9}, {3.832269439352523*^9, 
   3.8322694407988367`*^9}, {3.8322694993149843`*^9, 3.832269539829157*^9}, {
   3.8322695711001143`*^9, 3.832269606878147*^9}, {3.832269643551643*^9, 
   3.832269656610547*^9}, {3.8322699958528194`*^9, 3.832270099530057*^9}, 
   3.83227016600635*^9, {3.832270487614738*^9, 3.8322705438057795`*^9}, {
   3.8322705795756545`*^9, 3.832270592277376*^9}, {3.832270642909955*^9, 
   3.8322707368376923`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"d8209fb2-f534-465f-93bc-28cbf3c6b0e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rulesf2", "[", 
  RowBox[{"[", 
   RowBox[{"-", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8322704161042*^9, 3.8322704185874896`*^9}, {
  3.832270623766404*^9, 3.8322706393933287`*^9}, {3.8322707680799236`*^9, 
  3.8322707712521915`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"cbe7933f-3b16-4807-b564-e7c46c9fa3c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"A", 
        StyleBox[GridBox[{
           {"c"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Av[$CellContext`c],
    Editable->False], " ", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "c"], "\[Phi]"}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`c][
     $CellContext`Phi[]],
    Editable->False]}], "\[Rule]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"c"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Av[$CellContext`c],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"D\[Phi]", 
         StyleBox[GridBox[{
            {" "},
            {"c"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Dd[-$CellContext`c],
     Editable->False]}], "+", 
   RowBox[{"\[ImaginaryI]", " ", 
    InterpretationBox[
     StyleBox["q",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`q,
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {" "},
            {"c"}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Av[-$CellContext`c],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox[GridBox[{
        {"A", 
         StyleBox[GridBox[{
            {"c"},
            {" "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Av[$CellContext`c],
     Editable->False], " ", 
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`Phi[],
     Editable->False]}]}]}]], "Output",
 CellChangeTimes->{
  3.8322704190044312`*^9, 3.832270523579547*^9, {3.832270625485221*^9, 
   3.832270639694105*^9}, {3.832270768727512*^9, 3.8322707717701793`*^9}, 
   3.8322761937773714`*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"60c8edfd-ae63-4b5b-9e68-900aae44def6"]
}, Open  ]],

Cell["And for the stress tensor", "Text",
 CellChangeTimes->{{3.832269222512615*^9, 
  3.8322692272212467`*^9}},ExpressionUUID->"55967b28-52d6-498f-8e4f-\
8412cdaa91bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"Fm", ",", "Bm", ",", "Bmb"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.832269247373023*^9, 3.8322692629878583`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"a13fa55c-0fd6-4e6e-b849-66de0eed4557"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Fm", "[", 
    RowBox[{"a", ",", "b"}], "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<F\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Bm", "[", 
    RowBox[{"a", ",", "b"}], "]"}], ",", "M", ",", 
   RowBox[{"PrintAs", "\[Rule]", "\"\<B\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Bmb", "[", 
    RowBox[{"a", ",", "b"}], "]"}], ",", "M", ",", 
   RowBox[{
   "PrintAs", "\[Rule]", "\"\<\!\(\*OverscriptBox[\(B\), \(_\)]\)\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.832269235022414*^9, 3.8322692933186316`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"e0e6660d-6b3c-49ac-ba20-240bf8827021"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Fm", "[", 
    RowBox[{"a", ",", "b"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Fm[$CellContext`a, $CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8322692939435005`*^9, 3.8322695489459867`*^9, 3.832269752238909*^9, 
   3.8322701683838673`*^9, {3.832270496333219*^9, 3.8322705253931446`*^9}, 
   3.8322761950335455`*^9},
 CellLabel->
  "During evaluation of \
In[53]:=",ExpressionUUID->"39f8dadc-c60b-49f3-a9b1-5635ce869649"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Bm", "[", 
    RowBox[{"a", ",", "b"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Bm[$CellContext`a, $CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8322692939435005`*^9, 3.8322695489459867`*^9, 3.832269752238909*^9, 
   3.8322701683838673`*^9, {3.832270496333219*^9, 3.8322705253931446`*^9}, 
   3.8322761950355473`*^9},
 CellLabel->
  "During evaluation of \
In[53]:=",ExpressionUUID->"47bec921-46f9-41c8-a37f-84aadb392ea0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Bmb", "[", 
    RowBox[{"a", ",", "b"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Bmb[$CellContext`a, $CellContext`b], ". ", ""],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8322692939435005`*^9, 3.8322695489459867`*^9, 3.832269752238909*^9, 
   3.8322701683838673`*^9, {3.832270496333219*^9, 3.8322705253931446`*^9}, 
   3.832276195042556*^9},
 CellLabel->
  "During evaluation of \
In[53]:=",ExpressionUUID->"588b090a-80e9-4930-bf02-fb605656426c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["rulesf"], "Input",
 CellChangeTimes->{{3.832270305084495*^9, 3.832270306684849*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"39fcb1ac-ca12-48e2-8f16-3bc9f0179d2b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "a"], "\[Phi]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[$CellContext`a][
      $CellContext`Phi[]],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"D\[Phi]", 
          StyleBox[GridBox[{
             {"a"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Dd[$CellContext`a],
      Editable->False], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SuperscriptBox["\[Del]", "a"], 
       OverscriptBox["\[Phi]", "_"]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[$CellContext`a][
      $CellContext`Phib[]],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{
           OverscriptBox["D", "_"], 
           OverscriptBox["\[Phi]", "_"]}], 
          StyleBox[GridBox[{
             {"a"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Db[$CellContext`a],
      Editable->False], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["\[Phi]", "_"],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phib[],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "a"], "\[Phi]"}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[-$CellContext`a][
      $CellContext`Phi[]],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"D\[Phi]", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Dd[-$CellContext`a],
      Editable->False], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "a"], 
       OverscriptBox["\[Phi]", "_"]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[-$CellContext`a][
      $CellContext`Phib[]],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{
           OverscriptBox["D", "_"], 
           OverscriptBox["\[Phi]", "_"]}], 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Db[-$CellContext`a],
      Editable->False], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["\[Phi]", "_"],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phib[],
       Editable->False]}]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      RowBox[{
       SubscriptBox["\[Del]", "a"], GridBox[{
         {"D\[Phi]", 
          StyleBox[GridBox[{
             {"a"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`CD[-$CellContext`a][
      $CellContext`Dd[$CellContext`a]],
     Editable->False], "\[Rule]", 
    RowBox[{
     InterpretationBox[
      StyleBox["DD\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`D2[],
      Editable->False], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"D\[Phi]", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Dd[$CellContext`a],
       Editable->False]}]}]}], ",", 
   RowBox[{
    RowBox[{
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {"a"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], "\[Phi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Phi[]],
      Editable->False]}], "\[Rule]", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"D\[Phi]", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Dd[-$CellContext`a],
       Editable->False]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[-$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Av[$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False]}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.832270306986207*^9, {3.8322704973081865`*^9, 3.8322705259401674`*^9}, 
   3.8322761961821437`*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"cc720c2c-01fd-4188-b407-83b743f2ab81"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rulesFB", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "a", "]"}], "[", 
       RowBox[{"Av", "[", "b", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Fm", "[", 
        RowBox[{"a", ",", "b"}], "]"}], "+", 
       RowBox[{
        RowBox[{"CD", "[", "b", "]"}], "[", 
        RowBox[{"Av", "[", "a", "]"}], "]"}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"CD", "[", "a", "]"}], "[", 
       RowBox[{"Bv", "[", "b", "]"}], "]"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Bm", "[", 
        RowBox[{"a", ",", "b"}], "]"}], "+", 
       RowBox[{
        RowBox[{"CD", "[", "b", "]"}], "[", 
        RowBox[{"Bv", "[", "a", "]"}], "]"}]}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.832269306284539*^9, 3.832269369062896*^9}, {
   3.832269926634199*^9, 3.83226993266842*^9}, {3.8322701784860673`*^9, 
   3.8322701947176847`*^9}, 3.8322702283093405`*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"0bb42bba-af8d-472a-8bad-9013e88489f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplification", "[", 
  RowBox[{"EQgrav", "/.", "rulesf2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8322694166000357`*^9, 3.8322694171088076`*^9}, {
   3.832269449938035*^9, 3.832269455167325*^9}, {3.832269496562373*^9, 
   3.8322695129234686`*^9}, {3.8322697664230556`*^9, 
   3.8322697938006096`*^9}, {3.8322698834120193`*^9, 3.832269883823927*^9}, {
   3.8322699431332865`*^9, 3.832269945516101*^9}, {3.8322702849986978`*^9, 
   3.8322702910127163`*^9}, {3.832270345006631*^9, 3.832270400991592*^9}, {
   3.8322704352551084`*^9, 3.83227046934352*^9}, 3.832270545923661*^9, {
   3.8322706579222946`*^9, 3.832270658360693*^9}, {3.8322707551697435`*^9, 
   3.8322707636606054`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"cd346fe5-c129-496e-a208-62c03f2cd88d"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"4", " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{"G", "[", "\[Del]", "]"}], 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`EinsteinCD[-$CellContext`a, -$CellContext`b],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{
           OverscriptBox["D", "_"], 
           OverscriptBox["\[Phi]", "_"]}], 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Db[-$CellContext`b],
      Editable->False], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"D\[Phi]", 
            StyleBox[GridBox[{
               {" "},
               {"a"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Dd[-$CellContext`a],
        Editable->False], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        InterpretationBox[
         StyleBox["q",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`q,
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Av[-$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox["\[Phi]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Phi[],
         Editable->False]}]}], ")"}]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          RowBox[{
           OverscriptBox["D", "_"], 
           OverscriptBox["\[Phi]", "_"]}], 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Db[-$CellContext`a],
      Editable->False], " ", 
     RowBox[{"(", 
      RowBox[{
       InterpretationBox[
        StyleBox[GridBox[{
           {"D\[Phi]", 
            StyleBox[GridBox[{
               {" "},
               {"b"}
              },
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.], {
                   Offset[0.034999999999999996`]}, 
                  Offset[0.]}, "Rows" -> {{
                   Offset[0.]}}}],
             FontSize->Rational[39, 4]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.034999999999999996`]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Dd[-$CellContext`b],
        Editable->False], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        InterpretationBox[
         StyleBox["q",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`q,
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {"A", 
             StyleBox[GridBox[{
                {" "},
                {"b"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Av[-$CellContext`b],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox["\[Phi]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Phi[],
         Editable->False]}]}], ")"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"D\[Phi]", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Dd[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"D\[Phi]", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Dd[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "+", 
    RowBox[{
     SuperscriptBox[
      InterpretationBox[
       StyleBox["q",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`q,
       Editable->False], "2"], " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"c"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`c],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {"c"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[$CellContext`c],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Vs",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Vs,
       Editable->False], "[", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[Phi]",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Phi[],
        Editable->False], " ", 
       InterpretationBox[
        StyleBox[
         OverscriptBox["\[Phi]", "_"],
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Phib[],
        Editable->False]}], "]"}]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     RowBox[{
      InterpretationBox[
       StyleBox["Vv",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Vv,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         StyleBox["(",
          FontColor->RGBColor[1, 0, 0]], 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"B", 
               StyleBox[GridBox[{
                  {"a"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Bv[$CellContext`a],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {
               OverscriptBox["B", "_"], 
               StyleBox[GridBox[{
                  {" "},
                  {"a"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Bvc[-$CellContext`a],
           Editable->False]}], 
         StyleBox[")",
          FontColor->RGBColor[1, 0, 0]]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
       Editable->False], "]"}]}], "-", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Av[$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Av[-$CellContext`c]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Bvc[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Bv[$CellContext`c]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Bv[$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Bvc[-$CellContext`c]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Bv[$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Bvc[-$CellContext`a]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Bv[$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Bvc[-$CellContext`b]],
      Editable->False]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {"c"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[$CellContext`c],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], "\[Phi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Phi[]],
      Editable->False]}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     InterpretationBox[
      StyleBox["q",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`q,
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {"c"},
             {" "}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[$CellContext`c],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        OverscriptBox["\[Phi]", "_"]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Phib[]],
      Editable->False]}], "+", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[-$CellContext`a][
        $CellContext`Av[$CellContext`c]]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[-$CellContext`a][
        $CellContext`Bv[$CellContext`c]]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SubscriptBox["\[Del]", "a"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[-$CellContext`a][
        $CellContext`Bvc[$CellContext`c]]],
      Editable->False]}], "+", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[-$CellContext`b][
        $CellContext`Av[$CellContext`c]]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[-$CellContext`b][
        $CellContext`Bv[$CellContext`c]]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SubscriptBox["\[Del]", "b"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[-$CellContext`b][
        $CellContext`Bvc[$CellContext`c]]],
      Editable->False]}], "-", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[$CellContext`c][
        $CellContext`Av[-$CellContext`a]]],
      Editable->False]}], "-", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"A", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Av[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[$CellContext`c][
        $CellContext`Av[-$CellContext`b]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[$CellContext`c][
        $CellContext`Bv[-$CellContext`a]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[$CellContext`c][
        $CellContext`Bv[-$CellContext`b]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[$CellContext`c][
        $CellContext`Bvc[-$CellContext`a]]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`CD[$CellContext`c][
        $CellContext`Bvc[-$CellContext`b]]],
      Editable->False]}], "+", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Av[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Av[-$CellContext`a]],
      Editable->False]}], "-", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Av[-$CellContext`b]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Av[-$CellContext`a]],
      Editable->False]}], "+", 
    RowBox[{"2", " ", 
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Av[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Av[-$CellContext`b]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "b"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`b][
       $CellContext`Bvc[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Bv[-$CellContext`a]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Bvc[-$CellContext`b]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Bv[-$CellContext`a]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "a"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`a][
       $CellContext`Bvc[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Bv[-$CellContext`b]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"a"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Bvc[-$CellContext`a]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {" "},
              {"b"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Bv[-$CellContext`b]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], 
        OverscriptBox["\[Phi]", "_"]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Phib[]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "c"], "\[Phi]"}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`c][
       $CellContext`Phi[]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"d"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Av[-$CellContext`d]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "d"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`d][
       $CellContext`Av[$CellContext`c]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "d"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`d][
       $CellContext`Av[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "d"], GridBox[{
          {"A", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`d][
       $CellContext`Av[$CellContext`c]],
      Editable->False]}], "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "c"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"d"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`c][
       $CellContext`Bvc[-$CellContext`d]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "d"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`d][
       $CellContext`Bv[$CellContext`c]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"g", 
          StyleBox[GridBox[{
             {" ", " "},
             {"a", "b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`g[-$CellContext`a, -$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SubscriptBox["\[Del]", "d"], GridBox[{
          {
           OverscriptBox["B", "_"], 
           StyleBox[GridBox[{
              {" "},
              {"c"}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[-$CellContext`d][
       $CellContext`Bvc[-$CellContext`c]],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       RowBox[{
        SuperscriptBox["\[Del]", "d"], GridBox[{
          {"B", 
           StyleBox[GridBox[{
              {"c"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}]}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`CD[$CellContext`d][
       $CellContext`Bv[$CellContext`c]],
      Editable->False]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[-$CellContext`b],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`a],
      Editable->False], " ", 
     RowBox[{
      SuperscriptBox[
       InterpretationBox[
        StyleBox["Vv",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Vv,
        Editable->False], "\[Prime]",
       MultilineFunction->None], "[", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         StyleBox["(",
          FontColor->RGBColor[1, 0, 0]], 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"B", 
               StyleBox[GridBox[{
                  {"a"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Bv[$CellContext`a],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {
               OverscriptBox["B", "_"], 
               StyleBox[GridBox[{
                  {" "},
                  {"a"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Bvc[-$CellContext`a],
           Editable->False]}], 
         StyleBox[")",
          FontColor->RGBColor[1, 0, 0]]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
       Editable->False], "]"}]}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Kappa]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Kappa],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {"B", 
          StyleBox[GridBox[{
             {" "},
             {"a"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bv[-$CellContext`a],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[GridBox[{
         {
          OverscriptBox["B", "_"], 
          StyleBox[GridBox[{
             {" "},
             {"b"}
            },
            GridBoxSpacings->{"Columns" -> {
                Offset[0.], {
                 Offset[0.034999999999999996`]}, 
                Offset[0.]}, "Rows" -> {{
                 Offset[0.]}}}],
           FontSize->Rational[39, 4]]}
        },
        GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.034999999999999996`]}, 
            Offset[0.27999999999999997`]}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}}],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Bvc[-$CellContext`b],
      Editable->False], " ", 
     RowBox[{
      SuperscriptBox[
       InterpretationBox[
        StyleBox["Vv",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`Vv,
        Editable->False], "\[Prime]",
       MultilineFunction->None], "[", 
      InterpretationBox[
       StyleBox[
        RowBox[{
         StyleBox["(",
          FontColor->RGBColor[1, 0, 0]], 
         RowBox[{
          InterpretationBox[
           StyleBox[GridBox[{
              {"B", 
               StyleBox[GridBox[{
                  {"a"},
                  {" "}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Bv[$CellContext`a],
           Editable->False], " ", 
          InterpretationBox[
           StyleBox[GridBox[{
              {
               OverscriptBox["B", "_"], 
               StyleBox[GridBox[{
                  {" "},
                  {"a"}
                 },
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                    Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
                FontSize->Rational[39, 4]]}
             },
             GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.27999999999999997`]}, "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}}],
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`Bvc[-$CellContext`a],
           Editable->False]}], 
         StyleBox[")",
          FontColor->RGBColor[1, 0, 0]]}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
       Editable->False], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.832270440980996*^9, 3.8322704602577343`*^9}, {
   3.832270499616936*^9, 3.832270546532935*^9}, {3.832270745643916*^9, 
   3.8322707642741623`*^9}, 3.832276197662135*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"810b309c-895e-4d00-8b2f-5a1f0893ea66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"EQEM", "//.", "rulesf"}], "/.", "rulesFB"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.83226914241337*^9, 3.8322692069065237`*^9}, {
   3.8322693791220493`*^9, 3.8322694106499434`*^9}, 3.832269508108533*^9, 
   3.8322699526441813`*^9, {3.832270259735649*^9, 3.8322702628190084`*^9}, {
   3.8322705079720736`*^9, 3.8322705082593346`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"6390c29b-74a8-4f82-bbbe-f2a9ec2cd420"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   InterpretationBox[
    StyleBox["q",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`q,
    Editable->False], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {
           RowBox[{
            OverscriptBox["D", "_"], 
            OverscriptBox["\[Phi]", "_"]}], 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Db[$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox["\[Phi]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phi[],
       Editable->False]}], "-", 
     RowBox[{
      InterpretationBox[
       StyleBox[GridBox[{
          {"D\[Phi]", 
           StyleBox[GridBox[{
              {"a"},
              {" "}
             },
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.], {
                  Offset[0.034999999999999996`]}, 
                 Offset[0.]}, "Rows" -> {{
                  Offset[0.]}}}],
            FontSize->Rational[39, 4]]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.034999999999999996`]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Dd[$CellContext`a],
       Editable->False], " ", 
      InterpretationBox[
       StyleBox[
        OverscriptBox["\[Phi]", "_"],
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`Phib[],
       Editable->False]}]}], ")"}]}], "-", 
  InterpretationBox[
   StyleBox[
    RowBox[{
     SubscriptBox["\[Del]", "b"], GridBox[{
       {"F", 
        StyleBox[GridBox[{
           {"a", "b"},
           {" ", " "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}]}],
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`CD[-$CellContext`b][
    $CellContext`Fm[$CellContext`a, $CellContext`b]],
   Editable->False]}]], "Output",
 CellChangeTimes->{{3.832269144283594*^9, 3.832269207115531*^9}, {
   3.832269375775172*^9, 3.832269382979206*^9}, {3.8322695069845114`*^9, 
   3.832269508445839*^9}, 3.832269952924028*^9, 3.8322700869503345`*^9, {
   3.832270230581932*^9, 3.832270257805745*^9}, {3.8322705036901393`*^9, 
   3.832270508566136*^9}, 3.8322709645203257`*^9, 3.832276198235773*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"81453753-7b85-4d41-940d-5d16cff26138"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EQscal", "//.", "rulesf"}], "/.", "rulesFB"}], "//", 
   "Simplification"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.832269407310911*^9, 3.832269407474059*^9}, {
  3.832269956026957*^9, 3.832269960195944*^9}, {3.8322702376242027`*^9, 
  3.8322702462854605`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"0c0fa0c2-2c8d-4ccb-acf3-ba6fce331673"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   StyleBox["DD\[Phi]",
    ShowAutoStyles->False,
    AutoSpacing->False],
   $CellContext`D2[],
   Editable->False], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Phi[],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vs",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vs,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    RowBox[{
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phi[],
      Editable->False], " ", 
     InterpretationBox[
      StyleBox[
       OverscriptBox["\[Phi]", "_"],
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Phib[],
      Editable->False]}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.8322699606209984`*^9, {3.8322700884126625`*^9, 3.832270103540374*^9}, {
   3.832270231281568*^9, 3.832270246912448*^9}, 3.832270966499649*^9, 
   3.8322761993293037`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"5079fc9f-2db6-4b21-ab63-b4d031cbd948"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"EQVEC", "//.", "rulesf"}], "/.", "rulesFB"}], "//", 
   "Simplification"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.832270971018755*^9, 3.8322709861584234`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"08308a12-5d26-4b83-a406-2e8a2d78c427"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   InterpretationBox[
    StyleBox[
     RowBox[{
      SubscriptBox["\[Del]", "b"], GridBox[{
        {"B", 
         StyleBox[GridBox[{
            {"a", "b"},
            {" ", " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "Rows" -> {{
                Offset[0.]}}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}}]}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`CD[-$CellContext`b][
     $CellContext`Bm[$CellContext`a, $CellContext`b]],
    Editable->False]}], "-", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {"B", 
        StyleBox[GridBox[{
           {"a"},
           {" "}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "Rows" -> {{
               Offset[0.]}}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`Bv[$CellContext`a],
    Editable->False], " ", 
   RowBox[{
    SuperscriptBox[
     InterpretationBox[
      StyleBox["Vv",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`Vv,
      Editable->False], "\[Prime]",
     MultilineFunction->None], "[", 
    InterpretationBox[
     StyleBox[
      RowBox[{
       StyleBox["(",
        FontColor->RGBColor[1, 0, 0]], 
       RowBox[{
        InterpretationBox[
         StyleBox[GridBox[{
            {"B", 
             StyleBox[GridBox[{
                {"a"},
                {" "}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bv[$CellContext`a],
         Editable->False], " ", 
        InterpretationBox[
         StyleBox[GridBox[{
            {
             OverscriptBox["B", "_"], 
             StyleBox[GridBox[{
                {" "},
                {"a"}
               },
               GridBoxSpacings->{"Columns" -> {
                   Offset[0.], {
                    Offset[0.034999999999999996`]}, 
                   Offset[0.]}, "Rows" -> {{
                    Offset[0.]}}}],
              FontSize->Rational[39, 4]]}
           },
           GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.034999999999999996`]}, 
               Offset[0.27999999999999997`]}, "Rows" -> {
               Offset[0.2], {
                Offset[0.4]}, 
               Offset[0.2]}}],
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`Bvc[-$CellContext`a],
         Editable->False]}], 
       StyleBox[")",
        FontColor->RGBColor[1, 0, 0]]}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Scalar[$CellContext`Bv[$CellContext`a] \
$CellContext`Bvc[-$CellContext`a]],
     Editable->False], "]"}]}]}]], "Output",
 CellChangeTimes->{3.8322709865483046`*^9, 3.832276200363229*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"9cfeb527-48e4-4b2d-8f5d-1db8b847d4c7"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1916, 986},
WindowMargins->{{Automatic, -5}, {Automatic, 2}},
TaggingRules->{"TryRealOnly" -> False},
Magnification:>0.9 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 299, 5, 26, "Input",ExpressionUUID->"434b25cc-c541-48b1-b239-2b9ee6289bcf"],
Cell[CellGroupData[{
Cell[882, 29, 158, 3, 87, "Title",ExpressionUUID->"1607a1e3-b0eb-468d-8737-db6480abe9f6"],
Cell[CellGroupData[{
Cell[1065, 36, 190, 3, 48, "Subsection",ExpressionUUID->"9c2fd5d9-439f-45f8-b836-e70f694d43cc"],
Cell[1258, 41, 166, 3, 31, "Text",ExpressionUUID->"c2206045-1cf4-4472-a58f-b569c0231c28"],
Cell[CellGroupData[{
Cell[1449, 48, 665, 13, 99, "Input",ExpressionUUID->"591e6f6a-550a-4bdf-a924-ceca156b6f94"],
Cell[CellGroupData[{
Cell[2139, 65, 1346, 21, 21, "Print",ExpressionUUID->"dc920ace-d1fd-42a5-ad93-fe3561bff9a3"],
Cell[3488, 88, 1618, 29, 21, "Print",ExpressionUUID->"a338e4bc-3bdb-4e28-b08d-d5edd9f342b7"],
Cell[5109, 119, 1367, 21, 21, "Print",ExpressionUUID->"6c852d99-3a98-4bf9-9247-ad5849cddff3"],
Cell[6479, 142, 1326, 20, 21, "Print",ExpressionUUID->"bb9d0658-f9e6-4838-abd0-597ec6b44bce"],
Cell[7808, 164, 1307, 20, 21, "Print",ExpressionUUID->"6eac7ae6-6a4e-450b-8baa-96da7b5694b7"],
Cell[9118, 186, 1346, 21, 21, "Print",ExpressionUUID->"b3f747c9-0f40-4007-8ff6-34ecc4545a20"],
Cell[10467, 209, 1624, 29, 21, "Print",ExpressionUUID->"e3be5a9e-3300-48f1-87b7-a8273b7e51cf"],
Cell[12094, 240, 1367, 21, 21, "Print",ExpressionUUID->"d4a79c2f-6d94-46d1-be38-83f59c8c292a"],
Cell[13464, 263, 1348, 21, 21, "Print",ExpressionUUID->"d930f3b9-25ea-40f9-b4ec-dc5233826052"],
Cell[14815, 286, 1503, 23, 21, "Print",ExpressionUUID->"6ecfa372-d7e7-4f0d-8a41-ae9041d15733"],
Cell[16321, 311, 1346, 21, 21, "Print",ExpressionUUID->"8a7d8e6d-688d-4e92-9506-b3e8fe654ed7"],
Cell[17670, 334, 1346, 21, 21, "Print",ExpressionUUID->"45bef0c5-0364-4284-821b-262c84abea52"],
Cell[19019, 357, 1620, 29, 21, "Print",ExpressionUUID->"6af477b8-9791-40e8-856d-170d43da0bc3"],
Cell[20642, 388, 1415, 22, 21, "Print",ExpressionUUID->"80240924-d3c8-4b6f-bf5c-3110c5b4e6bb"],
Cell[22060, 412, 1346, 21, 21, "Print",ExpressionUUID->"d7c6bd0a-e311-4bb5-8039-4b9e01b828ac"],
Cell[23409, 435, 1503, 23, 21, "Print",ExpressionUUID->"089fb394-ad73-4fe9-9058-b134f6d59aa3"],
Cell[24915, 460, 1348, 21, 21, "Print",ExpressionUUID->"f1a04859-d305-4f23-8477-c041e6fb6eb1"],
Cell[26266, 483, 1590, 28, 21, "Print",ExpressionUUID->"2f59350b-06f1-4d14-a8b3-2257ff67a7de"],
Cell[27859, 513, 1674, 29, 21, "Print",ExpressionUUID->"3b870893-961c-4e49-af34-a239f9bb5d63"],
Cell[29536, 544, 1775, 29, 21, "Print",ExpressionUUID->"ca0eabf4-ee38-41c9-9e79-fbf3f8391f60"],
Cell[31314, 575, 1733, 29, 21, "Print",ExpressionUUID->"7bf87b46-e657-4a72-bdfc-a4043bbeb253"],
Cell[33050, 606, 1749, 29, 21, "Print",ExpressionUUID->"3c43b410-8883-4b17-9534-f3e96416395e"],
Cell[34802, 637, 1346, 21, 21, "Print",ExpressionUUID->"463552f6-c684-4e0e-9086-e9b82fea23c4"],
Cell[36151, 660, 1618, 29, 21, "Print",ExpressionUUID->"b3918d9c-3338-4f25-b773-fd03acdabf61"],
Cell[37772, 691, 1387, 21, 21, "Print",ExpressionUUID->"afb71a6e-0022-4b8b-9c43-96c90515c2f1"],
Cell[39162, 714, 1346, 21, 21, "Print",ExpressionUUID->"aa54351a-1333-4d50-99ef-06c4dbf5449c"],
Cell[40511, 737, 1503, 23, 21, "Print",ExpressionUUID->"31a8d363-5f73-4627-a8c2-9a178ef7a32f"],
Cell[42017, 762, 1345, 21, 21, "Print",ExpressionUUID->"216562e5-e6f9-4c7c-9650-e899884345b6"],
Cell[43365, 785, 1348, 21, 21, "Print",ExpressionUUID->"3cc96c2b-7494-4dd6-b423-e95385f683a6"],
Cell[44716, 808, 1615, 28, 21, "Print",ExpressionUUID->"56424f41-d532-447b-a364-c94de1303480"],
Cell[46334, 838, 1393, 21, 21, "Print",ExpressionUUID->"0db18eed-a055-4ff1-a5d9-449b15eef481"],
Cell[47730, 861, 1716, 30, 21, "Print",ExpressionUUID->"efb4370c-f4c8-435c-bb97-1a4b7ccdfb2a"],
Cell[49449, 893, 1708, 29, 21, "Print",ExpressionUUID->"34a586df-b39d-45ed-bcc4-31f5505e5d76"],
Cell[51160, 924, 1753, 29, 21, "Print",ExpressionUUID->"bde3e31e-df5f-4a5f-be21-47435d3d21d9"],
Cell[52916, 955, 1668, 29, 21, "Print",ExpressionUUID->"897a35f7-4e78-437a-b92b-6280598e510f"],
Cell[54587, 986, 1348, 21, 21, "Print",ExpressionUUID->"edfd59ca-5c2d-44c6-9013-168d95b3f0a5"],
Cell[55938, 1009, 1640, 29, 21, "Print",ExpressionUUID->"24a6c345-dfeb-4950-b7f7-b7c11629ef7f"],
Cell[57581, 1040, 1372, 21, 21, "Print",ExpressionUUID->"e05d1f65-78dc-42d9-b539-c9943af73786"],
Cell[58956, 1063, 1348, 21, 21, "Print",ExpressionUUID->"8603ed1c-ea9a-4177-87ee-5d68b1cf6f45"],
Cell[60307, 1086, 1617, 28, 21, "Print",ExpressionUUID->"15f4ca53-f9c8-4691-bb0b-1cf4d866a219"],
Cell[61927, 1116, 1359, 21, 21, "Print",ExpressionUUID->"fca14e35-0018-4b76-bd2d-b5328499ddec"],
Cell[63289, 1139, 1675, 30, 21, "Print",ExpressionUUID->"c8951a69-10ee-45b5-98b4-2e5b56a10c6e"],
Cell[64967, 1171, 1755, 29, 21, "Print",ExpressionUUID->"9475fb23-40d2-4d27-b0e1-ad3dc78460b3"]
}, Open  ]],
Cell[66737, 1203, 1222, 20, 20, "Message",ExpressionUUID->"963d6481-3c0c-4b6b-8273-8578cc88aadf"],
Cell[67962, 1225, 1222, 20, 20, "Message",ExpressionUUID->"a0a9eda1-c96e-474e-a235-5539f358e433"],
Cell[CellGroupData[{
Cell[69209, 1249, 1348, 21, 21, "Print",ExpressionUUID->"a0c4dd4b-b938-4621-b1f5-842bb001d08a"],
Cell[70560, 1272, 1503, 23, 21, "Print",ExpressionUUID->"2ea8f6dc-2186-481a-8d97-d61055dda333"],
Cell[72066, 1297, 1346, 21, 21, "Print",ExpressionUUID->"7de21db0-cc4f-4f9f-8368-746f8fc4c9a3"]
}, Open  ]]
}, Open  ]],
Cell[73439, 1322, 292, 5, 31, "Text",ExpressionUUID->"b35abd82-2f1d-455f-87a4-c6c8823ea69f"],
Cell[CellGroupData[{
Cell[73756, 1331, 2402, 70, 224, "Input",ExpressionUUID->"a84b1f9c-ced7-478e-8d82-f756b933188a"],
Cell[CellGroupData[{
Cell[76183, 1405, 698, 15, 21, "Print",ExpressionUUID->"582a1393-30f9-4f1f-ba85-fd4e6994fe49"],
Cell[76884, 1422, 710, 15, 21, "Print",ExpressionUUID->"353151e7-8be8-4e00-9b08-487277dd1d35"],
Cell[77597, 1439, 860, 20, 21, "Print",ExpressionUUID->"e81a477f-10ad-415b-aeaa-bef9079eabfd"],
Cell[78460, 1461, 966, 23, 21, "Print",ExpressionUUID->"96dcba0f-4ebd-4517-bcfe-8da86c562704"],
Cell[79429, 1486, 935, 21, 21, "Print",ExpressionUUID->"54c04633-ce77-4c9d-9032-7fe0ee2873b7"],
Cell[80367, 1509, 955, 21, 21, "Print",ExpressionUUID->"34d9e476-c73c-46ce-9e4a-e6cc90e432fe"],
Cell[81325, 1532, 788, 18, 21, "Print",ExpressionUUID->"d24ec9fe-7879-4062-a489-b189a71521a4"],
Cell[82116, 1552, 906, 21, 21, "Print",ExpressionUUID->"95ff1d55-365e-40a0-8833-aab901f550d1"],
Cell[83025, 1575, 926, 22, 21, "Print",ExpressionUUID->"36fdbfb0-bbf0-41da-9f01-38dff078d181"],
Cell[83954, 1599, 952, 22, 21, "Print",ExpressionUUID->"87c0702b-4e03-42cf-9e75-353278d7b68d"],
Cell[84909, 1623, 870, 20, 21, "Print",ExpressionUUID->"496bdb11-3718-42b6-84ac-504087b9e774"],
Cell[85782, 1645, 377, 7, 21, "Print",ExpressionUUID->"f6308383-0c4c-4d1c-b5e3-69136fe6afcb"],
Cell[86162, 1654, 754, 16, 21, "Print",ExpressionUUID->"7ea8c442-1ad5-42e9-bb15-28fbe581ce2a"],
Cell[86919, 1672, 381, 7, 21, "Print",ExpressionUUID->"669cb4d2-4937-431d-8b69-2caa68c9f45f"],
Cell[87303, 1681, 886, 21, 21, "Print",ExpressionUUID->"95f8cca4-8bb9-4200-b60f-90198968e490"],
Cell[88192, 1704, 935, 21, 21, "Print",ExpressionUUID->"255e7faf-30c9-43a6-b073-659eed285efe"],
Cell[89130, 1727, 876, 20, 21, "Print",ExpressionUUID->"052217bd-2851-4fa8-a1c4-beb123ad5fb1"],
Cell[90009, 1749, 766, 16, 21, "Print",ExpressionUUID->"d602d474-0384-451f-bee8-d70acd07f01b"],
Cell[90778, 1767, 512, 11, 21, "Print",ExpressionUUID->"8120a4b6-ce48-4750-b6e2-750165390e7c"],
Cell[91293, 1780, 504, 11, 21, "Print",ExpressionUUID->"b1d56c94-f41b-464e-b2d2-2a5e80a243ea"],
Cell[91800, 1793, 514, 11, 21, "Print",ExpressionUUID->"f058554b-d236-465e-a224-f1b3d587cc2d"],
Cell[92317, 1806, 984, 23, 21, "Print",ExpressionUUID->"f872ecaa-9814-4fa6-b642-2ace83b71064"],
Cell[93304, 1831, 886, 21, 21, "Print",ExpressionUUID->"c44a5d66-190c-47d7-b76c-54b67f7cf81d"],
Cell[94193, 1854, 993, 24, 21, "Print",ExpressionUUID->"f199cc16-261e-4a3d-89c1-632942993d1f"],
Cell[95189, 1880, 995, 24, 21, "Print",ExpressionUUID->"9f6e3717-5f0e-4ea8-95de-6b1b5f168fb8"],
Cell[96187, 1906, 768, 16, 21, "Print",ExpressionUUID->"5f72404f-b5ac-43d2-987f-85e7432e7c09"],
Cell[96958, 1924, 750, 16, 21, "Print",ExpressionUUID->"a1f02f6a-dd8f-4b87-aba2-299a914b8efb"],
Cell[97711, 1942, 926, 20, 21, "Print",ExpressionUUID->"550c3c3a-c6e5-48d0-8473-2939011b6838"],
Cell[98640, 1964, 724, 16, 21, "Print",ExpressionUUID->"d227e71e-3a1c-41b1-bc41-8629cc45c99e"],
Cell[99367, 1982, 916, 20, 21, "Print",ExpressionUUID->"d50b1e9c-62d7-426d-a309-149b065c4ea7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100332, 2008, 324, 7, 28, "Input",ExpressionUUID->"bf2a70cf-608e-4bbb-a6be-391ca88462c8"],
Cell[100659, 2017, 1504, 26, 21, "Print",ExpressionUUID->"f2259df0-5e69-402c-a807-45fe8d03e14a"]
}, Open  ]],
Cell[102178, 2046, 174, 3, 31, "Text",ExpressionUUID->"8ee9997c-6f9d-4407-8de3-f0a1bd6eb3cb"],
Cell[102355, 2051, 174, 3, 31, "Text",ExpressionUUID->"886de374-38be-4764-9275-36f3b2856acd"],
Cell[CellGroupData[{
Cell[102554, 2058, 2734, 59, 287, "Input",ExpressionUUID->"20b92dc4-4651-4219-9a5f-75e5bfef83e3"],
Cell[CellGroupData[{
Cell[105313, 2121, 770, 15, 21, "Print",ExpressionUUID->"74665c05-0be2-4c01-bdff-72c2a9d56f80"],
Cell[106086, 2138, 770, 15, 21, "Print",ExpressionUUID->"c1d7f82b-81b2-4a0c-9b69-60e7d35dfdfa"],
Cell[106859, 2155, 772, 15, 21, "Print",ExpressionUUID->"275c7e0f-7b9a-490d-b03c-f283b4c7887f"],
Cell[107634, 2172, 763, 15, 21, "Print",ExpressionUUID->"d9d4d1d3-93fb-44fa-8fa2-ebe89b786a35"],
Cell[108400, 2189, 765, 15, 21, "Print",ExpressionUUID->"672cb3e6-b4f2-4020-9e18-54cecbb40ccd"],
Cell[109168, 2206, 780, 15, 21, "Print",ExpressionUUID->"c09d3660-e9de-4781-b394-a9760a7627d8"],
Cell[109951, 2223, 778, 15, 21, "Print",ExpressionUUID->"d3e3bca2-a7c6-4658-8b3e-dced05e0e2af"],
Cell[110732, 2240, 780, 15, 21, "Print",ExpressionUUID->"886fdbba-1ecc-4523-9f05-c2a7291102f0"],
Cell[111515, 2257, 768, 15, 21, "Print",ExpressionUUID->"47e026bf-d9ac-48d7-bd06-543bdfab72e8"],
Cell[112286, 2274, 780, 16, 21, "Print",ExpressionUUID->"e8a32ea8-6728-4a8f-91c7-c5f3f2e8a19a"],
Cell[113069, 2292, 786, 16, 21, "Print",ExpressionUUID->"c877cdf2-0c2f-4d1d-a3bd-93d31940c4c6"],
Cell[113858, 2310, 770, 15, 21, "Print",ExpressionUUID->"36d470ec-5a30-4f25-89e5-d98b488e93fe"],
Cell[114631, 2327, 784, 16, 21, "Print",ExpressionUUID->"bd8deeac-2e24-47e4-b0b5-f823bced2085"],
Cell[115418, 2345, 788, 16, 21, "Print",ExpressionUUID->"47ece912-8427-44bd-98c1-3db86db62023"]
}, Open  ]]
}, Open  ]],
Cell[116233, 2365, 393, 11, 33, "Text",ExpressionUUID->"f6affed3-cdd7-499e-9e46-f42842be6497"],
Cell[CellGroupData[{
Cell[116651, 2380, 195, 3, 26, "Input",ExpressionUUID->"8e1791d9-f1c9-46f1-bb47-fdb07f693265"],
Cell[116849, 2385, 752, 11, 30, "Output",ExpressionUUID->"f1aae0f5-baa1-4b2a-aef4-565dac0500e6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[117650, 2402, 152, 3, 48, "Subsection",ExpressionUUID->"d639fbc4-5248-421b-93e8-a16a4f7b6549"],
Cell[CellGroupData[{
Cell[117827, 2409, 3443, 95, 43, "Input",ExpressionUUID->"25382337-478e-40d0-bb2b-41e2a003813b"],
Cell[121273, 2506, 15354, 456, 47, "Output",ExpressionUUID->"a6d0a535-9db7-49cf-bbe3-0a88cb2e61a6"]
}, Open  ]],
Cell[136642, 2965, 420, 8, 31, "Text",ExpressionUUID->"e746253e-3bf3-40a7-901c-145af02e601e"],
Cell[137065, 2975, 337, 9, 44, "Input",ExpressionUUID->"2dd616f7-bbda-47cc-8cbf-a8c73759aea8"],
Cell[CellGroupData[{
Cell[137427, 2988, 1029, 17, 26, "Input",ExpressionUUID->"4f7e7b52-8e4a-4829-9576-8480cd1d9c5f"],
Cell[138459, 3007, 16652, 481, 50, "Output",ExpressionUUID->"2a35a13b-26e9-44bd-901e-cd722ed1f69a"]
}, Open  ]],
Cell[155126, 3491, 267, 4, 31, "Text",ExpressionUUID->"53ed8422-f695-4a33-b87a-3e440c79a4a0"],
Cell[155396, 3497, 589, 10, 26, "Input",ExpressionUUID->"0e923bb7-e11e-486f-8fbe-36dc709330ac"],
Cell[CellGroupData[{
Cell[156010, 3511, 2550, 56, 125, "Input",ExpressionUUID->"21f8a431-eaaf-422e-8702-71d6191dace1"],
Cell[CellGroupData[{
Cell[158585, 3571, 1268, 24, 21, "Print",ExpressionUUID->"ee34ce1d-0a0a-4140-a345-6a452b01b830"],
Cell[159856, 3597, 1166, 21, 21, "Print",ExpressionUUID->"82078677-8684-4dce-9c7e-9e37533f088f"],
Cell[161025, 3620, 1168, 21, 21, "Print",ExpressionUUID->"9e7d2602-c3f4-427a-b5b2-dee34fe8d155"],
Cell[162196, 3643, 1198, 22, 21, "Print",ExpressionUUID->"e4ab9d41-c176-43ec-8c48-2fc8e3e7bb72"],
Cell[163397, 3667, 1198, 22, 21, "Print",ExpressionUUID->"8a9fceeb-8ed9-4b40-8108-bb7ca11fcf39"],
Cell[164598, 3691, 1198, 22, 21, "Print",ExpressionUUID->"4fdc814d-28f5-4c4b-9763-e6934c47015b"]
}, Open  ]]
}, Open  ]],
Cell[165823, 3717, 215, 4, 31, "Text",ExpressionUUID->"066b43c4-9d20-4d75-8592-198a4867481c"],
Cell[CellGroupData[{
Cell[166063, 3725, 654, 13, 26, "Input",ExpressionUUID->"82a77dbf-22ff-41bf-af72-ba55c64fbe08"],
Cell[166720, 3740, 137188, 4441, 237, "Output",ExpressionUUID->"99dfd3ac-e336-49e7-b5c7-273da6d9ee94"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[303957, 8187, 200, 3, 48, "Subsection",ExpressionUUID->"ceacb64c-949b-4425-a738-0877d5bb125e"],
Cell[304160, 8192, 263, 6, 31, "Text",ExpressionUUID->"963770ff-c55f-400c-88e3-4b0ed510c799"],
Cell[304426, 8200, 189, 3, 31, "Text",ExpressionUUID->"63870f6f-248b-42ea-94da-db6fc025a04b"],
Cell[CellGroupData[{
Cell[304640, 8207, 1958, 47, 47, "Input",ExpressionUUID->"fbcfc170-8d5a-4ac6-8ac6-39bb92897a97"],
Cell[306601, 8256, 89674, 2591, 95, "Output",ExpressionUUID->"2e296c4d-7000-49af-b3b5-a2ff13c78d94"]
}, Open  ]],
Cell[396290, 10850, 183, 3, 31, "Text",ExpressionUUID->"b3fc464d-4b86-4b66-8a5e-6f0075a1a744"],
Cell[CellGroupData[{
Cell[396498, 10857, 1364, 36, 47, "Input",ExpressionUUID->"0fa65c1d-6513-47a2-8f3a-3c4447609b89"],
Cell[397865, 10895, 6259, 202, 36, "Output",ExpressionUUID->"9cf8b28e-c743-433e-8ec3-f5cede2be9ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[404161, 11102, 1628, 40, 47, "Input",ExpressionUUID->"030c76f4-5169-4835-859a-2efc583b9b54"],
Cell[405792, 11144, 5239, 168, 47, "Output",ExpressionUUID->"57a1f854-f824-4ec1-99a8-7fa9732a1db2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[411068, 11317, 1331, 36, 47, "Input",ExpressionUUID->"f227637d-da44-4ede-b993-40a5b6bc9f3c"],
Cell[412402, 11355, 5593, 169, 36, "Output",ExpressionUUID->"30aab972-f12c-4ec0-98ab-dbfe5cf0e6b2"]
}, Open  ]],
Cell[418010, 11527, 197, 3, 31, "Text",ExpressionUUID->"771d53da-e68e-405f-9c51-8ba40cfe92a6"],
Cell[418210, 11532, 292, 5, 26, "Input",ExpressionUUID->"e85ebf74-c289-4afe-a073-d14c1ee3f138"],
Cell[CellGroupData[{
Cell[418527, 11541, 911, 21, 67, "Input",ExpressionUUID->"a52a1eee-9ea1-4e0d-a51a-6b6843c17508"],
Cell[CellGroupData[{
Cell[419463, 11566, 705, 14, 21, "Print",ExpressionUUID->"fa81a7ed-12fb-40fc-92d1-5aa5354936d1"],
Cell[420171, 11582, 686, 14, 21, "Print",ExpressionUUID->"cd71ff1a-6d16-4682-9a86-90aab500f145"],
Cell[420860, 11598, 707, 14, 21, "Print",ExpressionUUID->"e8110c2c-318b-424e-b647-88d34ec0fbc3"]
}, Open  ]]
}, Open  ]],
Cell[421594, 11616, 3314, 92, 63, "Input",ExpressionUUID->"d8209fb2-f534-465f-93bc-28cbf3c6b0e1"],
Cell[CellGroupData[{
Cell[424933, 11712, 351, 7, 26, "Input",ExpressionUUID->"cbe7933f-3b16-4807-b564-e7c46c9fa3c4"],
Cell[425287, 11721, 5131, 161, 36, "Output",ExpressionUUID->"60c8edfd-ae63-4b5b-9e68-900aae44def6"]
}, Open  ]],
Cell[430433, 11885, 169, 3, 31, "Text",ExpressionUUID->"55967b28-52d6-498f-8e4f-8412cdaa91bd"],
Cell[430605, 11890, 261, 5, 26, "Input",ExpressionUUID->"a13fa55c-0fd6-4e6e-b849-66de0eed4557"],
Cell[CellGroupData[{
Cell[430891, 11899, 781, 21, 67, "Input",ExpressionUUID->"e0e6660d-6b3c-49ac-ba20-240bf8827021"],
Cell[CellGroupData[{
Cell[431697, 11924, 807, 17, 21, "Print",ExpressionUUID->"39f8dadc-c60b-49f3-a9b1-5635ce869649"],
Cell[432507, 11943, 807, 17, 21, "Print",ExpressionUUID->"47bec921-46f9-41c8-a37f-84aadb392ea0"],
Cell[433317, 11962, 807, 17, 21, "Print",ExpressionUUID->"588b090a-80e9-4930-bf02-fb605656426c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[434173, 11985, 177, 2, 26, "Input",ExpressionUUID->"39fcb1ac-ca12-48e2-8f16-3bc9f0179d2b"],
Cell[434353, 11989, 18562, 572, 36, "Output",ExpressionUUID->"cc720c2c-01fd-4188-b407-83b743f2ab81"]
}, Open  ]],
Cell[452930, 12564, 1044, 28, 26, "Input",ExpressionUUID->"0bb42bba-af8d-472a-8bad-9013e88489f8"],
Cell[CellGroupData[{
Cell[453999, 12596, 786, 12, 26, "Input",ExpressionUUID->"cd346fe5-c129-496e-a208-62c03f2cd88d"],
Cell[454788, 12610, 101860, 3065, 94, "Output",ExpressionUUID->"810b309c-895e-4d00-8b2f-5a1f0893ea66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[556685, 15680, 480, 9, 26, "Input",ExpressionUUID->"6390c29b-74a8-4f82-bbbe-f2a9ec2cd420"],
Cell[557168, 15691, 3939, 116, 47, "Output",ExpressionUUID->"81453753-7b85-4d41-940d-5d16cff26138"]
}, Open  ]],
Cell[CellGroupData[{
Cell[561144, 15812, 417, 9, 26, "Input",ExpressionUUID->"0c0fa0c2-2c8d-4ccb-acf3-ba6fce331673"],
Cell[561564, 15823, 1222, 42, 30, "Output",ExpressionUUID->"5079fc9f-2db6-4b21-ab63-b4d031cbd948"]
}, Open  ]],
Cell[CellGroupData[{
Cell[562823, 15870, 316, 7, 26, "Input",ExpressionUUID->"08308a12-5d26-4b83-a406-2e8a2d78c427"],
Cell[563142, 15879, 4515, 135, 36, "Output",ExpressionUUID->"9cfeb527-48e4-4b2d-8f5d-1db8b847d4c7"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)