Example.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    237172,       5022]
NotebookOptionsPosition[    203044,       4379]
NotebookOutlinePosition[    232379,       4960]
CellTagsIndexPosition[    232336,       4957]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
The MassiveGraph.wl package needs:
- GraphGenerator.wl which is in the GitHub repository \
https://github.com/StefanoDeAngelis/SMEFT-operators
- HelicityVariable.wl which is in the GitHub repository \
https://github.com/StefanoDeAngelis/SpinorHelicity
The documentation for such packages are not available yet.\
\>", "Text",
 CellChangeTimes->{{3.8571649122408247`*^9, 3.857164913217545*^9}, {
  3.857164956687717*^9, 3.8571649636336613`*^9}, {3.857165549452724*^9, 
  3.857165586992209*^9}, {3.857165631723131*^9, 3.8571656429740353`*^9}, {
  3.857165680869403*^9, 
  3.85716574595689*^9}},ExpressionUUID->"ca640bdb-a8cc-406e-a3bc-\
517418a5a8a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"<<", "HelicityVariables`"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"<<", "GraphGenerator`"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"<<", "MassiveGraphs`"}]}]], "Input",
 CellChangeTimes->{{3.857147603978853*^9, 3.857147610124331*^9}, {
  3.857164924058133*^9, 3.8571649454073887`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"5aea4e50-4355-47f0-8250-c2a0385b5ee0"],

Cell[BoxData[
 TemplateBox[{
  "Echos", "shdw", 
   "\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"Echos\\\\\\\"\\\"}]\\) appears in \
multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"\\\\\\\"MassiveGraphs`\\\\\\\"\\\", \\\",\\\", \
\\\"\\\\\\\"NumericalKinematics`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions \
in context \\!\\(\\*RowBox[{\\\"\\\\\\\"MassiveGraphs`\\\\\\\"\\\"}]\\) may \
shadow or be shadowed by other definitions.\"", 2, 1, 1, 25068477361163890577,
    "Local", "MassiveGraphs`Echos"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.929692868664522*^9, 3.929696260079686*^9},
 CellLabel->
  "During evaluation of \
In[1]:=",ExpressionUUID->"35b78f27-a1bc-48d7-b443-0460d4bd487c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "KinematicBasis"}]], "Input",
 CellChangeTimes->{{3.857147694287999*^9, 3.857147702378042*^9}, {
   3.8571498117148647`*^9, 3.857149812692746*^9}, {3.857149846261249*^9, 
   3.857149847274785*^9}, {3.857149961180634*^9, 3.85714999997033*^9}, 
   3.857152264427812*^9, {3.9296931759530907`*^9, 3.929693199648939*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"c8ffbe76-1c64-4e21-a928-935032297d18"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"KinematicBasis[dim,opts][{label1,spin1,category1},{\
label2,helicity2},...] gives a basis of kinematically independent structures. \
Any spin structure, within the specified helicity category \
(category1,helicity2,...) and mass dimension dim can be written as a linear \
combination of element of this basis.\\n dim must be a positive integer. \\n \
opts are the options of the function. \\n The particle configuration is given \
as a sequence of lists: \\n \\t - massive particles are given as \
three-element lists {label,spin,category} (spin and category are \
half-integers, such that -spin  \[LessEqual] category  \[LessEqual] spin and \
spin  \[GreaterEqual] 0). \\n \\t - massless particles are given as \
two-element lists {label,helicity} (helicity is an half-integer).\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"MomentumConservation", "\[Rule]", "True"}], ",", 
                    
                    RowBox[{"MassSquared", "\[Rule]", "False"}]}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"Protected", ",", "ReadProtected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"MassiveGraphs`KinematicBasis\"\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"KinematicBasis[dim,opts][{label1,spin1,category1},{\
label2,helicity2},...] gives a basis of kinematically independent structures. \
Any spin structure, within the specified helicity category \
(category1,helicity2,...) and mass dimension dim can be written as a linear \
combination of element of this basis.\\n dim must be a positive integer. \\n \
opts are the options of the function. \\n The particle configuration is given \
as a sequence of lists: \\n \\t - massive particles are given as \
three-element lists {label,spin,category} (spin and category are \
half-integers, such that -spin  \[LessEqual] category  \[LessEqual] spin and \
spin  \[GreaterEqual] 0). \\n \\t - massless particles are given as \
two-element lists {label,helicity} (helicity is an half-integer).\"\>", 
             "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {2., 8.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {2., 8.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "KinematicBasis[dim,opts][{label1,spin1,category1},{label2,helicity2},...]\
 gives a basis of kinematically independent structures. Any spin structure, \
within the specified helicity category (category1,helicity2,...) and mass \
dimension dim can be written as a linear combination of element of this \
basis.\n dim must be a positive integer. \n opts are the options of the \
function. \n The particle configuration is given as a sequence of lists: \n \t\
 - massive particles are given as three-element lists {label,spin,category} \
(spin and category are half-integers, such that -spin  \[LessEqual] category  \
\[LessEqual] spin and spin  \[GreaterEqual] 0). \n \t - massless particles \
are given as two-element lists {label,helicity} (helicity is an \
half-integer).", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> 
    None, "DownValues" -> None, "SubValues" -> None, "DefaultValues" -> None, 
    "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {
     MassiveGraphs`MomentumConservation -> True, MassiveGraphs`MassSquared -> 
      False}, "Attributes" -> {Protected, ReadProtected}, "FullName" -> 
    "MassiveGraphs`KinematicBasis"|>, False]]], "Output",
 CellChangeTimes->{
  3.857147702908607*^9, 3.857147746683303*^9, {3.857147805575141*^9, 
   3.857147876423912*^9}, 3.857147924938569*^9, 3.857147959923605*^9, 
   3.857149813147994*^9, 3.857149847743484*^9, 3.857149964011133*^9, {
   3.8571499974305*^9, 3.857150000456771*^9}, 3.857151887964259*^9, 
   3.85715202013535*^9, 3.857152266887286*^9, 3.8571529706673727`*^9, 
   3.857153205886606*^9, 3.857164509633337*^9, 3.857164644949204*^9, {
   3.9296931648548594`*^9, 3.929693200065496*^9}, 3.929696260244903*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"28f088cf-6480-4683-a076-ac4173a20832"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "HelicityCategoryBasis"}]], "Input",
 CellChangeTimes->{{3.8571532012087307`*^9, 3.857153209105188*^9}, {
  3.929693192170608*^9, 3.9296931936641483`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"5dc3bb6f-386e-4e23-91ab-e0847ec06759"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   FrameBox[
    DynamicModuleBox[{System`InformationDump`open$$ = False, 
     System`InformationDump`mouseOver$$ = False}, 
     PaneSelectorBox[{True->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False,
             BaseStyle -> None],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"HelicityCategoryBasis[dim,opts][{label1,spin1,\
category1},{label2,helicity2},...] gives a list of structures, within the \
specified helicity category (category1,helicity2,...) and mass dimension dim, \
which are not related by any kinematic relation (also considering the \
relation mixing different helicity categories). \\n opts are the options of \
the function. \\n The particle configuration is given as a sequence of lists: \
\\n \\t - massive particles are given as three-element lists \
{label,spin,category} (spin and category are half-integers, such that -spin  \
\[LessEqual] category  \[LessEqual] spin and spin  \[GreaterEqual] 0). \\n \
\\t - massless particles are given as two-element lists {label,helicity} \
(helicity is an half-integer).\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          PaneBox[GridBox[{
             {
              
              DynamicModuleBox[{System`InformationDump`open$$ = {
               False, False, False, False, False, False}}, 
               StyleBox[GridBox[{
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Options\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Options\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Options", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"MomentumConservation", "\[Rule]", "True"}], ",", 
                    
                    RowBox[{"Echos", "\[Rule]", "False"}]}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Attributes\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"Attributes\"",
                    TooltipStyle->"TextStyling"],
                    Annotation[#, "Attributes", "Tooltip"]& ], 
                   RowBox[{"{", 
                    RowBox[{"Protected", ",", "ReadProtected"}], "}"}]},
                  {
                   TagBox[
                    TooltipBox[
                    StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
                    StripOnInput->False],
                    "\"FullName\"",
                    TooltipStyle->"TextStyling"],
                    
                    Annotation[#, "FullName", 
                    "Tooltip"]& ], "\<\"MassiveGraphs`HelicityCategoryBasis\"\
\>"}
                 },
                 AutoDelete->False,
                 GridBoxAlignment->{"Columns" -> {Right, Left}},
                 GridBoxDividers->None,
                 GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "Rows" -> {
                    Offset[0.2], {
                    Offset[0.8]}, 
                    Offset[0.2]}}], "DialogStyle",
                StripOnInput->False],
               DynamicModuleValues:>{}]}
            },
            DefaultBaseStyle->"Column",
            GridBoxAlignment->{"Columns" -> {{Left}}},
            GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
            
            GridBoxItemSize->{
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
            GridBoxSpacings->{"Columns" -> {
                Offset[0.27999999999999997`], {
                 Offset[0.5599999999999999]}, 
                Offset[0.27999999999999997`]}, "Rows" -> {
                Offset[0.2], {
                 Offset[3.6]}, 
                Offset[0.2]}}],
           FrameMargins->{{6, 6}, {6, 3}}], ""},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpener"]], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, False],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"], False->
      TagBox[GridBox[{
         {
          ItemBox[
           PaneBox[
            StyleBox["\<\" Symbol\"\>", "InformationTitleText",
             StripOnInput->False],
            FrameMargins->{{4, 0}, {-1, 1}}],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           PaneBox[
            
            StyleBox["\<\"HelicityCategoryBasis[dim,opts][{label1,spin1,\
category1},{label2,helicity2},...] gives a list of structures, within the \
specified helicity category (category1,helicity2,...) and mass dimension dim, \
which are not related by any kinematic relation (also considering the \
relation mixing different helicity categories). \\n opts are the options of \
the function. \\n The particle configuration is given as a sequence of lists: \
\\n \\t - massive particles are given as three-element lists \
{label,spin,category} (spin and category are half-integers, such that -spin  \
\[LessEqual] category  \[LessEqual] spin and spin  \[GreaterEqual] 0). \\n \
\\t - massless particles are given as two-element lists {label,helicity} \
(helicity is an half-integer).\"\>", "InformationUsageText",
             StripOnInput->False,
             LineSpacing->{1.5, 1.5, 3.}],
            FrameMargins->{{10, 10}, {8, 10}}],
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False], 
          ItemBox["\<\"\"\>",
           BaseStyle->"InformationUsageSubtitleBackground",
           StripOnInput->False]},
         {
          ItemBox[
           TagBox[
            ButtonBox[
             PaneSelectorBox[{False->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{10., {2., 8.}}], True->
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpenerHot"],
               ImageSizeCache->{10., {2., 8.}}]}, Dynamic[
              System`InformationDump`mouseOver$$]],
             Alignment->Left,
             Appearance->{"Default" -> None},
             
             ButtonFunction:>FEPrivate`Set[
              System`InformationDump`open$$, True],
             Evaluator->Automatic,
             FrameMargins->{{9, 0}, {0, 0}},
             ImageMargins->0,
             ImageSize->Full,
             Method->"Preemptive"],
            
            EventHandlerTag[{
             "MouseEntered" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, True], 
              "MouseExited" :> 
              FEPrivate`Set[System`InformationDump`mouseOver$$, False], 
              Method -> "Preemptive", PassEventsDown -> Automatic, 
              PassEventsUp -> True}]],
           BaseStyle->"InformationTitleBackground",
           StripOnInput->False], "\[SpanFromLeft]"}
        },
        AutoDelete->False,
        FrameStyle->Directive[
          GrayLevel[0.8], 
          Thickness[Tiny]],
        GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
        GridBoxDividers->{
         "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
       "Grid"]}, Dynamic[System`InformationDump`open$$],
      BaselinePosition->Baseline,
      FrameMargins->0,
      ImageSize->Automatic],
     DynamicModuleValues:>{}],
    BaseStyle->"InformationGridFrame",
    StripOnInput->False], "InformationGridPlain",
   StripOnInput->False],
  InformationData[<|
   "ObjectType" -> "Symbol", "Usage" -> 
    "HelicityCategoryBasis[dim,opts][{label1,spin1,category1},{label2,\
helicity2},...] gives a list of structures, within the specified helicity \
category (category1,helicity2,...) and mass dimension dim, which are not \
related by any kinematic relation (also considering the relation mixing \
different helicity categories). \n opts are the options of the function. \n \
The particle configuration is given as a sequence of lists: \n \t - massive \
particles are given as three-element lists {label,spin,category} (spin and \
category are half-integers, such that -spin  \[LessEqual] category  \
\[LessEqual] spin and spin  \[GreaterEqual] 0). \n \t - massless particles \
are given as two-element lists {label,helicity} (helicity is an \
half-integer).", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> 
    None, "DownValues" -> None, "SubValues" -> None, "DefaultValues" -> None, 
    "NValues" -> None, "FormatValues" -> None, 
    "Options" -> {
     MassiveGraphs`MomentumConservation -> True, MassiveGraphs`Echos -> 
      False}, "Attributes" -> {Protected, ReadProtected}, "FullName" -> 
    "MassiveGraphs`HelicityCategoryBasis"|>, False]]], "Output",
 CellChangeTimes->{3.857153210014573*^9, 3.857164512327869*^9, 
  3.857164648318594*^9, 3.9296931939814453`*^9, 3.929696260313199*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"1be58d71-549c-4b33-9158-44ea00f1237d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HelicityCategoryBasis", "[", 
   RowBox[{"6", ",", 
    RowBox[{"Echos", "->", "True"}]}], "]"}], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.857163728197563*^9, 3.857163764663682*^9}, 
   3.857163982216691*^9, 3.929693206884704*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"3717b732-ca62-4756-8ea3-3f9d3302f66b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207274267*^9},ExpressionUUID->"0100e4dc-6c07-49d4-ade4-\
1d7759d9e8b5"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs before momentum conservation:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQjQo+2KPSGPL7UWkGhhdMTpP+Tdq4f3HamRd/81/b
F3BJ6bnZbtt/Jt/VUcbnlT2DT/6T/LDd+28t4E3bp//S/siu/xW7cw/sZ1NM
39oj/cJ+wlnx6O6Uw/tz629s0xJ4bs8gZRz4rPfY/mzRqF1mfM/s5/xkV3/7
/OT+D1qzqjzFntrX2HJdX1xwdr9GTP+hrxpP7LUg9P4CiLj9J4i6/RMg+uzz
Iebs/yIJNtc+H2LP/haIvfacEHfs3wNxl/1diDv3f/AGu9v+PMQf+zMg/rJf
AfHn/hsQf9vXpJ6L4XA4tH/J/u26C86+tb/h8OpX3/lj+zfvs7EKt3hrv6Dm
ZDqb4+n9jWJFzEZT39h/qU7WOjvx/P4AwQOKE5+8ttdh9J+06v7F/XN5rDTv
qr22173q3T3p8eX9jZabs9tiXtmrrjrNlXv56v5ZjHbbWNpe2m9zf1glsu76
/kVgD7+wXwqh92+AiNvPg6jbLw/RZ98CMWe/OsRc+wUQe/arQey1D4K4Y/8T
iLvsmyHu3D8B4m77LRB/7D8F8Zf9Mog/9+dA/G0PAOOqDzU=
      "], {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 2}, 0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{1, {-0.3355592528168837, 0.3355592528168832}, 4}], 
         0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{1, {-0.6644407471831147, 0.6644407471831181}, 4}], 
         0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], 
        DiskBox[4, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{0., 1.}, {0.32888149436623243`, 0.}, {0., -1.}}], 
        0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{0., 1.}, {-0.32888149436623243`, 0.}, {0., -1.}}], 
        0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207375629*^9},ExpressionUUID->"be92963e-2d26-4175-bf40-\
064a53c5eb85"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs with momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{
     GraphicsComplexBox[{{-0.5, 0.8660254037844386}, {0.5, 
      0.8660254037844386}, {1., 0.}, {
      0.5, -0.8660254037844386}, {-0.5, -0.8660254037844386}, {-1., 0.}}, {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 6}, 0.02261146496815286], 
        ArrowBox[{2, 6}, 0.02261146496815286], 
        ArrowBox[{3, 4}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286], 
        DiskBox[5, 0.02261146496815286], 
        DiskBox[6, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{-0.5, 0.8660254037844386}, {-0.5, -0.8660254037844386}}, 
        0.02261146496815286], 
       ArrowBox[{{0.5, 0.8660254037844386}, {-0.5, -0.8660254037844386}}, 
        0.02261146496815286], 
       ArrowBox[{{1., 0.}, {0.5, -0.8660254037844386}}, 0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{-0.5, 0.8660254037844386}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {-0.5, 0.8886368687525914}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{0.5, 0.8660254037844386}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0.5, 0.8886368687525914}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{0.5, -0.8660254037844386}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {0.5, -0.8434139388162858}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{-0.5, -0.8660254037844386}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {-0.5, -0.8434139388162858}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207415954*^9},ExpressionUUID->"4a722c60-f737-497a-99a9-\
5fa3c6579ce0"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"False", ",", "True"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207424992*^9},ExpressionUUID->"55838052-467a-4789-8c5a-\
1f07a34ae376"],

Cell[BoxData["True"], "Echo",
 CellChangeTimes->{
  3.929693207451228*^9},ExpressionUUID->"a01ef118-a733-4131-b2cb-\
a52e24ad1383"],

Cell[BoxData["\<\"No graph survided.\"\>"], "Echo",
 CellChangeTimes->{
  3.9296932074586077`*^9},ExpressionUUID->"bf587895-fcde-495a-9457-\
8114bc27fc40"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207470999*^9},ExpressionUUID->"a38b1d0a-38d7-489e-854a-\
d52d3bd2b16d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs before momentum conservation:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQjQo+2KPSGPL7UWkGBje1FrF5ti/tBU5EqQu93bS/
Rq+purjlub1D+a7j1xO374/aXp/54chTe4e1yq/naO/eH2ykfl2W4Yl9QtPx
JGWPffvZe4QesJs/sj9h0nbyZNSB/a/8eNX2Zj2wj5iQctTO8uB+gcgNiXMs
7tpviOp/92bfwf39M0Hgpv2HwB1yra8P7p8N4e+H8WUg6vfD1H+AmLcfZh4v
xL79MPsiIe7ZHwB1TzzEvfsNoO5tgvhnvwHUPz4Q/+5ngPoXzf/2aP63R/O/
PZr/7dH8b4/mf3s0/9uj+d8ezf/2aP63R/O/PZr/7dH8b4/mf3s0/9uj+d8e
AKDMDc8=
      "], {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 2}, 0.02261146496815286], 
        ArrowBox[BezierCurveBox[{2, {0., -0.32888149436623243`}, 4}], 
         0.02261146496815286], 
        ArrowBox[BezierCurveBox[{2, {0., 0.32888149436623243`}, 4}], 
         0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], 
        DiskBox[4, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{1., 0.}, {0.6644407471831181, -0.6644407471831147}, {
         0., -1.}}], 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{1., 0.}, {0.3355592528168832, -0.3355592528168837}, {
         0., -1.}}], 0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.9296932074977407`*^9},ExpressionUUID->"8d50b584-1d49-44b7-86cb-\
ed5afb37f485"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs with momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{
     GraphicsComplexBox[{{-0.5, 0.8660254037844386}, {0.5, 
      0.8660254037844386}, {1., 0.}, {
      0.5, -0.8660254037844386}, {-0.5, -0.8660254037844386}, {-1., 0.}}, {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 2}, 0.02261146496815286], 
        ArrowBox[{3, 6}, 0.02261146496815286], 
        ArrowBox[{4, 6}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286], 
        DiskBox[5, 0.02261146496815286], 
        DiskBox[6, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{-0.5, 0.8660254037844386}, {0.5, 0.8660254037844386}}, 
        0.02261146496815286], 
       ArrowBox[{{1., 0.}, {-0.5, -0.8660254037844386}}, 0.02261146496815286],
        ArrowBox[{{0.5, -0.8660254037844386}, {-0.5, -0.8660254037844386}}, 
        0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{-0.5, 0.8660254037844386}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {-0.5, 0.8886368687525914}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{0.5, 0.8660254037844386}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {0.5, 0.8886368687525914}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{0.5, -0.8660254037844386}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {0.5, -0.8434139388162858}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{-0.5, -0.8660254037844386}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {-0.5, -0.8434139388162858}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207529415*^9},ExpressionUUID->"afac66ba-6222-47f0-adce-\
0b883f15581b"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", "}"}]}]], "Echo",
 CellChangeTimes->{
  3.9296932075375023`*^9},ExpressionUUID->"5e8f60b4-125a-49e8-b1f3-\
6a232a2c16ae"],

Cell[BoxData["False"], "Echo",
 CellChangeTimes->{
  3.9296932075423927`*^9},ExpressionUUID->"b1011e7c-f672-441d-a6ac-\
9c52f8bdc7c8"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQjQo+2KPSGPL7UWkGBje1FrF5ti/tBU5EqQu93bS/
Rq+purjlub1D+a7j1xO374/aXp/54chTe4e1yq/naO/eH2ykfl2W4Yl9QtPx
JGWPffvZe4QesJs/sj9h0nbyZNSB/a/8eNX2Zj2wj5iQctTO8uB+gcgNiXMs
7tpviOp/92bfwf39M0Hgpv2HwB1yra8P7p8N4e+H8WUg6vfD1H+AmLcfZh4v
xL79MPsiIe7ZHwB1TzzEvfsNoO5tgvhnvwHUPz4Q/+5ngPoXzf/2aP63R/O/
PZr/7dH8b4/mf3s0/9uj+d8ezf/2aP63R/O/PZr/7dH8b4/mf3s0/9uj+d8e
AKDMDc8=
      "], {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 2}, 0.02261146496815286], 
        ArrowBox[BezierCurveBox[{2, {0., -0.32888149436623243`}, 4}], 
         0.02261146496815286], 
        ArrowBox[BezierCurveBox[{2, {0., 0.32888149436623243`}, 4}], 
         0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], 
        DiskBox[4, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{1., 0.}, {0.6644407471831181, -0.6644407471831147}, {
         0., -1.}}], 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{1., 0.}, {0.3355592528168832, -0.3355592528168837}, {
         0., -1.}}], 0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.9296932075617857`*^9},ExpressionUUID->"1aeac969-81fb-482a-8afb-\
ad21d405f90a"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207569914*^9},ExpressionUUID->"cfbd9e22-4369-4f07-816e-\
a5c57b0e51b7"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs before momentum conservation:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{
     GraphicsComplexBox[{{0., 1.}, {1., 0.}, {0., -1.}, {-1., 0.}}, {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 2}, 0.02261146496815286], 
        ArrowBox[{1, 4}, 0.02261146496815286], 
        ArrowBox[{2, 4}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], 
        DiskBox[4, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{0., 1.}, {1., 0.}}, 0.02261146496815286], 
       ArrowBox[{{0., 1.}, {0., -1.}}, 0.02261146496815286], 
       ArrowBox[{{1., 0.}, {0., -1.}}, 0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207595665*^9},ExpressionUUID->"e9550438-220f-43dd-9753-\
86b7c54f1017"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs with momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{
     GraphicsComplexBox[{{-0.5, 0.8660254037844386}, {0.5, 
      0.8660254037844386}, {1., 0.}, {
      0.5, -0.8660254037844386}, {-0.5, -0.8660254037844386}, {-1., 0.}}, {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 6}, 0.02261146496815286], 
        ArrowBox[{2, 3}, 0.02261146496815286], 
        ArrowBox[{4, 6}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286], 
        DiskBox[5, 0.02261146496815286], 
        DiskBox[6, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{-0.5, 0.8660254037844386}, {-0.5, -0.8660254037844386}}, 
        0.02261146496815286], 
       ArrowBox[{{0.5, 0.8660254037844386}, {1., 0.}}, 0.02261146496815286], 
       ArrowBox[{{0.5, -0.8660254037844386}, {-0.5, -0.8660254037844386}}, 
        0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{-0.5, 0.8660254037844386}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {-0.5, 0.8886368687525914}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{0.5, 0.8660254037844386}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0.5, 0.8886368687525914}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{0.5, -0.8660254037844386}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {0.5, -0.8434139388162858}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {
        DiskBox[{-0.5, -0.8660254037844386}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {-0.5, -0.8434139388162858}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207617651*^9},ExpressionUUID->"7997f9d1-fe55-42f0-8c77-\
c311ffd8a83e"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"False", ",", "True"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207627083*^9},ExpressionUUID->"29e13e60-4b0c-4506-9622-\
4a339a1af0fb"],

Cell[BoxData["True"], "Echo",
 CellChangeTimes->{
  3.9296932076318274`*^9},ExpressionUUID->"34d5f791-dfaa-40e8-a9ce-\
dbc3176df367"],

Cell[BoxData["\<\"No graph survided.\"\>"], "Echo",
 CellChangeTimes->{
  3.929693207642852*^9},ExpressionUUID->"dec84a4e-a247-47a9-9e88-\
9e4ae90b39e6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207648182*^9},ExpressionUUID->"92269869-4242-4344-91b0-\
ee9d9b0c214d"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs before momentum conservation:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQjQo+2KPSGPL7UWkGhhdMTpP+Tdq4f3HamRd/81/b
F3BJ6bnZbtt/Jt/VUcbnlT2DT/6T/LDd+28t4E3bp//S/siu/xW7cw/sZ1NM
39oj/cJ+wlnx6O6Uw/tz629s0xJ4bs8gZRz4rPfY/mzRqF1mfM/s5/xkV3/7
/OT+D1qzqjzFntrX2HJdX1xwdr9GTP+hrxpP7LUg9P4CiLj9J4i6/RMg+uzz
Iebs/yIJNtc+H2LP/haIvfacEHfs3wNxl/1diDv3f/AGu9v+PMQf+zMg/rJf
AfHn/hsQf9vXpJ6L4XA4tH/J/u26C86+tb/h8OpX3/lj+zfvs7EKt3hrv6Dm
ZDqb4+n9jWJFzEZT39h/qU7WOjvx/P4AwQOKE5+8ttdh9J+06v7F/XN5rDTv
qr22173q3T3p8eX9jZabs9tiXtmrrjrNlXv56v5ZjHbbWNpe2m9zf1glsu76
/kVgD7+wXwqh92+AiNvPg6jbLw/RZ98CMWe/OsRc+wUQe/arQey1D4K4Y/8T
iLvsmyHu3D8B4m77LRB/7D8F8Zf9Mog/9+dA/G0PAOOqDzU=
       "], {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[
          BezierCurveBox[{1, {-0.3355592528168837, 0.3355592528168832}, 4}], 
          0.02261146496815286], 
         ArrowBox[
          BezierCurveBox[{1, {-0.6644407471831147, 0.6644407471831181}, 4}], 
          0.02261146496815286], ArrowBox[{2, 3}, 0.02261146496815286]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
         DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[
         BezierCurveBox[{{0., 1.}, {0.32888149436623243`, 0.}, {0., -1.}}], 
         0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{{0., 1.}, {-0.32888149436623243`, 0.}, {0., -1.}}], 
         0.02261146496815286], 
        ArrowBox[{{1., 0.}, {0., -1.}}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
         InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None], ",", 
    GraphicsBox[{
      GraphicsComplexBox[{{0., 1.}, {1., 0.}, {0., -1.}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 2}, 0.02261146496815286], 
         ArrowBox[{1, 4}, 0.02261146496815286], 
         ArrowBox[{3, 4}, 0.02261146496815286]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
         DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[
         BezierCurveBox[{{0., 1.}, {0.32888149436623243`, 0.}, {0., -1.}}], 
         0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{{0., 1.}, {-0.32888149436623243`, 0.}, {0., -1.}}], 
         0.02261146496815286], 
        ArrowBox[{{1., 0.}, {0., -1.}}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
         InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None]}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207671471*^9},ExpressionUUID->"0bda29b5-939b-4639-8880-\
29848d71b562"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs with momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{
    GraphicsBox[{
      GraphicsComplexBox[{{-0.30901699437494745`, 0.9510565162951535}, {
       0.8090169943749475, 0.5877852522924731}, {
       0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 5}, 0.021812234931106983`], 
         ArrowBox[{2, 5}, 0.021812234931106983`], 
         ArrowBox[{3, 4}, 0.021812234931106983`]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.021812234931106983], DiskBox[2, 0.021812234931106983], 
         DiskBox[3, 0.021812234931106983], DiskBox[4, 0.021812234931106983], 
         DiskBox[5, 0.021812234931106983]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{-0.30901699437494745`, 
         0.9510565162951535}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{0.8090169943749475, 
         0.5877852522924731}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{
         0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}}, 0.021812234931106983`]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{-0.30901699437494745`, 0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["1", 
          Offset[{0, 2}, {-0.30901699437494745, 0.9728687512262605}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, 0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["1", 
          Offset[{0, 2}, {0.8090169943749475, 0.6095974872235801}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, -0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["2", 
          Offset[{0, 2}, {0.8090169943749475, -0.5659730173613662}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{-0.30901699437494745`, -0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["3", 
          Offset[{0, 2}, {-0.30901699437494745, -0.9292442813640466}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.021812234931106983], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.021812234931106983}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None], ",", 
    GraphicsBox[{
      GraphicsComplexBox[{{-0.30901699437494745`, 0.9510565162951535}, {
       0.8090169943749475, 0.5877852522924731}, {
       0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 5}, 0.021812234931106983`], 
         ArrowBox[{2, 3}, 0.021812234931106983`], 
         ArrowBox[{4, 5}, 0.021812234931106983`]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.021812234931106983], DiskBox[2, 0.021812234931106983], 
         DiskBox[3, 0.021812234931106983], DiskBox[4, 0.021812234931106983], 
         DiskBox[5, 0.021812234931106983]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{-0.30901699437494745`, 
         0.9510565162951535}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{0.8090169943749475, 
         0.5877852522924731}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{
         0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}}, 0.021812234931106983`]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{-0.30901699437494745`, 0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["1", 
          Offset[{0, 2}, {-0.30901699437494745, 0.9728687512262605}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, 0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["1", 
          Offset[{0, 2}, {0.8090169943749475, 0.6095974872235801}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, -0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["2", 
          Offset[{0, 2}, {0.8090169943749475, -0.5659730173613662}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{-0.30901699437494745`, -0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["3", 
          Offset[{0, 2}, {-0.30901699437494745, -0.9292442813640466}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.021812234931106983], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.021812234931106983}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None]}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207705517*^9},ExpressionUUID->"50bc985d-fefa-47de-90f3-\
22edb15d669e"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"False", ",", "False", ",", "True", ",", "False"}], 
   "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207720367*^9},ExpressionUUID->"1e3ca5e3-21b4-4a68-9bce-\
5fd1e7058734"],

Cell[BoxData["True"], "Echo",
 CellChangeTimes->{
  3.9296932077261257`*^9},ExpressionUUID->"33eabc8b-bf3c-4637-a4dc-\
347d55fd86f5"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"True", ",", "False", ",", "True", ",", "False"}], "}"}]}]], "Echo",\

 CellChangeTimes->{
  3.929693207737343*^9},ExpressionUUID->"a0bacdbf-db87-4cb9-af88-\
cd097b7f0038"],

Cell[BoxData["True"], "Echo",
 CellChangeTimes->{
  3.929693207740499*^9},ExpressionUUID->"aa0f08ac-ceae-47f2-8ce1-\
5a65439ced5c"],

Cell[BoxData["\<\"No graph survided.\"\>"], "Echo",
 CellChangeTimes->{
  3.92969320774876*^9},ExpressionUUID->"9fb2c6a8-3b9f-42da-a5fc-e402a13b7aed"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207760428*^9},ExpressionUUID->"14aa50dd-51b5-465e-a0eb-\
185fcdb0fe99"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs before momentum conservation:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{
    GraphicsBox[{
      GraphicsComplexBox[{{0., 1.}, {1., 0.}, {0., -1.}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 2}, 0.02261146496815286], 
         ArrowBox[{2, 4}, 0.02261146496815286], 
         ArrowBox[{3, 4}, 0.02261146496815286]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
         DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{0., 1.}, {0., -1.}}, 0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{{1., 0.}, {
          0.6644407471831181, -0.6644407471831147}, {0., -1.}}], 
         0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{{1., 0.}, {
          0.3355592528168832, -0.3355592528168837}, {0., -1.}}], 
         0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
         InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None], ",", 
    GraphicsBox[{
      GraphicsComplexBox[{{0., 1.}, {1., 0.}, {0., -1.}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 4}, 0.02261146496815286], 
         ArrowBox[{2, 3}, 0.02261146496815286], 
         ArrowBox[{2, 4}, 0.02261146496815286]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
         DiskBox[3, 0.02261146496815286], DiskBox[4, 0.02261146496815286]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{0., 1.}, {0., -1.}}, 0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{{1., 0.}, {
          0.6644407471831181, -0.6644407471831147}, {0., -1.}}], 
         0.02261146496815286], 
        ArrowBox[
         BezierCurveBox[{{1., 0.}, {
          0.3355592528168832, -0.3355592528168837}, {0., -1.}}], 
         0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
         InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
         InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
         InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None]}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207780395*^9},ExpressionUUID->"ed66c84d-496b-47dd-92dc-\
6f0c1a6fa8e2"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs with momenta:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   RowBox[{
    GraphicsBox[{
      GraphicsComplexBox[{{-0.30901699437494745`, 0.9510565162951535}, {
       0.8090169943749475, 0.5877852522924731}, {
       0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 2}, 0.021812234931106983`], 
         ArrowBox[{3, 5}, 0.021812234931106983`], 
         ArrowBox[{4, 5}, 0.021812234931106983`]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.021812234931106983], DiskBox[2, 0.021812234931106983], 
         DiskBox[3, 0.021812234931106983], DiskBox[4, 0.021812234931106983], 
         DiskBox[5, 0.021812234931106983]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{-0.30901699437494745`, 
         0.9510565162951535}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{0.8090169943749475, 
         0.5877852522924731}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{
         0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}}, 0.021812234931106983`]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{-0.30901699437494745`, 0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["1", 
          Offset[{0, 2}, {-0.30901699437494745, 0.9728687512262605}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, 0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["2", 
          Offset[{0, 2}, {0.8090169943749475, 0.6095974872235801}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, -0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["2", 
          Offset[{0, 2}, {0.8090169943749475, -0.5659730173613662}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{-0.30901699437494745`, -0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["3", 
          Offset[{0, 2}, {-0.30901699437494745, -0.9292442813640466}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.021812234931106983], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.021812234931106983}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None], ",", 
    GraphicsBox[{
      GraphicsComplexBox[{{-0.30901699437494745`, 0.9510565162951535}, {
       0.8090169943749475, 0.5877852522924731}, {
       0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}, {-1., 0.}}, {
        {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
         ArrowBox[{1, 5}, 0.021812234931106983`], 
         ArrowBox[{2, 5}, 0.021812234931106983`], 
         ArrowBox[{3, 4}, 0.021812234931106983`]}, 
        {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
         DiskBox[1, 0.021812234931106983], DiskBox[2, 0.021812234931106983], 
         DiskBox[3, 0.021812234931106983], DiskBox[4, 0.021812234931106983], 
         DiskBox[5, 0.021812234931106983]}}], {
       {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{-0.30901699437494745`, 
         0.9510565162951535}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{0.8090169943749475, 
         0.5877852522924731}, {-0.30901699437494745`, -0.9510565162951535}}, 
         0.021812234931106983`], 
        ArrowBox[{{
         0.8090169943749475, -0.5877852522924731}, {-0.30901699437494745`, \
-0.9510565162951535}}, 0.021812234931106983`]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{-0.30901699437494745`, 0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["1", 
          Offset[{0, 2}, {-0.30901699437494745, 0.9728687512262605}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, 0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["2", 
          Offset[{0, 2}, {0.8090169943749475, 0.6095974872235801}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8090169943749475, -0.5877852522924731}, 
          0.021812234931106983], 
         InsetBox["2", 
          Offset[{0, 2}, {0.8090169943749475, -0.5659730173613662}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{-0.30901699437494745`, -0.9510565162951535}, 
          0.021812234931106983], 
         InsetBox["3", 
          Offset[{0, 2}, {-0.30901699437494745, -0.9292442813640466}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.021812234931106983], 
         InsetBox["4", Offset[{0, 2}, {-1., 0.021812234931106983}], 
          ImageScaled[{0.5, 0}],
          BaseStyle->"Graphics"]}}}},
     FormatType->TraditionalForm,
     FrameTicks->None]}], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207805191*^9},ExpressionUUID->"87ec8be0-4d55-4869-9891-\
2fb0f62997f1"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", "True", "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207818162*^9},ExpressionUUID->"a08f43e1-02be-42b1-b244-\
ab3976328043"],

Cell[BoxData["True"], "Echo",
 CellChangeTimes->{
  3.9296932078243103`*^9},ExpressionUUID->"ed8c2fdb-ebee-4d32-bc93-\
c9ead6c453fb"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Conditions:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", "False", "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207835298*^9},ExpressionUUID->"fbb91f28-ee41-482a-9768-\
ef78b1ac4ba9"],

Cell[BoxData["False"], "Echo",
 CellChangeTimes->{
  3.929693207838887*^9},ExpressionUUID->"f3c17f90-369b-4dfd-85e3-\
d4da8d47d3c6"],

Cell[BoxData[
 RowBox[{
  TagBox["\<\"Graphs:\"\>",
   "EchoLabel"], "  ", 
  RowBox[{"{", 
   GraphicsBox[{
     GraphicsComplexBox[{{0., 1.}, {1., 0.}, {0., -1.}, {-1., 0.}}, {
       {RGBColor[1, 0, 0], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{1, 4}, 0.02261146496815286], 
        ArrowBox[{2, 3}, 0.02261146496815286], 
        ArrowBox[{2, 4}, 0.02261146496815286]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], 
        DiskBox[1, 0.02261146496815286], DiskBox[2, 0.02261146496815286], 
        DiskBox[3, 0.02261146496815286], 
        DiskBox[4, 0.02261146496815286]}}], {
      {RGBColor[0, 0, 1], Opacity[0.7], Arrowheads[Medium], 
       ArrowBox[{{0., 1.}, {0., -1.}}, 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{1., 0.}, {0.6644407471831181, -0.6644407471831147}, {
         0., -1.}}], 0.02261146496815286], 
       ArrowBox[
        BezierCurveBox[{{1., 0.}, {0.3355592528168832, -0.3355592528168837}, {
         0., -1.}}], 0.02261146496815286]}, 
      {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
       0.7]}], {DiskBox[{0., 1.}, 0.02261146496815286], 
        InsetBox["1", Offset[{0, 2}, {0., 1.0226114649681528}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{1., 0.}, 0.02261146496815286], 
        InsetBox["2", Offset[{0, 2}, {1., 0.02261146496815286}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{0., -1.}, 0.02261146496815286], 
        InsetBox["3", Offset[{0, 2}, {0., -0.9773885350318472}], ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}, {DiskBox[{-1., 0.}, 0.02261146496815286], 
        InsetBox["4", Offset[{0, 2}, {-1., 0.02261146496815286}], 
         ImageScaled[{0.5, 0}],
         BaseStyle->"Graphics"]}}}},
    FormatType->TraditionalForm,
    FrameTicks->None], "}"}]}]], "Echo",
 CellChangeTimes->{
  3.929693207878694*^9},ExpressionUUID->"f2142b14-cde7-48b7-a1c3-\
189fb193921e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
          RowBox[{#}]]& ), InterpretationFunction -> (RowBox[{"Momentum", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleSquareChain",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
         SlotSequence[3], "|", #2, "]"}]& ),
      InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
         RowBox[{#, ",", "{", 
           TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}]}], "}"}]], "Output",
 CellChangeTimes->{3.857163765525695*^9, 3.857163870343205*^9, 
  3.85716398747093*^9, 3.857164520964098*^9, 3.857164651926757*^9, 
  3.92969320788729*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"7844aa92-bb29-4504-8cef-c3330d27612d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"HelicityCategoryBasis", "[", 
   RowBox[{"6", ",", 
    RowBox[{"MomentumConservation", "->", "False"}]}], "]"}], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8571642492326202`*^9, 3.857164253876589*^9}, 
   3.929693213610593*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"71b0af2b-0f67-442d-b139-6ef41f86cb0b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
          RowBox[{#}]]& ), InterpretationFunction -> (RowBox[{"Momentum", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleSquareChain",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
         SlotSequence[3], "|", #2, "]"}]& ),
      InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
         RowBox[{#, ",", "{", 
           TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"1"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}]}], "}"}]], "Output",
 CellChangeTimes->{3.857164254188775*^9, 3.857164531788735*^9, 
  3.8571646666336327`*^9, 3.929693214246024*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"823bdd0e-a98d-45e4-a0d0-ef90146cf474"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KinematicBasis", "[", "6", "]"}], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.857164016110096*^9, 3.857164030969697*^9}, {
  3.8571642002394667`*^9, 3.857164200864565*^9}, {3.929693217706933*^9, 
  3.9296932184460506`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"c0bd3fdd-b3b5-4af2-a6c3-05402baca343"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
          RowBox[{#}]]& ), InterpretationFunction -> (RowBox[{"Momentum", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleSquareChain",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
         SlotSequence[3], "|", #2, "]"}]& ),
      InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
         RowBox[{#, ",", "{", 
           TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "SquareB",
      DisplayFunction->(RowBox[{"[", 
         RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
      InterpretationFunction->(RowBox[{"SquareB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "SquareB",
      DisplayFunction->(RowBox[{"[", 
         RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
      InterpretationFunction->(RowBox[{"SquareB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.857164031279098*^9, 3.8571642017677507`*^9, 
  3.857164589356783*^9, 3.857164668336138*^9, 3.929693218864798*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"861c0029-59f3-47c9-9e9e-8b0bbfa676f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"KinematicBasis", "[", 
   RowBox[{"6", ",", 
    RowBox[{"MassSquared", "->", "True"}]}], "]"}], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.857164038533362*^9, 3.857164043567594*^9}, {
  3.857164090870749*^9, 3.857164133636483*^9}, {3.92969322147507*^9, 
  3.92969322243473*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"4d3688a2-21e2-4e1e-904c-31f4215b0fec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
          RowBox[{#}]]& ), InterpretationFunction -> (RowBox[{"Momentum", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleSquareChain",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
         SlotSequence[3], "|", #2, "]"}]& ),
      InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
         RowBox[{#, ",", "{", 
           TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "SquareB",
      DisplayFunction->(RowBox[{"[", 
         RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
      InterpretationFunction->(RowBox[{"SquareB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"]}], ",", 
   RowBox[{
    RowBox[{"-", 
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{"2"}, "Momentum", DisplayFunction -> (SubscriptBox["p", 
         RowBox[{#}]]& ), 
       InterpretationFunction -> (RowBox[{"Momentum", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleSquareChain",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", #, "|", 
        SlotSequence[3], "|", #2, "]"}]& ),
     InterpretationFunction->(RowBox[{"AngleSquareChain", "[", 
        RowBox[{#, ",", "{", 
          TemplateSlotSequence[3, ","], "}", ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "AngleB",
      DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
         RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
      InterpretationFunction->(RowBox[{"AngleB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    SuperscriptBox[
     TemplateBox[{
       TemplateBox[{
         TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
        DisplayFunction -> (RowBox[{#}]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
           RowBox[{#}], "]"}]& )], 
       TemplateBox[{
         TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
          InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
        DisplayFunction -> (StyleBox[#, Bold]& ), 
        InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
           RowBox[{#}], "]"}]& )]},
      "SquareB",
      DisplayFunction->(RowBox[{"[", 
         RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
      InterpretationFunction->(RowBox[{"SquareB", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], "2"]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}], ",", 
   RowBox[{
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"4"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorUndottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorUndottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "AngleB",
     DisplayFunction->(RowBox[{"\[LeftAngleBracket]", 
        RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ),
     InterpretationFunction->(RowBox[{"AngleB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassTilde",
     DisplayFunction->(SubscriptBox[
       OverscriptBox["m", "~"], 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassTilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{#}]& )]},
     "MassUntilde",
     DisplayFunction->(SubscriptBox["m", 
       RowBox[{#}]]& ),
     InterpretationFunction->(RowBox[{"MassUntilde", "[", 
        RowBox[{#}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"1"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )], " ", 
    TemplateBox[{
      TemplateBox[{
        TemplateBox[{"3"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedML", 
       DisplayFunction -> (RowBox[{#}]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
          RowBox[{#}], "]"}]& )], 
      TemplateBox[{
        TemplateBox[{"2"}, "ToLabel", DisplayFunction -> (RowBox[{#}]& ), 
         InterpretationFunction -> (RowBox[{#}]& )]}, "SpinorDottedMV", 
       DisplayFunction -> (StyleBox[#, Bold]& ), 
       InterpretationFunction -> (RowBox[{"SpinorDottedMV[]", "[", 
          RowBox[{#}], "]"}]& )]},
     "SquareB",
     DisplayFunction->(RowBox[{"[", 
        RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ),
     InterpretationFunction->(RowBox[{"SquareB", "[", 
        RowBox[{#, ",", #2}], "]"}]& )]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.857164044014736*^9, {3.85716409141374*^9, 3.857164134027082*^9}, 
   3.857164591821273*^9, 3.8571646704844112`*^9, 3.929693222881502*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"fcfce169-8f7c-4f07-9ab1-e835158c893d"]
}, Open  ]]
},
WindowSize->{1512, 916},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
InputAliases-><|"intt" -> RowBox[{"\[Integral]", 
     RowBox[{"\[SelectionPlaceholder]", 
       RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> 
  RowBox[{
     SubsuperscriptBox[
     "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], 
     RowBox[{"\[Placeholder]", 
       RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "rintt" -> 
  RowBox[{
     UnderscriptBox["\[Integral]", 
      RowBox[{"\[SelectionPlaceholder]", "\[Element]", "\[Placeholder]"}]], 
     "\[Placeholder]"}], "sumt" -> RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
      "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{
     UnderoverscriptBox["\[Product]", 
      RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
      "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{
     SubscriptBox["\[PartialD]", "\[SelectionPlaceholder]"], 
     "\[Placeholder]"}], "cbrt" -> 
  RadicalBox[
   "\[SelectionPlaceholder]", "3", SurdForm -> True, MultilineFunction -> 
    None], "surd" -> 
  RadicalBox[
   "\[SelectionPlaceholder]", "\[Placeholder]", SurdForm -> True, 
    MultilineFunction -> None], "ket" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "Ket"], "bra" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "Bra"], "braket" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "BraKet"], 
  "delay" -> TemplateBox[{"\[SelectionPlaceholder]"}, "SystemsModelDelay"], 
  "grad" -> RowBox[{
     SubscriptBox["\[Del]", "\[SelectionPlaceholder]"], "\[Placeholder]"}], 
  "del." -> RowBox[{
     SubscriptBox["\[Del]", "\[SelectionPlaceholder]"], ".", 
     "\[Placeholder]"}], "delx" -> RowBox[{
     SubscriptBox["\[Del]", "\[SelectionPlaceholder]"], "\[Cross]", 
     "\[Placeholder]"}], "del2" -> RowBox[{
     SubsuperscriptBox["\[Del]", "\[SelectionPlaceholder]", 2], 
     "\[Placeholder]"}], "kd" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "KroneckerDeltaSeq"], "algs" -> 
  TemplateBox[{}, "Algebraics"], "bools" -> TemplateBox[{}, "Booleans"], 
  "comps" -> TemplateBox[{}, "Complexes"], "ints" -> 
  TemplateBox[{}, "Integers"], "pris" -> TemplateBox[{}, "Primes"], "rats" -> 
  TemplateBox[{}, "Rationals"], "reals" -> TemplateBox[{}, "Reals"], "pints" -> 
  TemplateBox[{}, "PositiveIntegers"], "npints" -> 
  TemplateBox[{}, "NonPositiveIntegers"], "nnints" -> 
  TemplateBox[{}, "NonNegativeIntegers"], "nints" -> 
  TemplateBox[{}, "NegativeIntegers"], "prats" -> 
  TemplateBox[{}, "PositiveRationals"], "nprats" -> 
  TemplateBox[{}, "NonPositiveRationals"], "nnrats" -> 
  TemplateBox[{}, "NonNegativeRationals"], "nrats" -> 
  TemplateBox[{}, "NegativeRationals"], "preals" -> 
  TemplateBox[{}, "PositiveReals"], "npreals" -> 
  TemplateBox[{}, "NonPositiveReals"], "nnreals" -> 
  TemplateBox[{}, "NonNegativeReals"], "nreals" -> 
  TemplateBox[{}, "NegativeReals"], "dlim" -> RowBox[{
     UnderscriptBox["\[Limit]", 
      RowBox[{"\[SelectionPlaceholder]", 
        UnderscriptBox["\[Rule]", 
         TemplateBox[{}, "Integers"]], "\[Infinity]"}]], "\[Placeholder]"}], 
  "dMlim" -> RowBox[{
     UnderscriptBox["\[MaxLimit]", 
      RowBox[{"\[SelectionPlaceholder]", 
        UnderscriptBox["\[Rule]", 
         TemplateBox[{}, "Integers"]], "\[Infinity]"}]], "\[Placeholder]"}], 
  "dmlim" -> RowBox[{
     UnderscriptBox["\[MinLimit]", 
      RowBox[{"\[SelectionPlaceholder]", 
        UnderscriptBox["\[Rule]", 
         TemplateBox[{}, "Integers"]], "\[Infinity]"}]], "\[Placeholder]"}], 
  "tue" -> OverscriptBox["\[UndirectedEdge]", "\[Placeholder]"], "tde" -> 
  OverscriptBox["\[DirectedEdge]", "\[Placeholder]"], "cB" -> 
  TemplateBox[{}, "CombinatorB"], "cC" -> TemplateBox[{}, "CombinatorC"], 
  "cI" -> TemplateBox[{}, "CombinatorI"], "cK" -> 
  TemplateBox[{}, "CombinatorK"], "cS" -> TemplateBox[{}, "CombinatorS"], 
  "cW" -> TemplateBox[{}, "CombinatorW"], "cY" -> 
  TemplateBox[{}, "CombinatorY"], "lu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorLaUp", DisplayFunction -> (RowBox[{
       SuperscriptBox["\[Lambda]", #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorUndot", "[", #, "]", "[", "$lam", "]", "[", #2, "]", "[", 
       "Null", "]"}]& )], "ld" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorLaDown", DisplayFunction -> (RowBox[{
       SubscriptBox["\[Lambda]", #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorUndot", "[", #, "]", "[", "$lam", "]", "[", "Null", "]", 
       "[", #2, "]"}]& )], "muu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorMuUp", DisplayFunction -> (RowBox[{
       SuperscriptBox["\[Mu]", #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorUndot", "[", #, "]", "[", "$mu", "]", "[", #2, "]", "[", 
       "Null", "]"}]& )], "mud" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorMuDown", DisplayFunction -> (RowBox[{
       SubscriptBox["\[Mu]", #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorUndot", "[", #, "]", "[", "$mu", "]", "[", "Null", "]", 
       "[", #2, "]"}]& )], "lp" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorUndotBareL", 
    DisplayFunction -> (RowBox[{"\[Lambda]", "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorUndotBare", "[", #, "]", "[", "$lam", "]"}]& )], "mp" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorUndotBareM", 
    DisplayFunction -> (RowBox[{"\[Mu]", "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorUndotBare", "[", #, "]", "[", "$mu", "]"}]& )], "ltu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorLatUp", DisplayFunction -> (RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Lambda]", "~"], #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorDot", "[", #, "]", "[", "$lam", "]", "[", #2, "]", "[", 
       "Null", "]"}]& )], "ltd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorLatDown", DisplayFunction -> (RowBox[{
       SubscriptBox[
        OverscriptBox["\[Lambda]", "~"], #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorDot", "[", #, "]", "[", "$lam", "]", "[", "Null", "]", 
       "[", #2, "]"}]& )], "mtu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorMutUp", DisplayFunction -> (RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Mu]", "~"], #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorDot", "[", #, "]", "[", "$mu", "]", "[", #2, "]", "[", 
       "Null", "]"}]& )], "mtd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "SpinorMutDown", DisplayFunction -> (RowBox[{
       SubscriptBox[
        OverscriptBox["\[Mu]", "~"], #2], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorDot", "[", #, "]", "[", "$mu", "]", "[", "Null", "]", 
       "[", #2, "]"}]& )], "ltp" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorDotBareL", 
    DisplayFunction -> (RowBox[{
       OverscriptBox["\[Lambda]", "~"], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorDotBare", "[", #, "]", "[", "$lam", "]"}]& )], "mtp" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorDotBareM", 
    DisplayFunction -> (RowBox[{
       OverscriptBox["\[Mu]", "~"], "[", #, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"SpinorDotBare", "[", #, "]", "[", "$mu", "]"}]& )], "ab" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "SpinorAngleBracket", DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"SpinorAngleBracket", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sb" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "SpinorSquareBracket", DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SpinorSquareBracket", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "cas" -> 
  TemplateBox[{"\[SelectionPlaceholder]", 
     RowBox[{"{", "\[SelectionPlaceholder]", "}"}], 
     "\[SelectionPlaceholder]"}, "AngleSquareChain", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", #, #2, #3, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"Chain", "[", "$angle", ",", #, ",", #2, ",", #3, ",", "$square",
        "]"}]& )], "csa" -> TemplateBox[{"\[SelectionPlaceholder]", 
     RowBox[{"{", "\[SelectionPlaceholder]", "}"}], 
     "\[SelectionPlaceholder]"}, "SquareAngleChain", 
    DisplayFunction -> (RowBox[{"[", #, #2, #3, "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"Chain", "[", "$square", ",", #, ",", #2, ",", #3, ",", "$angle",
        "]"}]& )], "caa" -> TemplateBox[{"\[SelectionPlaceholder]", 
     RowBox[{"{", "\[SelectionPlaceholder]", "}"}], 
     "\[SelectionPlaceholder]"}, "AngleAngleChain", 
    DisplayFunction -> (
     RowBox[{"\[LeftAngleBracket]", #, #2, #3, "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"Chain", "[", "$angle", ",", #, ",", #2, ",", #3, ",", "$angle", 
       "]"}]& )], "css" -> TemplateBox[{"\[SelectionPlaceholder]", 
     RowBox[{"{", "\[SelectionPlaceholder]", "}"}], 
     "\[SelectionPlaceholder]"}, "SquareSquareChain", 
    DisplayFunction -> (RowBox[{"[", #, #2, #3, "]"}]& ), 
    InterpretationFunction -> (
     RowBox[{"Chain", "[", "$square", ",", #, ",", #2, ",", #3, ",", 
       "$square", "]"}]& )], "lcup" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"}, 
    "LevicivitaSHUp", DisplayFunction -> (SuperscriptBox["\[Epsilon]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (
     RowBox[{"LeviCivitaSH", "[", #, ",", #2, "]", "[", "$up", "]"}]& )], 
  "lcd" -> TemplateBox[{"\[SelectionPlaceholder]", "\[SelectionPlaceholder]"},
     "LevicivitaSHDown", DisplayFunction -> (SubscriptBox["\[Epsilon]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (
     RowBox[{"LeviCivitaSH", "[", #, ",", #2, "]", "[", "$down", "]"}]& )], 
  "metric" -> TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "Metric", DisplayFunction -> (SuperscriptBox["\[Eta]", 
      RowBox[{
        SlotSequence[1]}]]& ), 
    InterpretationFunction -> (RowBox[{"Metric", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "eps" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "EpsilonPol", 
    DisplayFunction -> (SubsuperscriptBox["\[CurlyEpsilon]", 
      RowBox[{#}], 
      RowBox[{
        SlotSequence[2]}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonPol", "[", 
       RowBox[{#}], ",", 
       TemplateSlotSequence[2, ","], "]"}]& )], "fieldst" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "FieldStr", DisplayFunction -> (SubsuperscriptBox["F", 
      RowBox[{#}], 
      RowBox[{#2, #3}]]& ), 
    InterpretationFunction -> (RowBox[{"FieldStr", "[", 
       RowBox[{#}], ",", 
       RowBox[{#2}], ",", 
       RowBox[{#3}], "]"}]& )], "riemann" -> 
  TemplateBox[{
    "\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]", 
     "\[Placeholder]", "\[Placeholder]"}, "Riemann", 
    DisplayFunction -> (SubsuperscriptBox["R", 
      RowBox[{#}], 
      RowBox[{#2, #3, #4, #5}]]& ), 
    InterpretationFunction -> (RowBox[{"Riemann", "[", 
       RowBox[{#}], ",", 
       RowBox[{#2}], ",", 
       RowBox[{#3}], ",", 
       RowBox[{#4}], ",", 
       RowBox[{#5}], "]"}]& )], "mom" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "Momentum", 
    DisplayFunction -> (SubsuperscriptBox["p", 
      RowBox[{#}], 
      RowBox[{#2}]]& ), InterpretationFunction -> (RowBox[{"Momentum", "[", 
       RowBox[{#}], ",", 
       RowBox[{#2}], "]"}]& )], "mand" -> 
  TemplateBox[{"\[SelectionPlaceholder]"}, "Mandelstam", 
    DisplayFunction -> (SubscriptBox["s", 
      RowBox[{
        SlotSequence[1]}]]& ), 
    InterpretationFunction -> (RowBox[{"Mandelstam", "[", 
       RowBox[{
         TemplateSlotSequence[1, ","]}], "]"}]& )], "dotmm" -> 
  DdimVariables`DotProduct[
    DdimVariables`Momentum["\[Placeholder]"], 
    DdimVariables`Momentum["\[SelectionPlaceholder]"]], "dotem" -> 
  DdimVariables`DotProduct[
    DdimVariables`EpsilonPol["\[SelectionPlaceholder]"], 
    DdimVariables`Momentum["\[Placeholder]"]], "dotee" -> 
  DdimVariables`DotProduct[
    DdimVariables`EpsilonPol["\[Placeholder]"], 
    DdimVariables`EpsilonPol["\[SelectionPlaceholder]"]], "suum" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "SpinorUndottedML", DisplayFunction -> (SubsuperscriptBox["\[Lambda]", 
      RowBox[{#}], 
      RowBox[{#2}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorUndottedML[$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sudm" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "SpinorUndottedDownML", DisplayFunction -> (SubscriptBox["\[Lambda]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorUndottedML[$down]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sdum" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "SpinorDottedUpML", DisplayFunction -> (SubsuperscriptBox[
      OverscriptBox["\[Lambda]", "~"], 
      RowBox[{#}], 
      OverscriptBox[
       RowBox[{#2}], "."]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorDottedML[$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sddm" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "SpinorDottedDownML", DisplayFunction -> (SubscriptBox[
      OverscriptBox["\[Lambda]", "~"], 
      RowBox[{#, 
        OverscriptBox[#2, "."]}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorDottedML[$down]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "Suuu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorUndottedMV", DisplayFunction -> (SubsuperscriptBox["\[Lambda]", 
      RowBox[{#}], 
      RowBox[{#2, #3}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$up,$up]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Suud" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorUndottedMV", DisplayFunction -> (SubsuperscriptBox["\[Lambda]", 
      RowBox[{#, #3}], 
      RowBox[{#2}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$up,$down]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Sudu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorUndottedMV", DisplayFunction -> (SubsuperscriptBox["\[Lambda]", 
      RowBox[{#, #2}], 
      RowBox[{#3}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$down,$up]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Sudd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorUndottedMV", DisplayFunction -> (SubscriptBox["\[Lambda]", 
      RowBox[{#, #2, #3}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$down,$down]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Sduu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorDottedMV", DisplayFunction -> (SubsuperscriptBox[
      OverscriptBox["\[Lambda]", "~"], 
      RowBox[{#}], 
      RowBox[{
        OverscriptBox[
         RowBox[{#2}], "."], #3}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorDottedMV[$up,$up]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Sdud" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorDottedMV", DisplayFunction -> (SubsuperscriptBox[
      OverscriptBox["\[Lambda]", "~"], 
      RowBox[{#, #3}], 
      OverscriptBox[
       RowBox[{#2}], "."]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorDottedMV[$up,$down]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Sddu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorDottedMV", DisplayFunction -> (SubsuperscriptBox[
      OverscriptBox["\[Lambda]", "~"], 
      RowBox[{#, 
        OverscriptBox[
         RowBox[{#2}], "."]}], 
      RowBox[{#3}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorDottedMV[$down,$up]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "Sddd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]", "\[Placeholder]"},
     "SpinorDottedMV", DisplayFunction -> (SubscriptBox[
      OverscriptBox["\[Lambda]", "~"], 
      RowBox[{#, 
        OverscriptBox[
         RowBox[{#2}], "."], " ", #3}]]& ), 
    InterpretationFunction -> (RowBox[{"SpinorDottedMV[$down,$down]", "[", 
       RowBox[{#, ",", #2, ",", #3}], "]"}]& )], "ELuuu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "EpsilonLorentzUndotted", DisplayFunction -> (SuperscriptBox["\[Epsilon]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonLorentzUndotted[$up,$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ELudu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "EpsilonLorentzUndotted", 
    DisplayFunction -> (SubsuperscriptBox["\[Delta]", 
      RowBox[{#}], 
      RowBox[{#2}]]& ), 
    InterpretationFunction -> (
     RowBox[{"EpsilonLorentzUndotted[$down,$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ELudd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "EpsilonLorentzUndotted", DisplayFunction -> (SubscriptBox["\[Epsilon]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (
     RowBox[{"EpsilonLorentzUndotted[$down,$down]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ELduu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "EpsilonLorentzDotted", DisplayFunction -> (SuperscriptBox["\[Epsilon]", 
      RowBox[{
        OverscriptBox[#, "."], 
        OverscriptBox[#2, "."]}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonLorentzDotted[$up,$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ELddu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "EpsilonLorentzDotted", 
    DisplayFunction -> (SubsuperscriptBox["\[Delta]", 
      OverscriptBox[#, "."], 
      OverscriptBox[#2, "."]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonLorentzDotted[$down,$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ELddd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
    "EpsilonLorentzDotted", DisplayFunction -> (SubscriptBox["\[Epsilon]", 
      RowBox[{
        OverscriptBox[#, "."], 
        OverscriptBox[#2, "."]}]]& ), 
    InterpretationFunction -> (
     RowBox[{"EpsilonLorentzDotted[$down,$down]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ESuu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "EpsilonSpin", 
    DisplayFunction -> (SuperscriptBox["\[Epsilon]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonSpin[$up,$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ESdu" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "EpsilonSpin", 
    DisplayFunction -> (SubsuperscriptBox["\[Delta]", 
      RowBox[{#}], 
      RowBox[{#2}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonSpin[$down,$up]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "ESdd" -> 
  TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, "EpsilonSpin", 
    DisplayFunction -> (SubscriptBox["\[Epsilon]", 
      RowBox[{#, #2}]]& ), 
    InterpretationFunction -> (RowBox[{"EpsilonSpin[$down,$down]", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "abmm" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorUndottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
         RowBox[{#}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]"}, "SpinorUndottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
         RowBox[{#}], "]"}]& )]}, "AngleB", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"AngleB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "abmMu" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorUndottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
         RowBox[{#}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorUndottedMV", 
      DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "AngleB", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"AngleB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "abmMd" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorUndottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedML[]", "[", 
         RowBox[{#}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorUndottedMV", 
      DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "AngleB", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"AngleB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "abMuMu" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
      "SpinorUndottedMV", DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorUndottedMV", 
      DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "AngleB", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"AngleB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "abMdMu" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
      "SpinorUndottedMV", DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorUndottedMV", 
      DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "AngleB", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"AngleB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "abMdMd" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
      "SpinorUndottedMV", DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorUndottedMV", 
      DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorUndottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "AngleB", 
    DisplayFunction -> (RowBox[{"\[LeftAngleBracket]", 
       RowBox[{#, "\[MediumSpace]", #2}], "\[RightAngleBracket]"}]& ), 
    InterpretationFunction -> (RowBox[{"AngleB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sbmm" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorDottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
         RowBox[{#}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]"}, "SpinorDottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
         RowBox[{#}], "]"}]& )]}, "SquareB", 
    DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SquareB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sbmMu" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorDottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
         RowBox[{#}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorDottedMV", 
      DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "SquareB", 
    DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SquareB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sbmMd" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]"}, "SpinorDottedML", 
      DisplayFunction -> (RowBox[{#}]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedML[]", "[", 
         RowBox[{#}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorDottedMV", 
      DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "SquareB", 
    DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SquareB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sbMuMu" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
      "SpinorDottedMV", DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorDottedMV", 
      DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "SquareB", 
    DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SquareB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sbMdMu" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
      "SpinorDottedMV", DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorDottedMV", 
      DisplayFunction -> (SuperscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$up]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "SquareB", 
    DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SquareB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )], "sbMdMd" -> TemplateBox[{
     TemplateBox[{"\[SelectionPlaceholder]", "\[Placeholder]"}, 
      "SpinorDottedMV", DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )], 
     TemplateBox[{"\[Placeholder]", "\[Placeholder]"}, "SpinorDottedMV", 
      DisplayFunction -> (SubscriptBox[
        RowBox[{#}], 
        RowBox[{#2}]]& ), 
      InterpretationFunction -> (RowBox[{"SpinorDottedMV[$down]", "[", 
         RowBox[{#, ",", #2}], "]"}]& )]}, "SquareB", 
    DisplayFunction -> (RowBox[{"[", 
       RowBox[{#, "\[MediumSpace]", #2}], "]"}]& ), 
    InterpretationFunction -> (RowBox[{"SquareB", "[", 
       RowBox[{#, ",", #2}], "]"}]& )]|>,
FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (June 3, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"737017d0-3b89-4c8b-b700-608bba871d62"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 658, 13, 104, "Text",ExpressionUUID->"ca640bdb-a8cc-406e-a3bc-517418a5a8a9"],
Cell[CellGroupData[{
Cell[1241, 37, 443, 9, 73, "Input",ExpressionUUID->"5aea4e50-4355-47f0-8250-c2a0385b5ee0"],
Cell[1687, 48, 717, 14, 28, "Message",ExpressionUUID->"35b78f27-a1bc-48d7-b443-0460d4bd487c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2441, 67, 422, 6, 30, "Input",ExpressionUUID->"c8ffbe76-1c64-4e21-a928-935032297d18"],
Cell[2866, 75, 12078, 271, 233, "Output",ExpressionUUID->"28f088cf-6480-4683-a076-ac4173a20832"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14981, 351, 261, 4, 30, "Input",ExpressionUUID->"5dc3bb6f-386e-4e23-91ab-e0847ec06759"],
Cell[15245, 357, 11611, 264, 210, "Output",ExpressionUUID->"1be58d71-549c-4b33-9158-44ea00f1237d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26893, 626, 631, 17, 30, "Input",ExpressionUUID->"3717b732-ca62-4756-8ea3-3f9d3302f66b"],
Cell[CellGroupData[{
Cell[27549, 647, 260, 8, 24, "Echo",ExpressionUUID->"0100e4dc-6c07-49d4-ade4-1d7759d9e8b5"],
Cell[27812, 657, 2675, 52, 113, "Echo",ExpressionUUID->"be92963e-2d26-4175-bf40-064a53c5eb85"],
Cell[30490, 711, 2547, 49, 101, "Echo",ExpressionUUID->"4a722c60-f737-497a-99a9-5fa3c6579ce0"],
Cell[33040, 762, 250, 8, 24, "Echo",ExpressionUUID->"55838052-467a-4789-8c5a-1f07a34ae376"],
Cell[33293, 772, 131, 3, 24, "Echo",ExpressionUUID->"a01ef118-a733-4131-b2cb-a52e24ad1383"],
Cell[33427, 777, 155, 3, 24, "Echo",ExpressionUUID->"bf587895-fcde-495a-9457-8114bc27fc40"],
Cell[33585, 782, 260, 8, 24, "Echo",ExpressionUUID->"a38b1d0a-38d7-489e-854a-d52d3bd2b16d"],
Cell[33848, 792, 2436, 47, 113, "Echo",ExpressionUUID->"8d50b584-1d49-44b7-86cb-ed5afb37f485"],
Cell[36287, 841, 2547, 49, 101, "Echo",ExpressionUUID->"afac66ba-6222-47f0-adce-0b883f15581b"],
Cell[38837, 892, 216, 7, 24, "Echo",ExpressionUUID->"5e8f60b4-125a-49e8-b1f3-6a232a2c16ae"],
Cell[39056, 901, 134, 3, 24, "Echo",ExpressionUUID->"b1011e7c-f672-441d-a6ac-9c52f8bdc7c8"],
Cell[39193, 906, 2407, 47, 113, "Echo",ExpressionUUID->"1aeac969-81fb-482a-8afb-ad21d405f90a"],
Cell[41603, 955, 260, 8, 24, "Echo",ExpressionUUID->"cfbd9e22-4369-4f07-816e-a5c57b0e51b7"],
Cell[41866, 965, 1815, 34, 113, "Echo",ExpressionUUID->"e9550438-220f-43dd-9753-86b7c54f1017"],
Cell[43684, 1001, 2547, 49, 101, "Echo",ExpressionUUID->"7997f9d1-fe55-42f0-8c77-c311ffd8a83e"],
Cell[46234, 1052, 250, 8, 24, "Echo",ExpressionUUID->"29e13e60-4b0c-4506-9622-4a339a1af0fb"],
Cell[46487, 1062, 133, 3, 24, "Echo",ExpressionUUID->"34d5f791-dfaa-40e8-a9ce-dbc3176df367"],
Cell[46623, 1067, 153, 3, 24, "Echo",ExpressionUUID->"dec84a4e-a247-47a9-9e88-9e4ae90b39e6"],
Cell[46779, 1072, 260, 8, 24, "Echo",ExpressionUUID->"92269869-4242-4344-91b0-ee9d9b0c214d"],
Cell[47042, 1082, 4477, 85, 113, "Echo",ExpressionUUID->"0bda29b5-939b-4639-8880-29848d71b562"],
Cell[51522, 1169, 5482, 116, 117, "Echo",ExpressionUUID->"50bc985d-fefa-47de-90f3-22edb15d669e"],
Cell[57007, 1287, 282, 9, 24, "Echo",ExpressionUUID->"1e3ca5e3-21b4-4a68-9bce-5fd1e7058734"],
Cell[57292, 1298, 133, 3, 24, "Echo",ExpressionUUID->"33eabc8b-bf3c-4637-a4dc-347d55fd86f5"],
Cell[57428, 1303, 279, 9, 24, "Echo",ExpressionUUID->"a0bacdbf-db87-4cb9-af88-cd097b7f0038"],
Cell[57710, 1314, 131, 3, 24, "Echo",ExpressionUUID->"aa0f08ac-ceae-47f2-8ce1-5a65439ced5c"],
Cell[57844, 1319, 150, 2, 24, "Echo",ExpressionUUID->"9fb2c6a8-3b9f-42da-a5fc-e402a13b7aed"],
Cell[57997, 1323, 260, 8, 24, "Echo",ExpressionUUID->"14aa50dd-51b5-465e-a0eb-185fcdb0fe99"],
Cell[58260, 1333, 3850, 76, 113, "Echo",ExpressionUUID->"ed66c84d-496b-47dd-92dc-6f0c1a6fa8e2"],
Cell[62113, 1411, 5482, 116, 117, "Echo",ExpressionUUID->"87ec8be0-4d55-4869-9891-2fb0f62997f1"],
Cell[67598, 1529, 222, 7, 24, "Echo",ExpressionUUID->"a08f43e1-02be-42b1-b244-ab3976328043"],
Cell[67823, 1538, 133, 3, 24, "Echo",ExpressionUUID->"ed8c2fdb-ebee-4d32-bc93-c9ead6c453fb"],
Cell[67959, 1543, 223, 7, 24, "Echo",ExpressionUUID->"fbb91f28-ee41-482a-9768-ef78b1ac4ba9"],
Cell[68185, 1552, 132, 3, 24, "Echo",ExpressionUUID->"f3c17f90-369b-4dfd-85e3-d4da8d47d3c6"],
Cell[68320, 1557, 1943, 38, 113, "Echo",ExpressionUUID->"f2142b14-cde7-48b7-a1c3-189fb193921e"]
}, Open  ]],
Cell[70278, 1598, 8004, 163, 37, "Output",ExpressionUUID->"7844aa92-bb29-4504-8cef-c3330d27612d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78319, 1766, 627, 17, 30, "Input",ExpressionUUID->"71b0af2b-0f67-442d-b139-6ef41f86cb0b"],
Cell[78949, 1785, 54515, 1114, 82, "Output",ExpressionUUID->"823bdd0e-a98d-45e4-a0d0-ef90146cf474"]
}, Open  ]],
Cell[CellGroupData[{
Cell[133501, 2904, 621, 16, 30, "Input",ExpressionUUID->"c0bd3fdd-b3b5-4af2-a6c3-05402baca343"],
Cell[134125, 2922, 29855, 624, 60, "Output",ExpressionUUID->"861c0029-59f3-47c9-9e9e-8b0bbfa676f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164017, 3551, 678, 18, 30, "Input",ExpressionUUID->"4d3688a2-21e2-4e1e-904c-31f4215b0fec"],
Cell[164698, 3571, 38330, 805, 60, "Output",ExpressionUUID->"fcfce169-8f7c-4f07-9ab1-e835158c893d"]
}, Open  ]]
}
]
*)