AngularMomentum_examples.nb

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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    308355,       8661]
NotebookOptionsPosition[    300875,       8428]
NotebookOutlinePosition[    301230,       8444]
CellTagsIndexPosition[    301187,       8441]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Basic Usage", "Section",
 CellChangeTimes->{{3.606123433686789*^9, 3.606123438823172*^9}}],

Cell["First of all, the AngularMomentum Package must be loaded:", "Text",
 CellChangeTimes->{{3.60611007968565*^9, 3.606110115669086*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Path", "=", 
   RowBox[{"DeleteDuplicates", "@", 
    RowBox[{"Append", "[", 
     RowBox[{"$Path", ",", 
      RowBox[{"NotebookDirectory", "[", "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "AngularMomentum`"}]}], "Input",
 CellChangeTimes->{{3.606110092104203*^9, 3.606110097064487*^9}, {
  3.606110326552638*^9, 3.60611037716278*^9}, {3.680516767289673*^9, 
  3.680516768249647*^9}}],

Cell["\<\
Loading the package might take some time (~15 s on my machine). There is one \
known issue when loading it multiple times: In this case loading the package \
may never finish. In this case abort the evaluation (Evaluation->Abort \
Evaluation / Alt+.) and try again.\
\>", "Text",
 CellChangeTimes->{{3.606110122341791*^9, 3.606110251798451*^9}}],

Cell["\<\
Lets assume we want to simplify the following expression, which invovles a \
few Clebsch-\[LineSeparator]Gordan symbols:\
\>", "Text",
 CellChangeTimes->{{3.606110029526826*^9, 3.6061100725535307`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "1", "]"}], "=", 
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"mt", "[", "a", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"mt", "[", "b", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"t", "[", 
           RowBox[{"a", ",", "b"}], "]"}], ",", 
          RowBox[{"mt", "[", 
           RowBox[{"a", ",", "b"}], "]"}]}], "}"}]}], "]"}], " ", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"mtp", "[", "a", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"mtp", "[", "b", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tp", "[", 
           RowBox[{"a", ",", "b"}], "]"}], ",", 
          RowBox[{"mtp", "[", 
           RowBox[{"a", ",", "b"}], "]"}]}], "}"}]}], "]"}], " ", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"t", "[", 
           RowBox[{"a", ",", "b"}], "]"}], ",", 
          RowBox[{"mt", "[", 
           RowBox[{"a", ",", "b"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"mt", "[", "c", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"t", "[", 
           RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
          RowBox[{"mt", "[", 
           RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "]"}], " ", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tp", "[", 
           RowBox[{"a", ",", "b"}], "]"}], ",", 
          RowBox[{"mtp", "[", 
           RowBox[{"a", ",", "b"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"mtp", "[", "c", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"tp", "[", 
           RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
          RowBox[{"mtp", "[", 
           RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "}"}]}], "]"}], " ", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mt", "[", "c", "]"}], ",", 
        RowBox[{"mtp", "[", "c", "]"}]}], "]"}], " ", 
      RowBox[{"sum", "[", 
       RowBox[{
        RowBox[{"3", " ", 
         RowBox[{"cg", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"mt", "[", "b", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "\[Mu]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"mtp", "[", "b", "]"}]}], "}"}]}], "]"}], " ", 
         RowBox[{"cg", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"mtp", "[", "a", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "\[Mu]"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "/", "2"}], ",", 
             RowBox[{"mt", "[", "a", "]"}]}], "}"}]}], "]"}]}], ",", 
        "\[Mu]"}], "]"}]}], ",", 
     RowBox[{"mt", "[", "a", "]"}], ",", 
     RowBox[{"mt", "[", "b", "]"}], ",", 
     RowBox[{"mt", "[", "c", "]"}], ",", 
     RowBox[{"mt", "[", 
      RowBox[{"a", ",", "b"}], "]"}], ",", 
     RowBox[{"mtp", "[", "a", "]"}], ",", 
     RowBox[{"mtp", "[", "b", "]"}], ",", 
     RowBox[{"mtp", "[", "c", "]"}], ",", 
     RowBox[{"mtp", "[", 
      RowBox[{"a", ",", "b"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.606110014808257*^9}],

Cell["\<\
As this looks rather ugly, lets have a look at the expression in the \
traditional form:\
\>", "Text",
 CellChangeTimes->{{3.606110264933941*^9, 3.60611027062984*^9}, {
  3.606110401830777*^9, 3.606110439013682*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "1", "]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.606110440431953*^9, 3.60611044535828*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    RowBox[{"mt", "(", "a", ")"}]], 
   RowBox[{
    UnderscriptBox["\[Sum]", 
     RowBox[{"mt", "(", "b", ")"}]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      RowBox[{"mt", "(", "c", ")"}]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       RowBox[{"mt", "(", 
        RowBox[{"a", ",", "b"}], ")"}]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        RowBox[{"mtp", "(", "a", ")"}]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         RowBox[{"mtp", "(", "b", ")"}]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          RowBox[{"mtp", "(", "c", ")"}]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           RowBox[{"mtp", "(", 
            RowBox[{"a", ",", "b"}], ")"}]], 
          RowBox[{
           TemplateBox[{RowBox[{
               RowBox[{"mt", "(", "c", ")"}], ",", 
               RowBox[{"mtp", "(", "c", ")"}]}]},
            "KroneckerDeltaSeq"], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                FractionBox["1", "2"], 
                FractionBox["1", "2"]},
               {
                RowBox[{"mt", "(", "a", ")"}], 
                RowBox[{"mt", "(", "b", ")"}]}
              }], "|", GridBox[{
               {
                RowBox[{"t", "(", 
                 RowBox[{"a", ",", "b"}], ")"}]},
               {
                RowBox[{"mt", "(", 
                 RowBox[{"a", ",", "b"}], ")"}]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                RowBox[{"t", "(", 
                 RowBox[{"a", ",", "b"}], ")"}], 
                FractionBox["1", "2"]},
               {
                RowBox[{"mt", "(", 
                 RowBox[{"a", ",", "b"}], ")"}], 
                RowBox[{"mt", "(", "c", ")"}]}
              }], "|", GridBox[{
               {
                RowBox[{"t", "(", 
                 RowBox[{"a", ",", "b", ",", "c"}], ")"}]},
               {
                RowBox[{"mt", "(", 
                 RowBox[{"a", ",", "b", ",", "c"}], ")"}]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                FractionBox["1", "2"], 
                FractionBox["1", "2"]},
               {
                RowBox[{"mtp", "(", "a", ")"}], 
                RowBox[{"mtp", "(", "b", ")"}]}
              }], "|", GridBox[{
               {
                RowBox[{"tp", "(", 
                 RowBox[{"a", ",", "b"}], ")"}]},
               {
                RowBox[{"mtp", "(", 
                 RowBox[{"a", ",", "b"}], ")"}]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                RowBox[{"tp", "(", 
                 RowBox[{"a", ",", "b"}], ")"}], 
                FractionBox["1", "2"]},
               {
                RowBox[{"mtp", "(", 
                 RowBox[{"a", ",", "b"}], ")"}], 
                RowBox[{"mtp", "(", "c", ")"}]}
              }], "|", GridBox[{
               {
                RowBox[{"tp", "(", 
                 RowBox[{"a", ",", "b", ",", "c"}], ")"}]},
               {
                RowBox[{"mtp", "(", 
                 RowBox[{"a", ",", "b", ",", "c"}], ")"}]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           RowBox[{
            UnderscriptBox["\[Sum]", "\[Mu]"], 
            RowBox[{"3", " ", 
             StyleBox[
              RowBox[{"c", "(", GridBox[{
                 {
                  FractionBox["1", "2"], "1"},
                 {
                  RowBox[{"mtp", "(", "a", ")"}], "\[Mu]"}
                }], "|", GridBox[{
                 {
                  FractionBox["1", "2"]},
                 {
                  RowBox[{"mt", "(", "a", ")"}]}
                }], ")"}],
              SpanMaxSize->DirectedInfinity[1]], " ", 
             StyleBox[
              RowBox[{"c", "(", GridBox[{
                 {
                  FractionBox["1", "2"], "1"},
                 {
                  RowBox[{"mt", "(", "b", ")"}], "\[Mu]"}
                }], "|", GridBox[{
                 {
                  FractionBox["1", "2"]},
                 {
                  RowBox[{"mtp", "(", "b", ")"}]}
                }], ")"}],
              SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}]}]}]}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.6061104500673637`*^9, 3.606125325130004*^9, 
  3.606125369190948*^9, 3.606203533464745*^9, 3.60621119481712*^9}]
}, Open  ]],

Cell[TextData[{
 "This is still rather ugly. We need to tell ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " how to represent the quantum numbers.\nIn this case this is rather easy:"
}], "Text",
 CellChangeTimes->{{3.606110264933941*^9, 3.60611027062984*^9}, {
  3.606110401830777*^9, 3.606110516486414*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"declareIndexedAM", "[", "t", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.606110517965289*^9, 3.606110536617663*^9}}],

Cell["\<\
There are multiple declare functions in the Utility` package, you can have a \
look at them by typing\
\>", "Text",
 CellChangeTimes->{{3.60611060840596*^9, 3.606110651461768*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Utility`declare*"}]], "Input",
 CellChangeTimes->{{3.606110652825758*^9, 3.606110659353221*^9}}],

Cell[BoxData[
 DynamicModuleBox[{Typeset`open$$ = True}, 
  PaneSelectorBox[{False->
   RowBox[{
    OpenerBox[Dynamic[Typeset`open$$],
     ImageSize->Small], 
    StyleBox["Utility`", "InfoHeading"]}], True->GridBox[{
     {
      RowBox[{
       OpenerBox[Dynamic[Typeset`open$$],
        ImageSize->Small], 
       StyleBox["Utility`", "InfoHeading"]}]},
     {GridBox[{
        {
         ButtonBox["declareIndexed",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3606210736-7505383", {"declareIndexed", "Utility`"}},
          ButtonNote->"Utility`"], 
         ButtonBox["declareIndexedPrimed",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3606210736-7505383", {"declareIndexedPrimed", "Utility`"}},
          ButtonNote->"Utility`"]},
        {
         ButtonBox["declareIndexedAM",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3606210736-7505383", {"declareIndexedAM", "Utility`"}},
          ButtonNote->"Utility`"], 
         ButtonBox["declarePrimed",
          BaseStyle->"InformationLink",
          
          ButtonData:>{
           "Info3606210736-7505383", {"declarePrimed", "Utility`"}},
          ButtonNote->"Utility`"]}
       },
       DefaultBaseStyle->"InfoGrid",
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.475]}}}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, 
   Dynamic[Typeset`open$$],
   ImageSize->Automatic]]], "Print", "InfoCell",
 CellChangeTimes->{3.6062035368593493`*^9}]
}, Open  ]],

Cell["Back to our expression:", "Text",
 CellChangeTimes->{{3.6061106831266327`*^9, 3.606110686997703*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "1", "]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.606110694425643*^9, 3.606110695753961*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["m", 
     SubscriptBox["t", "a"]]], 
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["t", "b"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["t", "c"]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b"}]]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["t", "a"], "\[Prime]"]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubsuperscriptBox["m", 
          SubscriptBox["t", "b"], "\[Prime]"]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", "c"], "\[Prime]"]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubsuperscriptBox["m", 
            SubscriptBox["t", 
             RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]], 
          RowBox[{
           TemplateBox[{RowBox[{
               SubscriptBox["m", 
                SubscriptBox["t", "c"]], ",", 
               SubsuperscriptBox["m", 
                SubscriptBox["t", "c"], "\[Prime]"]}]},
            "KroneckerDeltaSeq"], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                FractionBox["1", "2"], 
                FractionBox["1", "2"]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", "a"]], 
                SubscriptBox["m", 
                 SubscriptBox["t", "b"]]}
              }], "|", GridBox[{
               {
                SubscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}]]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{"a", "\[InvisibleComma]", "b"}]]]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                SubscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}]], 
                FractionBox["1", "2"]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{"a", "\[InvisibleComma]", "b"}]]], 
                SubscriptBox["m", 
                 SubscriptBox["t", "c"]]}
              }], "|", GridBox[{
               {
                SubscriptBox["t", 
                 RowBox[{
                 "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{
                  "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", 
                   "c"}]]]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                FractionBox["1", "2"], 
                FractionBox["1", "2"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", "a"], "\[Prime]"], 
                SubsuperscriptBox["m", 
                 SubscriptBox["t", "b"], "\[Prime]"]}
              }], "|", GridBox[{
               {
                SubsuperscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           StyleBox[
            RowBox[{"c", "(", GridBox[{
               {
                SubsuperscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], 
                FractionBox["1", "2"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"], 
                SubsuperscriptBox["m", 
                 SubscriptBox["t", "c"], "\[Prime]"]}
              }], "|", GridBox[{
               {
                SubsuperscriptBox["t", 
                 RowBox[{
                 "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
                 "\[Prime]"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{
                  "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
                 "\[Prime]"]}
              }], ")"}],
            SpanMaxSize->DirectedInfinity[1]], " ", 
           RowBox[{
            UnderscriptBox["\[Sum]", "\[Mu]"], 
            RowBox[{"3", " ", 
             StyleBox[
              RowBox[{"c", "(", GridBox[{
                 {
                  FractionBox["1", "2"], "1"},
                 {
                  SubsuperscriptBox["m", 
                   SubscriptBox["t", "a"], "\[Prime]"], "\[Mu]"}
                }], "|", GridBox[{
                 {
                  FractionBox["1", "2"]},
                 {
                  SubscriptBox["m", 
                   SubscriptBox["t", "a"]]}
                }], ")"}],
              SpanMaxSize->DirectedInfinity[1]], " ", 
             StyleBox[
              RowBox[{"c", "(", GridBox[{
                 {
                  FractionBox["1", "2"], "1"},
                 {
                  SubscriptBox["m", 
                   SubscriptBox["t", "b"]], "\[Mu]"}
                }], "|", GridBox[{
                 {
                  FractionBox["1", "2"]},
                 {
                  SubsuperscriptBox["m", 
                   SubscriptBox["t", "b"], "\[Prime]"]}
                }], ")"}],
              SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}]}]}]}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.606110697788073*^9, 3.606125376729475*^9, 3.606203539796225*^9, {
   3.6062112038401623`*^9, 3.60621122044797*^9}}]
}, Open  ]],

Cell["\<\
It looks better now. The next step is to check whether our expression does \
make any sense (actually this is done automatically when trying to perform a \
simplification, however we will do it explicitly here and discuss possible \
problems).\
\>", "Text",
 CellChangeTimes->{{3.6061106831266327`*^9, 3.606110745238072*^9}, {
   3.60611125060001*^9, 3.606111299510662*^9}, {3.6061194109321327`*^9, 
   3.606119428004662*^9}, 3.606119510147793*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "1", "]"}], "//", "consistencyCheck"}]], "Input",
 CellChangeTimes->{{3.606111302116479*^9, 3.606111314304575*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "notfound"}], "MessageName"], ":", 
  " ", "\<\"Symbol \\\"\[NoBreak]\\!\\(t[\\(\\(a, b\\)\\)]\\)\[NoBreak]\\\" \
has not been declared an integer or half-integer quantum number. Please use \
the functions declareQNInteger and declareQNHalfInteger. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/notfound\\\", \
ButtonNote -> \\\"AngularMomentum`consistencyCheck::notfound\\\"]\\)\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211232477311*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "notfound"}], "MessageName"], ":", 
  " ", "\<\"Symbol \\\"\[NoBreak]\\!\\(mt[a]\\)\[NoBreak]\\\" has not been \
declared an integer or half-integer quantum number. Please use the functions \
declareQNInteger and declareQNHalfInteger. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \
\\\"AngularMomentum`consistencyCheck::notfound\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.6062112325370827`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "notfound"}], "MessageName"], ":", 
  " ", "\<\"Symbol \\\"\[NoBreak]\\!\\(mt[b]\\)\[NoBreak]\\\" has not been \
declared an integer or half-integer quantum number. Please use the functions \
declareQNInteger and declareQNHalfInteger. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \
\\\"AngularMomentum`consistencyCheck::notfound\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211232597752*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(consistencyCheck \
:: notfound\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.6062112326432667`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "halfinteger"}], "MessageName"], ":", 
  " ", "\<\"Condition \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`\\*StyleBox[\\(\
\[EmptyUpTriangle] {1\\/2 1\\/2 t\\_\\(a \[InvisibleComma] b\\)}\\), \
Rule[SpanMaxSize, DirectedInfinity[1]]]\\), TraditionalForm, Rule[Editable, \
True]]\\)\[NoBreak]\\\" cannot be fulfilled as the sum of the arguments \
cannot yield an integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.60621123273484*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "halfinteger"}], "MessageName"], ":", 
  " ", "\<\"Condition \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`\\*TemplateBox[List[RowBox[\
List[RowBox[List[RowBox[List[\\\"-\\\", SubscriptBox[\\\"m\\\", SubscriptBox[\
\\\"t\\\", RowBox[List[\\\"a\\\", \\\"\\\\[InvisibleComma]\\\", \
\\\"b\\\"]]]]]], \\\"+\\\", SubscriptBox[\\\"m\\\", SubscriptBox[\\\"t\\\", \
RowBox[List[\\\"a\\\"]]]], \\\"+\\\", SubscriptBox[\\\"m\\\", SubscriptBox[\\\
\"t\\\", RowBox[List[\\\"b\\\"]]]]]], \\\",\\\", \\\"0\\\"]]], \
\\\"KroneckerDeltaSeq\\\"]\\), TraditionalForm, Rule[Editable, True]]\\)\
\[NoBreak]\\\" cannot be fulfilled as the sum of the arguments cannot yield \
an integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211232853093*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "halfinteger"}], "MessageName"], ":", 
  " ", "\<\"Condition \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`\\*StyleBox[\\(\
\[EmptyUpTriangle] {1\\/2 1\\/2 t\\_\\(a \[InvisibleComma] \
b\\)\\%\[Prime]}\\), Rule[SpanMaxSize, DirectedInfinity[1]]]\\), \
TraditionalForm, Rule[Editable, True]]\\)\[NoBreak]\\\" cannot be fulfilled \
as the sum of the arguments cannot yield an integer\"\>"}]], "Message", "MSG",
 
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211232963801*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(consistencyCheck \
:: halfinteger\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed \
during this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211233013879*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "projection"}], "MessageName"], ":", 
  " ", "\<\"Symbols \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`1\\/2\\), TraditionalForm, \
Rule[Editable, True]]\\)\[NoBreak]\\\" and \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`m\\_\\(t\\_\\(a\\)\\)\\), \
TraditionalForm, Rule[Editable, True]]\\)\[NoBreak]\\\" have not been \
declared consistently, e.g. one might be an integer and the other is a \
half-integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211233101798*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "projection"}], "MessageName"], ":", 
  " ", "\<\"Symbols \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`1\\/2\\), TraditionalForm, \
Rule[Editable, True]]\\)\[NoBreak]\\\" and \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`m\\_\\(t\\_\\(b\\)\\)\\), \
TraditionalForm, Rule[Editable, True]]\\)\[NoBreak]\\\" have not been \
declared consistently, e.g. one might be an integer and the other is a \
half-integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.6062112332143993`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "projection"}], "MessageName"], ":", 
  " ", "\<\"Symbols \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`t\\_\\(a \[InvisibleComma] \
b\\)\\), TraditionalForm, Rule[Editable, True]]\\)\[NoBreak]\\\" and \\\"\
\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`m\\_\\(t\\_\\(a \
\[InvisibleComma] b\\)\\)\\), TraditionalForm, Rule[Editable, True]]\\)\
\[NoBreak]\\\" have not been declared consistently, e.g. one might be an \
integer and the other is a half-integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.6062112333303747`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(consistencyCheck \
:: projection\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during \
this calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111315405006*^9, 3.60612537914675*^9, 
  3.606211233382408*^9}]
}, Open  ]],

Cell[TextData[{
 "There are multiple errors. All of the relate to a simple problem: We have \
not told ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " about the quantum numbers we are using. These are the first error \
messages, consistencyCheck::notfound. The other errors just pop up because ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " has no idea about the symbols. It wants to know whether the quantum \
numbers are integers or half-integers. We provide this information now:"
}], "Text",
 CellChangeTimes->{{3.606111336295247*^9, 3.606111474663344*^9}, {
   3.606119450917115*^9, 3.606119455460417*^9}, 3.60611949366859*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"declareQNHalfInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"mt", "[", "a", "]"}], ",", 
     RowBox[{"mt", "[", "b", "]"}], ",", 
     RowBox[{"mt", "[", "c", "]"}], ",", 
     RowBox[{"mtp", "[", "a", "]"}], ",", 
     RowBox[{"mtp", "[", "b", "]"}], ",", 
     RowBox[{"mtp", "[", "c", "]"}], ",", 
     RowBox[{"t", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
     RowBox[{"tp", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
     RowBox[{"mt", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
     RowBox[{"mtp", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", "\[Mu]"}], "}"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"a", ",", "b"}], "]"}], ",", 
     RowBox[{"tp", "[", 
      RowBox[{"a", ",", "b"}], "]"}], ",", 
     RowBox[{"mt", "[", 
      RowBox[{"a", ",", "b"}], "]"}], ",", 
     RowBox[{"mtp", "[", 
      RowBox[{"a", ",", "b"}], "]"}]}], "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.60611147578131*^9, 3.6061116012629757`*^9}}],

Cell["Performing the check again:", "Text",
 CellChangeTimes->{{3.606111336295247*^9, 3.606111474663344*^9}, {
  3.606111623543806*^9, 3.606111630551744*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "1", "]"}], "//", "consistencyCheck"}]], "Input",
 CellChangeTimes->{3.606111485625758*^9, 3.60611161661938*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "halfinteger"}], "MessageName"], ":", 
  " ", "\<\"Condition \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`\\*TemplateBox[List[RowBox[\
List[RowBox[List[RowBox[List[\\\"-\\\", SubsuperscriptBox[\\\"m\\\", \
SubscriptBox[\\\"t\\\", RowBox[List[\\\"b\\\"]]], \\\"\\\\[Prime]\\\"]]], \
\\\"+\\\", SubscriptBox[\\\"m\\\", SubscriptBox[\\\"t\\\", \
RowBox[List[\\\"b\\\"]]]], \\\"+\\\", \\\"\\\\[Mu]\\\"]], \\\",\\\", \
\\\"0\\\"]]], \\\"KroneckerDeltaSeq\\\"]\\), TraditionalForm, Rule[Editable, \
True]]\\)\[NoBreak]\\\" cannot be fulfilled as the sum of the arguments \
cannot yield an integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111634324306*^9, 3.6061253835282288`*^9, 
  3.606211250856181*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "halfinteger"}], "MessageName"], ":", 
  " ", "\<\"Condition \
\\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`\\*TemplateBox[List[RowBox[\
List[RowBox[List[SubsuperscriptBox[\\\"m\\\", SubscriptBox[\\\"t\\\", \
RowBox[List[\\\"a\\\"]]], \\\"\\\\[Prime]\\\"], \\\"-\\\", SubscriptBox[\\\"m\
\\\", SubscriptBox[\\\"t\\\", RowBox[List[\\\"a\\\"]]]], \\\"+\\\", \
\\\"\\\\[Mu]\\\"]], \\\",\\\", \\\"0\\\"]]], \\\"KroneckerDeltaSeq\\\"]\\), \
TraditionalForm, Rule[Editable, True]]\\)\[NoBreak]\\\" cannot be fulfilled \
as the sum of the arguments cannot yield an integer\"\>"}]], "Message", "MSG",
 
 CellChangeTimes->{3.606111634324306*^9, 3.6061253835282288`*^9, 
  3.606211250935183*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"consistencyCheck", "::", "projection"}], "MessageName"], ":", 
  " ", "\<\"Symbols \\\"\[NoBreak]\\!\\(\\*TagBox[\\(TraditionalForm\\`1\\), \
TraditionalForm, Rule[Editable, True]]\\)\[NoBreak]\\\" and \\\"\[NoBreak]\\!\
\\(\\*TagBox[\\(TraditionalForm\\`\[Mu]\\), TraditionalForm, Rule[Editable, \
True]]\\)\[NoBreak]\\\" have not been declared consistently, e.g. one might \
be an integer and the other is a half-integer\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111634324306*^9, 3.6061253835282288`*^9, 
  3.606211251049304*^9}]
}, Open  ]],

Cell["\<\
There are still errors. They tell us that mt[b]+mtp[b]+\[Mu] cannot be an \
integer and that the symbols \[OpenCurlyDoubleQuote]1\[CloseCurlyDoubleQuote] \
and \[OpenCurlyDoubleQuote]\[Mu]\[CloseCurlyDoubleQuote] seem to be \
inconsistent. In fact, we did an error in the declaration above: We declared \
\[Mu] to be a half-integer. However, it must be an integer. Lets try to \
correct that:\
\>", "Text",
 CellChangeTimes->{{3.606111336295247*^9, 3.606111474663344*^9}, {
  3.606111623543806*^9, 3.606111743464181*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"declareQNInteger", "[", "\[Mu]", "]"}]], "Input",
 CellChangeTimes->{{3.606111750188449*^9, 3.60611175143486*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"declareQNInteger", "::", "doubledefinition"}], "MessageName"], 
  ":", " ", "\<\"Symbol \[NoBreak]\\!\\(\[Mu]\\)\[NoBreak] has been declared \
a half-integer quantum number already\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.606111752480803*^9, 3.606125385511077*^9, 
  3.6062112560784063`*^9}],

Cell[BoxData["None"], "Output",
 CellChangeTimes->{3.606111752482917*^9, 3.606125385512335*^9, 
  3.6062112560805597`*^9}]
}, Open  ]],

Cell["\<\
Trying to declare \[Mu] an integer now fails, as it has been declared a \
half-integer already. However, if we are sure we want to change this, we can \
force the declaration to work:\
\>", "Text",
 CellChangeTimes->{{3.606111336295247*^9, 3.606111474663344*^9}, {
  3.606111623543806*^9, 3.6061118038314962`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"declareQNInteger", "[", 
  RowBox[{"\[Mu]", ",", 
   RowBox[{"Overwrite", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.606111809243783*^9, 3.606111812155233*^9}}],

Cell[BoxData["\[Mu]"], "Output",
 CellChangeTimes->{
  3.606111814950161*^9, 3.606125386838475*^9, 3.6062035603259563`*^9, {
   3.606211257895483*^9, 3.6062112612168407`*^9}}]
}, Open  ]],

Cell["\<\
Now \[Mu] is declared an integer and we perform the consistency Check again:\
\>", "Text",
 CellChangeTimes->{{3.606111336295247*^9, 3.606111474663344*^9}, {
  3.606111623543806*^9, 3.6061118384714413`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "1", "]"}], "//", "consistencyCheck"}]], "Input"],

Cell[TextData[{
 "No errors should appear now. Great, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " knows all it should and we perform simplification using the function \
simplifyAMSum. It may take a while and one should use the option Print->True \
as it prints the expression it is currently working on. This function is far \
from finished and it has the nasty habit of never finishing if it cannot \
simplify the rule any further."
}], "Text",
 CellChangeTimes->{{3.6061118564561787`*^9, 3.606111884952417*^9}, {
  3.6061119311766872`*^9, 3.606112018712315*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"result", "[", "1", "]"}], "=", 
  RowBox[{"simplifyAMSum", "[", 
   RowBox[{
    RowBox[{"testExpr", "[", "1", "]"}], ",", 
    RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.606111918364449*^9, 3.6061119284096937`*^9}, {
  3.606123556587594*^9, 3.6061235575634527`*^9}, {3.606212255752194*^9, 
  3.606212257418415*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", "\[Mu]"], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["t", "a"]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["t", "b"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["t", "c"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}]]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", "a"], "\[Prime]"]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubsuperscriptBox["m", 
            SubscriptBox["t", "b"], "\[Prime]"]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubsuperscriptBox["m", 
             SubscriptBox["t", 
              RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]], 
           RowBox[{"6", " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubscriptBox["t", 
                RowBox[{"a", "\[InvisibleComma]", "b"}]]}], "+", "1"}]], " ", 
            
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubscriptBox["t", 
                RowBox[{
                "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]}], 
              "+", "1"}]], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubsuperscriptBox["t", 
                RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]}], "+", 
              "1"}]], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                FractionBox["1", "2"], 
                FractionBox["1", "2"], 
                SubscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}]]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", "a"]], 
                SubscriptBox["m", 
                 SubscriptBox["t", "b"]], 
                RowBox[{"-", 
                 SubscriptBox["m", 
                  SubscriptBox["t", 
                   RowBox[{"a", "\[InvisibleComma]", "b"}]]]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                FractionBox["1", "2"], "1", 
                FractionBox["1", "2"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", "a"], "\[Prime]"], "\[Mu]", 
                RowBox[{"-", 
                 SubscriptBox["m", 
                  SubscriptBox["t", "a"]]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                FractionBox["1", "2"], "1", 
                FractionBox["1", "2"]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", "b"]], "\[Mu]", 
                RowBox[{"-", 
                 SubsuperscriptBox["m", 
                  SubscriptBox["t", "b"], "\[Prime]"]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubsuperscriptBox["t", 
                RowBox[{
                "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
                "\[Prime]"]}], "+", "1"}]], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}]], 
                FractionBox["1", "2"], 
                SubscriptBox["t", 
                 RowBox[{
                 "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]},
               {
                SubscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{"a", "\[InvisibleComma]", "b"}]]], 
                SubscriptBox["m", 
                 SubscriptBox["t", "c"]], 
                RowBox[{"-", 
                 SubscriptBox["m", 
                  SubscriptBox["t", 
                   RowBox[{
                   "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", 
                    "c"}]]]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                FractionBox["1", "2"], 
                FractionBox["1", "2"], 
                SubsuperscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", "a"], "\[Prime]"], 
                SubsuperscriptBox["m", 
                 SubscriptBox["t", "b"], "\[Prime]"], 
                RowBox[{"-", 
                 SubsuperscriptBox["m", 
                  SubscriptBox["t", 
                   RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{
              RowBox[{"-", 
               SubsuperscriptBox["m", 
                SubscriptBox["t", 
                 RowBox[{
                 "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
                "\[Prime]"]}], "-", 
              SubscriptBox["m", 
               SubscriptBox["t", 
                RowBox[{
                "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]], 
              "-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", 
                RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"], "-", 
              SubscriptBox["m", 
               SubscriptBox["t", 
                RowBox[{"a", "\[InvisibleComma]", "b"}]]], "-", 
              SubsuperscriptBox["t", 
               RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], "-", 
              SubscriptBox["t", 
               RowBox[{"a", "\[InvisibleComma]", "b"}]], "-", 
              SubscriptBox["m", 
               SubscriptBox["t", "a"]], "-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", "b"], "\[Prime]"], "+", "2"}]], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubsuperscriptBox["t", 
                 RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], 
                FractionBox["1", "2"], 
                SubsuperscriptBox["t", 
                 RowBox[{
                 "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
                 "\[Prime]"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["t", 
                  RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"], 
                SubscriptBox["m", 
                 SubscriptBox["t", "c"]], 
                RowBox[{"-", 
                 SubsuperscriptBox["m", 
                  SubscriptBox["t", 
                   RowBox[{
                   "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]],
                   "\[Prime]"]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}]}]}]}]}]}]}]}]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{3.6061192455040092`*^9, 3.606123560812518*^9, 
  3.606125390855733*^9, 3.6062035660271597`*^9, 3.606211290867858*^9}],

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["t", "c"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b"}]]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubsuperscriptBox["m", 
        SubscriptBox["t", "a"], "\[Prime]"]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["t", "b"], "\[Prime]"]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubsuperscriptBox["m", 
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]], 
        RowBox[{
         RowBox[{"-", "6"}], " ", "\[ImaginaryI]", " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"2", " ", 
            SubscriptBox["t", 
             RowBox[{"a", "\[InvisibleComma]", "b"}]]}], "+", "1"}]], " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"2", " ", 
            SubscriptBox["t", 
             RowBox[{
             "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]}], 
           "+", "1"}]], " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"2", " ", 
            SubsuperscriptBox["t", 
             RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]}], "+", 
           "1"}]], " ", 
         SqrtBox[
          RowBox[{
           RowBox[{"2", " ", 
            SubsuperscriptBox["t", 
             RowBox[{
             "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
             "\[Prime]"]}], "+", "1"}]], " ", 
         RowBox[{
          TagBox[
           StyleBox["{",
            SpanMaxSize->DirectedInfinity[1]],
           SixJSymbol], "\[MediumSpace]", GridBox[{
            {"1", 
             FractionBox["1", "2"], 
             FractionBox["1", "2"]},
            {
             SubscriptBox["t", 
              RowBox[{"a", "\[InvisibleComma]", "b"}]], 
             FractionBox["1", "2"], 
             FractionBox["1", "2"]}
           }], "\[MediumSpace]", 
          TagBox[
           StyleBox["}",
            SpanMaxSize->DirectedInfinity[1]],
           SixJSymbol]}], " ", 
         RowBox[{
          TagBox[
           StyleBox["(",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol], "\[MediumSpace]", GridBox[{
            {
             SubscriptBox["t", 
              RowBox[{"a", "\[InvisibleComma]", "b"}]], 
             FractionBox["1", "2"], 
             SubscriptBox["t", 
              RowBox[{
              "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]},
            {
             SubscriptBox["m", 
              SubscriptBox["t", 
               RowBox[{"a", "\[InvisibleComma]", "b"}]]], 
             SubscriptBox["m", 
              SubscriptBox["t", "c"]], 
             RowBox[{"-", 
              SubscriptBox["m", 
               SubscriptBox["t", 
                RowBox[{
                "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", 
                 "c"}]]]}]}
           }], "\[MediumSpace]", 
          TagBox[
           StyleBox[")",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol]}], " ", 
         RowBox[{
          TagBox[
           StyleBox["(",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol], "\[MediumSpace]", GridBox[{
            {
             FractionBox["1", "2"], 
             FractionBox["1", "2"], 
             SubsuperscriptBox["t", 
              RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]},
            {
             RowBox[{"-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", "a"], "\[Prime]"]}], 
             RowBox[{"-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", "b"], "\[Prime]"]}], 
             SubsuperscriptBox["m", 
              SubscriptBox["t", 
               RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]}
           }], "\[MediumSpace]", 
          TagBox[
           StyleBox[")",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol]}], " ", 
         RowBox[{
          TagBox[
           StyleBox["(",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol], "\[MediumSpace]", GridBox[{
            {
             SubscriptBox["t", 
              RowBox[{"a", "\[InvisibleComma]", "b"}]], 
             FractionBox["1", "2"], 
             FractionBox["1", "2"]},
            {
             SubscriptBox["m", 
              SubscriptBox["t", 
               RowBox[{"a", "\[InvisibleComma]", "b"}]]], 
             RowBox[{"-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", "b"], "\[Prime]"]}], 
             RowBox[{"-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", "a"], "\[Prime]"]}]}
           }], "\[MediumSpace]", 
          TagBox[
           StyleBox[")",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol]}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{
           SubsuperscriptBox["m", 
            SubscriptBox["t", 
             RowBox[{
             "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
            "\[Prime]"], "+", 
           SubsuperscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}],
             "\[Prime]"], "+", 
           SubsuperscriptBox["m", 
            SubscriptBox["t", 
             RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"], "+", 
           SubscriptBox["m", 
            SubscriptBox["t", 
             RowBox[{"a", "\[InvisibleComma]", "b"}]]], "+", 
           SubsuperscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], "+", 
           SubsuperscriptBox["m", 
            SubscriptBox["t", "a"], "\[Prime]"], "+", 
           SubsuperscriptBox["m", 
            SubscriptBox["t", "b"], "\[Prime]"], "+", 
           SubscriptBox["m", 
            SubscriptBox["t", "c"]]}]], " ", 
         RowBox[{
          TagBox[
           StyleBox["(",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol], "\[MediumSpace]", GridBox[{
            {
             SubsuperscriptBox["t", 
              RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], 
             FractionBox["1", "2"], 
             SubsuperscriptBox["t", 
              RowBox[{
              "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
              "\[Prime]"]},
            {
             RowBox[{"-", 
              SubsuperscriptBox["m", 
               SubscriptBox["t", 
                RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]}], 
             RowBox[{"-", 
              SubscriptBox["m", 
               SubscriptBox["t", "c"]]}], 
             SubsuperscriptBox["m", 
              SubscriptBox["t", 
               RowBox[{
               "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
              "\[Prime]"]}
           }], "\[MediumSpace]", 
          TagBox[
           StyleBox[")",
            SpanMaxSize->DirectedInfinity[1]],
           ThreeJSymbol]}]}]}]}]}]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{3.6061192455040092`*^9, 3.606123560812518*^9, 
  3.606125390855733*^9, 3.6062035660271597`*^9, 3.606211297896738*^9}],

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["t", "c"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b"}]]]], 
     RowBox[{"6", " ", "\[ImaginaryI]", " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"2", " ", 
         SubscriptBox["t", 
          RowBox[{
          "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]}], "+", 
        "1"}]], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"2", " ", 
         SubsuperscriptBox["t", 
          RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
          "\[Prime]"]}], "+", "1"}]], " ", 
      RowBox[{
       TagBox[
        StyleBox["{",
         SpanMaxSize->DirectedInfinity[1]],
        SixJSymbol], "\[MediumSpace]", GridBox[{
         {"1", 
          FractionBox["1", "2"], 
          FractionBox["1", "2"]},
         {
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}]], 
          FractionBox["1", "2"], 
          FractionBox["1", "2"]}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox["}",
         SpanMaxSize->DirectedInfinity[1]],
        SixJSymbol]}], " ", 
      TemplateBox[{RowBox[{
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}]], ",", 
          SubsuperscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]}]},
       "KroneckerDeltaSeq"], " ", 
      RowBox[{
       TagBox[
        StyleBox["(",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol], "\[MediumSpace]", GridBox[{
         {
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}]], 
          FractionBox["1", "2"], 
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]},
         {
          SubscriptBox["m", 
           SubscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b"}]]], 
          SubscriptBox["m", 
           SubscriptBox["t", "c"]], 
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["t", 
             RowBox[{
             "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]]}]}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox[")",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        SubsuperscriptBox["m", 
         SubscriptBox["t", 
          RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
         "\[Prime]"], "+", 
        SubsuperscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
         "\[Prime]"], "+", 
        SubscriptBox["m", 
         SubscriptBox["t", 
          RowBox[{"a", "\[InvisibleComma]", "b"}]]], "+", 
        SubscriptBox["m", 
         SubscriptBox["t", "c"]]}]], " ", 
      RowBox[{
       TagBox[
        StyleBox["(",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol], "\[MediumSpace]", GridBox[{
         {
          SubscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b"}]], 
          FractionBox["1", "2"], 
          SubsuperscriptBox["t", 
           RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
           "\[Prime]"]},
         {
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["t", 
             RowBox[{"a", "\[InvisibleComma]", "b"}]]]}], 
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["t", "c"]]}], 
          SubsuperscriptBox["m", 
           SubscriptBox["t", 
            RowBox[{
            "a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
           "\[Prime]"]}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox[")",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol]}]}]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{3.6061192455040092`*^9, 3.606123560812518*^9, 
  3.606125390855733*^9, 3.6062035660271597`*^9, 3.606211298189309*^9}],

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    RowBox[{"-", "6"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     SubscriptBox["t", 
      RowBox[{"a", "\[InvisibleComma]", "b"}]]], " ", 
    RowBox[{
     TagBox[
      StyleBox["{",
       SpanMaxSize->DirectedInfinity[1]],
      SixJSymbol], "\[MediumSpace]", GridBox[{
       {"1", 
        FractionBox["1", "2"], 
        FractionBox["1", "2"]},
       {
        SubscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b"}]], 
        FractionBox["1", "2"], 
        FractionBox["1", "2"]}
      }], "\[MediumSpace]", 
     TagBox[
      StyleBox["}",
       SpanMaxSize->DirectedInfinity[1]],
      SixJSymbol]}], " ", 
    TemplateBox[{RowBox[{
        SubscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b"}]], ",", 
        SubsuperscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]}]},
     "KroneckerDeltaSeq"], " ", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}]], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
      "}"}],
     SpanMaxSize->DirectedInfinity[1]], " ", 
    TemplateBox[{RowBox[{
        SubscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
        ",", 
        SubsuperscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
         "\[Prime]"]}]},
     "KroneckerDeltaSeq"], " ", 
    TemplateBox[{RowBox[{
        SubscriptBox["m", 
         SubscriptBox["t", 
          RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]],
         ",", 
        SubsuperscriptBox["m", 
         SubscriptBox["t", 
          RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
         "\[Prime]"]}]},
     "KroneckerDeltaSeq"]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{3.6061192455040092`*^9, 3.606123560812518*^9, 
  3.606125390855733*^9, 3.6062035660271597`*^9, 3.606211298237307*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "6"}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], 
   RowBox[{"t", "[", 
    RowBox[{"a", ",", "b"}], "]"}]], " ", 
  RowBox[{"conTri", "[", 
   RowBox[{
    FractionBox["1", "2"], ",", 
    RowBox[{"t", "[", 
     RowBox[{"a", ",", "b"}], "]"}], ",", 
    RowBox[{"t", "[", 
     RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}], " ", 
  RowBox[{"KroneckerDelta", "[", 
   RowBox[{
    RowBox[{"mt", "[", 
     RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
    RowBox[{"mtp", "[", 
     RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}], " ", 
  RowBox[{"KroneckerDelta", "[", 
   RowBox[{
    RowBox[{"t", "[", 
     RowBox[{"a", ",", "b"}], "]"}], ",", 
    RowBox[{"tp", "[", 
     RowBox[{"a", ",", "b"}], "]"}]}], "]"}], " ", 
  RowBox[{"KroneckerDelta", "[", 
   RowBox[{
    RowBox[{"t", "[", 
     RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", 
    RowBox[{"tp", "[", 
     RowBox[{"a", ",", "b", ",", "c"}], "]"}]}], "]"}], " ", 
  RowBox[{"sj", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      FractionBox["1", "2"], ",", 
      FractionBox["1", "2"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"a", ",", "b"}], "]"}], ",", 
      FractionBox["1", "2"], ",", 
      FractionBox["1", "2"]}], "}"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.606119252791333*^9, 3.606123568400893*^9, 
  3.606125398279892*^9, 3.6062035734560204`*^9, 3.606211298240551*^9}]
}, Open  ]],

Cell["\<\
Obviously, the result can be presented in a more readable way:\
\>", "Text",
 CellChangeTimes->{{3.6061192739076967`*^9, 3.6061192910431547`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"result", "[", "1", "]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.6061192927034597`*^9, 3.606119294570187*^9}, {
  3.606123563399467*^9, 3.6061235659749603`*^9}, {3.6062122597529078`*^9, 
  3.606212259959917*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", "6"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], 
    SubscriptBox["t", 
     RowBox[{"a", "\[InvisibleComma]", "b"}]]], " ", 
   RowBox[{
    TagBox[
     StyleBox["{",
      SpanMaxSize->DirectedInfinity[1]],
     SixJSymbol], "\[MediumSpace]", GridBox[{
      {"1", 
       FractionBox["1", "2"], 
       FractionBox["1", "2"]},
      {
       SubscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b"}]], 
       FractionBox["1", "2"], 
       FractionBox["1", "2"]}
     }], "\[MediumSpace]", 
    TagBox[
     StyleBox["}",
      SpanMaxSize->DirectedInfinity[1]],
     SixJSymbol]}], " ", 
   TemplateBox[{RowBox[{
       SubscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b"}]], ",", 
       SubsuperscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"]}]},
    "KroneckerDeltaSeq"], " ", 
   StyleBox[
    RowBox[{"\[EmptyUpTriangle]", "{", 
     FractionBox["1", "2"], 
     SubscriptBox["t", 
      RowBox[{"a", "\[InvisibleComma]", "b"}]], 
     SubscriptBox["t", 
      RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
     "}"}],
    SpanMaxSize->DirectedInfinity[1]], " ", 
   TemplateBox[{RowBox[{
       SubscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
       ",", 
       SubsuperscriptBox["t", 
        RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
        "\[Prime]"]}]},
    "KroneckerDeltaSeq"], " ", 
   TemplateBox[{RowBox[{
       SubscriptBox["m", 
        SubscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]]], 
       ",", 
       SubsuperscriptBox["m", 
        SubscriptBox["t", 
         RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
        "\[Prime]"]}]},
    "KroneckerDeltaSeq"]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.606119295032076*^9, 3.606123571420947*^9, 
  3.606125410998414*^9, 3.6062035809366217`*^9, 3.606211304660562*^9}]
}, Open  ]],

Cell["\<\
A warning about  this AngularMomentum framework. At the moment it has not \
been tested thoroughly. Therefore you should expect errors. Furthermore it is \
not finished, any expression involving 9j symbols should always use the \
OnlySums option - otherwise it may get stuck in some infinite loop.
However, I do not intend to extend this package to all possible cases, which \
might never actually appear in a real application. Nonetheless there will be \
updates and if you have an expression that can be simplified and this package \
is not able to do it, let me know: schulz@theorie.ikp.physik.tu-darmstadt.de
In all cases it is a good idea to use the simplification with Print->True and \
double check the calculation. Again, if you find any errors, please let me \
know.\
\>", "Text",
 CellChangeTimes->{{3.606119793107478*^9, 3.6061199950127077`*^9}, {
  3.6061221522625647`*^9, 3.606122165334873*^9}, {3.6061232481034718`*^9, 
  3.606123324230801*^9}, {3.615889233935581*^9, 3.61588927866912*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Richards Formula", "Section",
 CellChangeTimes->{{3.6062113556036997`*^9, 3.606211360498744*^9}, {
  3.6062193804161263`*^9, 3.6062193823508587`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "2", "]"}], "=", 
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", "3", "]"}], ",", 
          RowBox[{"mjp", "[", "3", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Jp", ",", "mJp"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mj", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "3", "]"}], ",", 
          RowBox[{"mj", "[", "3", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"J", ",", "mJ"}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "0", "]"}], ",", 
          RowBox[{"mj", "[", "0", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", "3", "]"}], ",", 
          RowBox[{"mjp", "[", "3", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mj", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "0", "]"}], ",", 
          RowBox[{"mj", "[", "0", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "3", "]"}], ",", 
          RowBox[{"mj", "[", "3", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"mj", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mj", "[", "3", "]"}], ",", 
     RowBox[{"mjp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjp", "[", "3", "]"}], ",", 
     RowBox[{"mj", "[", "0", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareIndexedAM", "[", 
   RowBox[{"{", 
    RowBox[{"j", ",", "J"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNHalfInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"j", "[", "0", "]"}], ",", 
     RowBox[{"mj", "[", "0", "]"}], ",", 
     RowBox[{"j", "[", "3", "]"}], ",", 
     RowBox[{"mj", "[", "3", "]"}], ",", 
     RowBox[{"jp", "[", "3", "]"}], ",", 
     RowBox[{"mjp", "[", "3", "]"}], ",", "J", ",", "mJ", ",", "Jp", ",", 
     "mJp"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"j", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mj", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"jp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjp", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6697118290494747`*^9, 3.669712191815646*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "2", "]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.669711943523532*^9, 3.669711948433753*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["m", 
     SubscriptBox["j", 
      RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["j", "3"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubsuperscriptBox["m", 
       SubscriptBox["j", 
        RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubsuperscriptBox["m", 
        SubscriptBox["j", "3"], "\[Prime]"]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "0"]]], 
       RowBox[{
        StyleBox[
         RowBox[{"c", "(", GridBox[{
            {
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], 
             SubscriptBox["j", "3"]},
            {
             SubscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
             SubscriptBox["m", 
              SubscriptBox["j", "3"]]}
           }], "|", GridBox[{
            {"J"},
            {
             SubscriptBox["m", "J"]}
           }], ")"}],
         SpanMaxSize->DirectedInfinity[1]], " ", 
        StyleBox[
         RowBox[{"c", "(", GridBox[{
            {
             SubscriptBox["j", "0"], 
             SubscriptBox["j", "3"]},
            {
             SubscriptBox["m", 
              SubscriptBox["j", "0"]], 
             SubscriptBox["m", 
              SubscriptBox["j", "3"]]}
           }], "|", GridBox[{
            {
             SubsuperscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
            {
             SubsuperscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}
           }], ")"}],
         SpanMaxSize->DirectedInfinity[1]], " ", 
        StyleBox[
         RowBox[{"c", "(", GridBox[{
            {
             SubscriptBox["j", "0"], 
             SubsuperscriptBox["j", "3", "\[Prime]"]},
            {
             SubscriptBox["m", 
              SubscriptBox["j", "0"]], 
             SubsuperscriptBox["m", 
              SubscriptBox["j", "3"], "\[Prime]"]}
           }], "|", GridBox[{
            {
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]},
            {
             SubscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]]}
           }], ")"}],
         SpanMaxSize->DirectedInfinity[1]], " ", 
        StyleBox[
         RowBox[{"c", "(", GridBox[{
            {
             SubsuperscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
             SubsuperscriptBox["j", "3", "\[Prime]"]},
            {
             SubsuperscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
             SubsuperscriptBox["m", 
              SubscriptBox["j", "3"], "\[Prime]"]}
           }], "|", GridBox[{
            {
             SuperscriptBox["J", "\[Prime]"]},
            {
             SubsuperscriptBox["m", "J", "\[Prime]"]}
           }], ")"}],
         SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.669711948767251*^9, 3.669711965515153*^9}, {
   3.669712072124543*^9, 3.669712104066958*^9}, 3.669712194221325*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"result", "[", "2", "]"}], "=", 
    RowBox[{"simplifyAMSum", "[", 
     RowBox[{
      RowBox[{"testExpr", "[", "2", "]"}], ",", 
      RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{3.66971211415915*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "0"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "3"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["j", "3"], "\[Prime]"]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubsuperscriptBox["m", 
            SubscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
          RowBox[{
           SqrtBox[
            RowBox[{
             RowBox[{"2", " ", "J"}], "+", "1"}]], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"2", " ", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"2", " ", 
              SuperscriptBox["J", "\[Prime]"]}], "+", "1"}]], " ", 
           SqrtBox[
            RowBox[{
             RowBox[{"2", " ", 
              SubsuperscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
             "1"}]], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]], 
               SubscriptBox["j", "3"], "J"},
              {
               SubscriptBox["m", 
                SubscriptBox["j", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
               SubscriptBox["m", 
                SubscriptBox["j", "3"]], 
               RowBox[{"-", 
                SubscriptBox["m", "J"]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubscriptBox["j", "0"], 
               SubscriptBox["j", "3"], 
               SubsuperscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
              {
               SubscriptBox["m", 
                SubscriptBox["j", "0"]], 
               SubscriptBox["m", 
                SubscriptBox["j", "3"]], 
               RowBox[{"-", 
                SubsuperscriptBox["m", 
                 SubscriptBox["j", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubscriptBox["j", "0"], 
               SubsuperscriptBox["j", "3", "\[Prime]"], 
               SubscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]},
              {
               SubscriptBox["m", 
                SubscriptBox["j", "0"]], 
               SubsuperscriptBox["m", 
                SubscriptBox["j", "3"], "\[Prime]"], 
               RowBox[{"-", 
                SubscriptBox["m", 
                 SubscriptBox["j", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{
             SubsuperscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], "+", 
             SubscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]], "+", 
             SubsuperscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "+", 
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], "+", 
             SubsuperscriptBox["m", "J", "\[Prime]"], "+", 
             SubscriptBox["m", "J"], "+", "1"}]], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubsuperscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
               SubsuperscriptBox["j", "3", "\[Prime]"], 
               SuperscriptBox["J", "\[Prime]"]},
              {
               SubsuperscriptBox["m", 
                SubscriptBox["j", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
               SubsuperscriptBox["m", 
                SubscriptBox["j", "3"], "\[Prime]"], 
               RowBox[{"-", 
                SubsuperscriptBox["m", "J", "\[Prime]"]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "0"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "3"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["j", "3"], "\[Prime]"]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubsuperscriptBox["m", 
            SubscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], 
            RowBox[{
             SubsuperscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], "+", 
             SubscriptBox["m", 
              SubscriptBox["j", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]], 
               SubscriptBox["j", "3"], "J"},
              {
               SubscriptBox["m", 
                SubscriptBox["j", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
               SubscriptBox["m", 
                SubscriptBox["j", "3"]], 
               RowBox[{"-", 
                SubscriptBox["m", "J"]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubscriptBox["j", "0"], 
               SubscriptBox["j", "3"], 
               SubsuperscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
              {
               SubscriptBox["m", 
                SubscriptBox["j", "0"]], 
               SubscriptBox["m", 
                SubscriptBox["j", "3"]], 
               RowBox[{"-", 
                SubsuperscriptBox["m", 
                 SubscriptBox["j", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubscriptBox["j", "0"], 
               SubsuperscriptBox["j", "3", "\[Prime]"], 
               SubscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]},
              {
               SubscriptBox["m", 
                SubscriptBox["j", "0"]], 
               SubsuperscriptBox["m", 
                SubscriptBox["j", "3"], "\[Prime]"], 
               RowBox[{"-", 
                SubscriptBox["m", 
                 SubscriptBox["j", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}], " ", 
           RowBox[{
            TagBox[
             StyleBox["(",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol], "\[MediumSpace]", GridBox[{
              {
               SubsuperscriptBox["j", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
               SubsuperscriptBox["j", "3", "\[Prime]"], 
               SuperscriptBox["J", "\[Prime]"]},
              {
               SubsuperscriptBox["m", 
                SubscriptBox["j", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
               SubsuperscriptBox["m", 
                SubscriptBox["j", "3"], "\[Prime]"], 
               RowBox[{"-", 
                SubsuperscriptBox["m", "J", "\[Prime]"]}]}
             }], "\[MediumSpace]", 
            TagBox[
             StyleBox[")",
              SpanMaxSize->DirectedInfinity[1]],
             ThreeJSymbol]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^(
       1 + $CellContext`mJ + $CellContext`mJp + $CellContext`j[
        1, 2] + $CellContext`jp[1, 2] + $CellContext`mj[
        1, 2] + $CellContext`mjp[1, 2]) (1 + 2 $CellContext`J)^
      Rational[1, 2] (1 + 2 $CellContext`Jp)^
      Rational[1, 2] (1 + 2 $CellContext`j[1, 2])^
      Rational[1, 2] (1 + 2 $CellContext`jp[1, 2])^Rational[1, 2] 
     AngularMomentum`tj[{
        $CellContext`j[0], 
        $CellContext`mj[0]}, {
        $CellContext`j[3], 
        $CellContext`mj[3]}, {
        $CellContext`jp[1, 2], -$CellContext`mjp[1, 2]}] AngularMomentum`tj[{
        $CellContext`j[0], 
        $CellContext`mj[0]}, {
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {
        $CellContext`j[1, 2], -$CellContext`mj[1, 2]}] AngularMomentum`tj[{
        $CellContext`j[1, 2], 
        $CellContext`mj[1, 2]}, {
        $CellContext`j[3], 
        $CellContext`mj[3]}, {$CellContext`J, -$CellContext`mJ}] 
     AngularMomentum`tj[{
        $CellContext`jp[1, 2], 
        $CellContext`mjp[1, 2]}, {
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {$CellContext`Jp, -$CellContext`mJp}], 
     Utility`set[
      $CellContext`mj[0], 
      $CellContext`mj[3], 
      $CellContext`mj[1, 2], 
      $CellContext`mjp[3], 
      $CellContext`mjp[1, 2]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`mj[1, 2] + $CellContext`mjp[1, 2]) 
     AngularMomentum`tj[{
        $CellContext`j[0], 
        $CellContext`mj[0]}, {
        $CellContext`j[3], 
        $CellContext`mj[3]}, {
        $CellContext`jp[1, 2], -$CellContext`mjp[1, 2]}] AngularMomentum`tj[{
        $CellContext`j[0], 
        $CellContext`mj[0]}, {
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {
        $CellContext`j[1, 2], -$CellContext`mj[1, 2]}] AngularMomentum`tj[{
        $CellContext`j[1, 2], 
        $CellContext`mj[1, 2]}, {
        $CellContext`j[3], 
        $CellContext`mj[3]}, {$CellContext`J, -$CellContext`mJ}] 
     AngularMomentum`tj[{
        $CellContext`jp[1, 2], 
        $CellContext`mjp[1, 2]}, {
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {$CellContext`Jp, -$CellContext`mJp}], 
     Utility`set[
      $CellContext`mj[0], 
      $CellContext`mj[3], 
      $CellContext`mj[1, 2], 
      $CellContext`mjp[3], 
      $CellContext`mjp[1, 2]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.669712123383855*^9, 3.669712195566386*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubsuperscriptBox["m", 
        SubscriptBox["j", "3"], "\[Prime]"]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["j", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
       RowBox[{
        SqrtBox[
         RowBox[{
          RowBox[{"2", " ", "J"}], "+", "1"}]], " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"2", " ", 
           SubscriptBox["j", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["J", "\[Prime]"]}], "+", "1"}]], " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"2", " ", 
           SubsuperscriptBox["j", 
            RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
          "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{
          SubsuperscriptBox["m", 
           SubscriptBox["j", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], "+", 
          SubsuperscriptBox["m", 
           SubscriptBox["j", "3"], "\[Prime]"], "+", 
          SubsuperscriptBox["j", 
           RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "+", 
          SubsuperscriptBox["j", "3", "\[Prime]"], "+", 
          SubscriptBox["j", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]], "+", 
          SubscriptBox["j", "3"], "+", 
          SubscriptBox["m", "J"], "+", "1"}]], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {
            SubsuperscriptBox["j", "3", "\[Prime]"], "J", 
            SubsuperscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
           {
            SubsuperscriptBox["m", 
             SubscriptBox["j", "3"], "\[Prime]"], 
            RowBox[{"-", 
             SubscriptBox["m", "J"]}], 
            SubsuperscriptBox["m", 
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {
            SubsuperscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
            SubsuperscriptBox["j", "3", "\[Prime]"], 
            SuperscriptBox["J", "\[Prime]"]},
           {
            SubsuperscriptBox["m", 
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
            SubsuperscriptBox["m", 
             SubscriptBox["j", "3"], "\[Prime]"], 
            RowBox[{"-", 
             SubsuperscriptBox["m", "J", "\[Prime]"]}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["{",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol], "\[MediumSpace]", GridBox[{
           {"J", 
            SubscriptBox["j", "3"], 
            SubscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]},
           {
            SubscriptBox["j", "0"], 
            SubsuperscriptBox["j", "3", "\[Prime]"], 
            SubsuperscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox["}",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubsuperscriptBox["m", 
        SubscriptBox["j", "3"], "\[Prime]"]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["j", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{
          SubsuperscriptBox["m", 
           SubscriptBox["j", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], "+", 
          SubsuperscriptBox["m", 
           SubscriptBox["j", "3"], "\[Prime]"], "+", 
          SubsuperscriptBox["j", "3", "\[Prime]"], "+", 
          SubscriptBox["j", "3"], "+", 
          SubsuperscriptBox["m", "J", "\[Prime]"], "+", "1"}]], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {
            SubsuperscriptBox["j", "3", "\[Prime]"], "J", 
            SubsuperscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
           {
            SubsuperscriptBox["m", 
             SubscriptBox["j", "3"], "\[Prime]"], 
            RowBox[{"-", 
             SubscriptBox["m", "J"]}], 
            SubsuperscriptBox["m", 
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {
            SubsuperscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
            SubsuperscriptBox["j", "3", "\[Prime]"], 
            SuperscriptBox["J", "\[Prime]"]},
           {
            SubsuperscriptBox["m", 
             SubscriptBox["j", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
            SubsuperscriptBox["m", 
             SubscriptBox["j", "3"], "\[Prime]"], 
            RowBox[{"-", 
             SubsuperscriptBox["m", "J", "\[Prime]"]}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["{",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol], "\[MediumSpace]", GridBox[{
           {"J", 
            SubscriptBox["j", "3"], 
            SubscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]},
           {
            SubscriptBox["j", "0"], 
            SubsuperscriptBox["j", "3", "\[Prime]"], 
            SubsuperscriptBox["j", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox["}",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^(
       1 + $CellContext`mJ + $CellContext`j[3] + $CellContext`j[
        1, 2] + $CellContext`jp[3] + $CellContext`jp[1, 2] + $CellContext`mjp[
        3] + $CellContext`mjp[1, 2]) (1 + 2 $CellContext`J)^
      Rational[1, 2] (1 + 2 $CellContext`Jp)^
      Rational[1, 2] (1 + 2 $CellContext`j[1, 2])^
      Rational[1, 2] (1 + 2 $CellContext`jp[1, 2])^Rational[1, 2] 
     AngularMomentum`sj[{$CellContext`J, 
        $CellContext`j[3], 
        $CellContext`j[1, 2]}, {
        $CellContext`j[0], 
        $CellContext`jp[3], 
        $CellContext`jp[1, 2]}] AngularMomentum`tj[{
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {$CellContext`J, -$CellContext`mJ}, {
        $CellContext`jp[1, 2], 
        $CellContext`mjp[1, 2]}] AngularMomentum`tj[{
        $CellContext`jp[1, 2], 
        $CellContext`mjp[1, 2]}, {
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {$CellContext`Jp, -$CellContext`mJp}], 
     Utility`set[
      $CellContext`mjp[3], 
      $CellContext`mjp[1, 2]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^(
       1 + $CellContext`mJp + $CellContext`j[3] + $CellContext`jp[
        3] + $CellContext`mjp[3] + $CellContext`mjp[1, 2]) 
     AngularMomentum`sj[{$CellContext`J, 
        $CellContext`j[3], 
        $CellContext`j[1, 2]}, {
        $CellContext`j[0], 
        $CellContext`jp[3], 
        $CellContext`jp[1, 2]}] AngularMomentum`tj[{
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {$CellContext`J, -$CellContext`mJ}, {
        $CellContext`jp[1, 2], 
        $CellContext`mjp[1, 2]}] AngularMomentum`tj[{
        $CellContext`jp[1, 2], 
        $CellContext`mjp[1, 2]}, {
        $CellContext`jp[3], 
        $CellContext`mjp[3]}, {$CellContext`Jp, -$CellContext`mJp}], 
     Utility`set[
      $CellContext`mjp[3], 
      $CellContext`mjp[1, 2]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.669712123383855*^9, 3.6697121956496067`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"2", " ", 
         SubscriptBox["j", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        SubsuperscriptBox["j", 
         RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "+", 
        SubsuperscriptBox["j", "3", "\[Prime]"], "+", 
        SubscriptBox["j", 
         RowBox[{"1", "\[InvisibleComma]", "2"}]], "+", 
        SubscriptBox["j", "3"]}]], " ", 
      SqrtBox[
       RowBox[{
        RowBox[{"2", " ", 
         SubsuperscriptBox["j", 
          RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", "1"}]],
       " ", 
      TemplateBox[{RowBox[{"J", ",", 
          SuperscriptBox["J", "\[Prime]"]}]},
       "KroneckerDeltaSeq"], " ", 
      TemplateBox[{RowBox[{
          SubscriptBox["m", "J"], ",", 
          SubsuperscriptBox["m", "J", "\[Prime]"]}]},
       "KroneckerDeltaSeq"], " ", 
      RowBox[{
       TagBox[
        StyleBox["{",
         SpanMaxSize->DirectedInfinity[1]],
        SixJSymbol], "\[MediumSpace]", GridBox[{
         {"J", 
          SubscriptBox["j", "3"], 
          SubscriptBox["j", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]]},
         {
          SubscriptBox["j", "0"], 
          SubsuperscriptBox["j", "3", "\[Prime]"], 
          SubsuperscriptBox["j", 
           RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox["}",
         SpanMaxSize->DirectedInfinity[1]],
        SixJSymbol]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{
         SubsuperscriptBox["j", "3", "\[Prime]"], "+", 
         SubscriptBox["j", "3"]}]], " ", 
       TemplateBox[{RowBox[{"J", ",", 
           SuperscriptBox["J", "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       TemplateBox[{RowBox[{
           SubscriptBox["m", "J"], ",", 
           SubsuperscriptBox["m", "J", "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       RowBox[{
        TagBox[
         StyleBox["{",
          SpanMaxSize->DirectedInfinity[1]],
         SixJSymbol], "\[MediumSpace]", GridBox[{
          {"J", 
           SubscriptBox["j", "3"], 
           SubscriptBox["j", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]]},
          {
           SubscriptBox["j", "0"], 
           SubsuperscriptBox["j", "3", "\[Prime]"], 
           SubsuperscriptBox["j", 
            RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox["}",
          SpanMaxSize->DirectedInfinity[1]],
         SixJSymbol]}]}], 
      RowBox[{
       RowBox[{"2", " ", "J"}], "+", "1"}]],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[(-1)^($CellContext`j[3] + $CellContext`j[
       1, 2] + $CellContext`jp[3] + $CellContext`jp[1, 2]) (1 + 
      2 $CellContext`j[1, 2])^Rational[1, 2] (1 + 2 $CellContext`jp[1, 2])^
     Rational[1, 2] KroneckerDelta[$CellContext`J, $CellContext`Jp] 
    KroneckerDelta[$CellContext`mJ, $CellContext`mJp] 
    AngularMomentum`sj[{$CellContext`J, 
       $CellContext`j[3], 
       $CellContext`j[1, 2]}, {
       $CellContext`j[0], 
       $CellContext`jp[3], 
       $CellContext`jp[1, 2]}]], "working on:", 
   TraditionalForm[(-1)^($CellContext`j[3] + $CellContext`jp[3]) (1 + 
      2 $CellContext`J)^(-1) KroneckerDelta[$CellContext`J, $CellContext`Jp] 
    KroneckerDelta[$CellContext`mJ, $CellContext`mJp] 
    AngularMomentum`sj[{$CellContext`J, 
       $CellContext`j[3], 
       $CellContext`j[1, 2]}, {
       $CellContext`j[0], 
       $CellContext`jp[3], 
       $CellContext`jp[1, 2]}]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.669712123383855*^9, 3.669712195702765*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"result", "[", "2", "]"}], "//", "TraditionalForm"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.66971220289957*^9, 3.6697122069028063`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   SqrtBox[
    RowBox[{
     RowBox[{"2", " ", 
      SubscriptBox["j", 
       RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], 
    RowBox[{
     SubsuperscriptBox["j", 
      RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "+", 
     SubsuperscriptBox["j", "3", "\[Prime]"], "+", 
     SubscriptBox["j", 
      RowBox[{"1", "\[InvisibleComma]", "2"}]], "+", 
     SubscriptBox["j", "3"]}]], " ", 
   SqrtBox[
    RowBox[{
     RowBox[{"2", " ", 
      SubsuperscriptBox["j", 
       RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", "1"}]], 
   " ", 
   TemplateBox[{RowBox[{"J", ",", 
       SuperscriptBox["J", "\[Prime]"]}]},
    "KroneckerDeltaSeq"], " ", 
   TemplateBox[{RowBox[{
       SubscriptBox["m", "J"], ",", 
       SubsuperscriptBox["m", "J", "\[Prime]"]}]},
    "KroneckerDeltaSeq"], " ", 
   RowBox[{
    TagBox[
     StyleBox["{",
      SpanMaxSize->DirectedInfinity[1]],
     SixJSymbol], "\[MediumSpace]", GridBox[{
      {"J", 
       SubscriptBox["j", "3"], 
       SubscriptBox["j", 
        RowBox[{"1", "\[InvisibleComma]", "2"}]]},
      {
       SubscriptBox["j", "0"], 
       SubsuperscriptBox["j", "3", "\[Prime]"], 
       SubsuperscriptBox["j", 
        RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}
     }], "\[MediumSpace]", 
    TagBox[
     StyleBox["}",
      SpanMaxSize->DirectedInfinity[1]],
     SixJSymbol]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.66971220718589*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "2", "]"}], "=", 
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", "1", "]"}], ",", 
          RowBox[{"mjp", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", "2", "]"}], ",", 
          RowBox[{"mjp", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", "1", "]"}], ",", 
          RowBox[{"mjh", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", "2", "]"}], ",", 
          RowBox[{"mjh", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjh", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mjh", "[", 
            RowBox[{"1", ",", "2"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0"}], "}"}]}], "]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"jh", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "-", 
         RowBox[{"mjh", "[", 
          RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", "1", "]"}], ",", 
          RowBox[{"mjpp", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", "2", "]"}], ",", 
          RowBox[{"mjpp", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", "1", "]"}], ",", 
          RowBox[{"mjhp", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", "2", "]"}], ",", 
          RowBox[{"mjhp", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjhp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mjhp", "[", 
            RowBox[{"1", ",", "2"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0"}], "}"}]}], "]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"jhp", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "-", 
         RowBox[{"mjhp", "[", 
          RowBox[{"1", ",", "2"}], "]"}]}], ")"}]}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"jh", "[", "1", "]"}], ",", 
        RowBox[{"jhp", "[", "1", "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjh", "[", "1", "]"}], ",", 
        RowBox[{"mjhp", "[", "1", "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"jp", "[", "1", "]"}], ",", 
        RowBox[{"jpp", "[", "1", "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjp", "[", "1", "]"}], ",", 
        RowBox[{"mjpp", "[", "1", "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjh", "[", 
         RowBox[{"1", ",", "2"}], "]"}], ",", 
        RowBox[{"mjp", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjhp", "[", 
         RowBox[{"1", ",", "2"}], "]"}], ",", 
        RowBox[{"mjpp", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
     ",", 
     RowBox[{"mjp", "[", "1", "]"}], ",", 
     RowBox[{"mjp", "[", "2", "]"}], ",", 
     RowBox[{"mjh", "[", "1", "]"}], ",", 
     RowBox[{"mjh", "[", "2", "]"}], ",", 
     RowBox[{"mjpp", "[", "1", "]"}], ",", 
     RowBox[{"mjpp", "[", "2", "]"}], ",", 
     RowBox[{"mjhp", "[", "1", "]"}], ",", 
     RowBox[{"mjhp", "[", "2", "]"}], ",", 
     RowBox[{"mjp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjh", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjpp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjhp", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareIndexedAM", "[", 
   RowBox[{"{", 
    RowBox[{"jp", ",", "jh"}], "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.606211363022949*^9, 3.6062113777824497`*^9}, {
   3.606211434919045*^9, 3.606211461879196*^9}, {3.606211502823161*^9, 
   3.6062115459787273`*^9}, {3.6062115978819647`*^9, 3.606211852728549*^9}, {
   3.606211955076665*^9, 3.606211961364614*^9}, {3.606212206885212*^9, 
   3.6062122092359867`*^9}, {3.606212516087813*^9, 3.606212590924464*^9}, 
   3.606212674325849*^9, {3.606212918137348*^9, 3.606212925250701*^9}, {
   3.606213085481372*^9, 3.60621311802665*^9}, {3.606213297975672*^9, 
   3.6062133523338346`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "2", "]"}], "//", "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.6062118574991417`*^9, 3.6062118654705772`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["m", 
     SubscriptBox["jp", "1"]]], 
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["jp", "2"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["jh", "1"]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["jh", "2"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["jp", "1"], "\[Prime]"]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubsuperscriptBox["m", 
          SubscriptBox["jp", "2"], "\[Prime]"]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["jh", "1"], "\[Prime]"]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubsuperscriptBox["m", 
            SubscriptBox["jh", "2"], "\[Prime]"]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["m", 
             SubscriptBox["jp", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["m", 
              SubscriptBox["jh", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
            RowBox[{
             UnderscriptBox["\[Sum]", 
              SubsuperscriptBox["m", 
               SubscriptBox["jp", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
             RowBox[{
              UnderscriptBox["\[Sum]", 
               SubsuperscriptBox["m", 
                SubscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
              RowBox[{
               TemplateBox[{RowBox[{
                   SubscriptBox["jh", "1"], ",", 
                   SubsuperscriptBox["jh", "1", "\[Prime]"]}]},
                "KroneckerDeltaSeq"], " ", 
               TemplateBox[{RowBox[{
                   SubscriptBox["jp", "1"], ",", 
                   SubsuperscriptBox["jp", "1", "\[Prime]"]}]},
                "KroneckerDeltaSeq"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"-", "1"}], ")"}], 
                RowBox[{
                 RowBox[{"-", 
                  SubsuperscriptBox["m", 
                   SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}], 
                 "-", 
                 SubscriptBox["m", 
                  SubscriptBox["jh", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]]], "+", 
                 SubsuperscriptBox["jh", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "+", 
                 SubscriptBox["jh", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]]}]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["jh", "1"], 
                    SubscriptBox["jh", "2"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["jh", "1"]], 
                    SubscriptBox["m", 
                    SubscriptBox["jh", "2"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["jp", "1"], 
                    SubscriptBox["jp", "2"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["jp", "1"]], 
                    SubscriptBox["m", 
                    SubscriptBox["jp", "2"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               TemplateBox[{RowBox[{
                   SubscriptBox["m", 
                    SubscriptBox["jh", "1"]], ",", 
                   SubsuperscriptBox["m", 
                    SubscriptBox["jh", "1"], "\[Prime]"]}]},
                "KroneckerDeltaSeq"], " ", 
               TemplateBox[{RowBox[{
                   SubscriptBox["m", 
                    SubscriptBox["jp", "1"]], ",", 
                   SubsuperscriptBox["m", 
                    SubscriptBox["jp", "1"], "\[Prime]"]}]},
                "KroneckerDeltaSeq"], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubsuperscriptBox["jh", "1", "\[Prime]"], 
                    SubsuperscriptBox["jh", "2", "\[Prime]"]},
                   {
                    SubsuperscriptBox["m", 
                    SubscriptBox["jh", "1"], "\[Prime]"], 
                    SubsuperscriptBox["m", 
                    SubscriptBox["jh", "2"], "\[Prime]"]}
                  }], "|", GridBox[{
                   {
                    SubsuperscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
                   {
                    SubsuperscriptBox["m", 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubsuperscriptBox["jp", "1", "\[Prime]"], 
                    SubsuperscriptBox["jp", "2", "\[Prime]"]},
                   {
                    SubsuperscriptBox["m", 
                    SubscriptBox["jp", "1"], "\[Prime]"], 
                    SubsuperscriptBox["m", 
                    SubscriptBox["jp", "2"], "\[Prime]"]}
                  }], "|", GridBox[{
                   {
                    SubsuperscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
                   {
                    SubsuperscriptBox["m", 
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               TemplateBox[{RowBox[{
                   SubscriptBox["m", 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]], ",", 
                   SubscriptBox["m", 
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]},
                "KroneckerDeltaSeq"], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
                  }], "|", GridBox[{
                   {"j"},
                   {"0"}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               TemplateBox[{RowBox[{
                   SubsuperscriptBox["m", 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
                   ",", 
                   SubsuperscriptBox["m", 
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]},
                "KroneckerDeltaSeq"], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubsuperscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
                    SubsuperscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
                   {
                    SubsuperscriptBox["m", 
                    SubscriptBox["jp", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
                    RowBox[{"-", 
                    SubsuperscriptBox["m", 
                    SubscriptBox["jh", 
                    RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
                  }], "|", GridBox[{
                   {"j"},
                   {"0"}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}]}]}]}]}]}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.60621186771808*^9, 3.606211963214326*^9, 3.606212210638855*^9, {
   3.606212670332807*^9, 3.6062126765024767`*^9}, 3.6062129579360847`*^9, 
   3.606213120307226*^9, 3.6062133542973423`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"declareQNInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"jh", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjh", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"jp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"jpp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjpp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"jhp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjhp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "j", ",", "0"}], "}"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNHalfInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"jp", "[", "1", "]"}], ",", 
     RowBox[{"mjp", "[", "1", "]"}], ",", 
     RowBox[{"jp", "[", "2", "]"}], ",", 
     RowBox[{"mjp", "[", "2", "]"}], ",", 
     RowBox[{"jh", "[", "1", "]"}], ",", 
     RowBox[{"mjh", "[", "1", "]"}], ",", 
     RowBox[{"jh", "[", "2", "]"}], ",", 
     RowBox[{"mjh", "[", "2", "]"}], ",", 
     RowBox[{"jpp", "[", "1", "]"}], ",", 
     RowBox[{"mjpp", "[", "1", "]"}], ",", 
     RowBox[{"jpp", "[", "2", "]"}], ",", 
     RowBox[{"mjpp", "[", "2", "]"}], ",", 
     RowBox[{"jhp", "[", "1", "]"}], ",", 
     RowBox[{"mjhp", "[", "1", "]"}], ",", 
     RowBox[{"jhp", "[", "2", "]"}], ",", 
     RowBox[{"mjhp", "[", "2", "]"}]}], "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6062120385229*^9, 3.6062121596125193`*^9}, {
  3.606212227854082*^9, 3.606212228862948*^9}, {3.6062133646107693`*^9, 
  3.6062133733342457`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"testExpr", "[", "2", "]"}], "//", "consistencyCheck"}]], "Input",
 CellChangeTimes->{{3.6062121954843893`*^9, 3.606212201150676*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"result", "[", "2", "]"}], "=", 
   RowBox[{"simplifyAMSum", "[", 
    RowBox[{
     RowBox[{"testExpr", "[", "2", "]"}], ",", 
     RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6062122380795183`*^9, 3.606212265720067*^9}, 
   3.606212306601363*^9}],

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["jh", "1"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["jh", "2"]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["jh", 
         RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["jh", "2"], "\[Prime]"]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["jp", "2"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["jp", "1"], "\[Prime]"]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubsuperscriptBox["m", 
            SubscriptBox["jp", "2"], "\[Prime]"]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubsuperscriptBox["m", 
             SubscriptBox["jp", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "j"}], "+", "1"}], ")"}], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubscriptBox["jh", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
            
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubscriptBox["jp", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
            
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubsuperscriptBox["jh", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
              "1"}]], " ", 
            SqrtBox[
             RowBox[{
              RowBox[{"2", " ", 
               SubsuperscriptBox["jp", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
              "1"}]], " ", 
            TemplateBox[{RowBox[{
                SubscriptBox["jh", "1"], ",", 
                SubsuperscriptBox["jh", "1", "\[Prime]"]}]},
             "KroneckerDeltaSeq"], " ", 
            TemplateBox[{RowBox[{
                SubscriptBox["jp", "1"], ",", 
                SubsuperscriptBox["jp", "1", "\[Prime]"]}]},
             "KroneckerDeltaSeq"], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubscriptBox["jh", "1"], 
                SubscriptBox["jh", "2"], 
                SubscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]},
               {
                SubscriptBox["m", 
                 SubscriptBox["jh", "1"]], 
                SubscriptBox["m", 
                 SubscriptBox["jh", "2"]], 
                RowBox[{"-", 
                 SubscriptBox["m", 
                  SubscriptBox["jh", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubsuperscriptBox["jp", "1", "\[Prime]"], 
                SubsuperscriptBox["jp", "2", "\[Prime]"], 
                SubsuperscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["jp", "1"], "\[Prime]"], 
                SubsuperscriptBox["m", 
                 SubscriptBox["jp", "2"], "\[Prime]"], 
                RowBox[{"-", 
                 SubsuperscriptBox["m", 
                  SubscriptBox["jp", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"3", " ", 
                SubscriptBox["m", 
                 SubscriptBox["jh", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}], "+", 
              RowBox[{"2", " ", 
               SubsuperscriptBox["jh", 
                RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
              SubsuperscriptBox["jh", "2", "\[Prime]"], "+", 
              RowBox[{"2", " ", 
               SubscriptBox["jh", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "-", 
              RowBox[{"2", " ", 
               SubscriptBox["jh", "1"]}], "+", 
              SubscriptBox["jh", "2"], "-", 
              RowBox[{"3", " ", 
               SubsuperscriptBox["m", 
                SubscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}], "-", 
              SubsuperscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "-", 
              RowBox[{"2", " ", 
               SubsuperscriptBox["jp", "1", "\[Prime]"]}], "+", 
              SubsuperscriptBox["jp", "2", "\[Prime]"], "-", 
              SubscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "+", 
              SubscriptBox["jp", "2"]}]], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], 
                SubscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "j"},
               {
                SubscriptBox["m", 
                 SubscriptBox["jh", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
                RowBox[{"-", 
                 SubscriptBox["m", 
                  SubscriptBox["jh", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]]]}], "0"}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubscriptBox["jh", "1"], 
                SubsuperscriptBox["jh", "2", "\[Prime]"], 
                SubsuperscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
               {
                SubscriptBox["m", 
                 SubscriptBox["jh", "1"]], 
                SubsuperscriptBox["m", 
                 SubscriptBox["jh", "2"], "\[Prime]"], 
                RowBox[{"-", 
                 SubsuperscriptBox["m", 
                  SubscriptBox["jp", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubsuperscriptBox["jp", "1", "\[Prime]"], 
                SubscriptBox["jp", "2"], 
                SubscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["jp", "1"], "\[Prime]"], 
                SubscriptBox["m", 
                 SubscriptBox["jp", "2"]], 
                RowBox[{"-", 
                 SubscriptBox["m", 
                  SubscriptBox["jh", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}], " ", 
            RowBox[{
             TagBox[
              StyleBox["(",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol], "\[MediumSpace]", GridBox[{
               {
                SubsuperscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
                SubsuperscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "j"},
               {
                SubsuperscriptBox["m", 
                 SubscriptBox["jp", 
                  RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
                RowBox[{"-", 
                 SubsuperscriptBox["m", 
                  SubscriptBox["jp", 
                   RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}], 
                "0"}
              }], "\[MediumSpace]", 
             TagBox[
              StyleBox[")",
               SpanMaxSize->DirectedInfinity[1]],
              ThreeJSymbol]}]}]}]}]}]}]}]}]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{3.606212267530748*^9, 3.60621230723419*^9, 
  3.6062126840194407`*^9, 3.606212962237238*^9, 3.6062131244675922`*^9, 
  3.606213377375978*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.606213529698329*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "3", "]"}], "=", 
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", "1", "]"}], ",", 
          RowBox[{"mjp", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", "2", "]"}], ",", 
          RowBox[{"mjp", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", "1", "]"}], ",", 
          RowBox[{"mjh", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", "2", "]"}], ",", 
          RowBox[{"mjh", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjh", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jh", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mjh", "[", 
            RowBox[{"1", ",", "2"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", "1", "]"}], ",", 
          RowBox[{"mjpp", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", "2", "]"}], ",", 
          RowBox[{"mjpp", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", "1", "]"}], ",", 
          RowBox[{"mjhp", "[", "1", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", "2", "]"}], ",", 
          RowBox[{"mjhp", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjhp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}]}], "]"}], 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"mjpp", "[", 
           RowBox[{"1", ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"jhp", "[", 
           RowBox[{"1", ",", "2"}], "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mjhp", "[", 
            RowBox[{"1", ",", "2"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "0"}], "}"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"jh", "[", "1", "]"}], ",", 
        RowBox[{"jhp", "[", "1", "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjh", "[", "1", "]"}], ",", 
        RowBox[{"mjhp", "[", "1", "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"jp", "[", "1", "]"}], ",", 
        RowBox[{"jpp", "[", "1", "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjp", "[", "1", "]"}], ",", 
        RowBox[{"mjpp", "[", "1", "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"jh", "[", "2", "]"}], ",", 
        RowBox[{"jhp", "[", "2", "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjh", "[", "2", "]"}], ",", 
        RowBox[{"mjhp", "[", "2", "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"jp", "[", "2", "]"}], ",", 
        RowBox[{"jpp", "[", "2", "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjp", "[", "2", "]"}], ",", 
        RowBox[{"mjpp", "[", "2", "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjh", "[", 
         RowBox[{"1", ",", "2"}], "]"}], ",", 
        RowBox[{"mjp", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "]"}], 
      RowBox[{"KroneckerDelta", "[", 
       RowBox[{
        RowBox[{"mjhp", "[", 
         RowBox[{"1", ",", "2"}], "]"}], ",", 
        RowBox[{"mjpp", "[", 
         RowBox[{"1", ",", "2"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
     ",", 
     RowBox[{"mjp", "[", "1", "]"}], ",", 
     RowBox[{"mjp", "[", "2", "]"}], ",", 
     RowBox[{"mjh", "[", "1", "]"}], ",", 
     RowBox[{"mjh", "[", "2", "]"}], ",", 
     RowBox[{"mjpp", "[", "1", "]"}], ",", 
     RowBox[{"mjpp", "[", "2", "]"}], ",", 
     RowBox[{"mjhp", "[", "1", "]"}], ",", 
     RowBox[{"mjhp", "[", "2", "]"}], ",", 
     RowBox[{"mjp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjh", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjpp", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"mjhp", "[", 
      RowBox[{"1", ",", "2"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareIndexedAM", "[", 
   RowBox[{"{", 
    RowBox[{"jp", ",", "jh"}], "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.606213540094226*^9, 3.606213561615053*^9}, {
  3.6062135919406137`*^9, 3.606213593651005*^9}, {3.606213650127226*^9, 
  3.606213653498126*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"result", "[", "3", "]"}], "=", 
   RowBox[{"simplifyAMSum", "[", 
    RowBox[{
     RowBox[{"testExpr", "[", "3", "]"}], ",", 
     RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.606213574890197*^9, 3.606213576971262*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["jh", "1"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["jh", "2"]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["jh", 
         RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubsuperscriptBox["m", 
         SubscriptBox["jp", "1"], "\[Prime]"]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubsuperscriptBox["m", 
          SubscriptBox["jp", "2"], "\[Prime]"]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubsuperscriptBox["m", 
           SubscriptBox["jp", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "j"}], "+", "1"}], ")"}], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["jh", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["jp", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"2", " ", 
             SubsuperscriptBox["jh", 
              RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
            "1"}]], " ", 
          SqrtBox[
           RowBox[{
            RowBox[{"2", " ", 
             SubsuperscriptBox["jp", 
              RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
            "1"}]], " ", 
          TemplateBox[{RowBox[{
              SubscriptBox["jh", "1"], ",", 
              SubsuperscriptBox["jh", "1", "\[Prime]"]}]},
           "KroneckerDeltaSeq"], " ", 
          TemplateBox[{RowBox[{
              SubscriptBox["jh", "2"], ",", 
              SubsuperscriptBox["jh", "2", "\[Prime]"]}]},
           "KroneckerDeltaSeq"], " ", 
          TemplateBox[{RowBox[{
              SubscriptBox["jp", "1"], ",", 
              SubsuperscriptBox["jp", "1", "\[Prime]"]}]},
           "KroneckerDeltaSeq"], " ", 
          TemplateBox[{RowBox[{
              SubscriptBox["jp", "2"], ",", 
              SubsuperscriptBox["jp", "2", "\[Prime]"]}]},
           "KroneckerDeltaSeq"], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["jh", "1"], 
              SubscriptBox["jh", "2"], 
              SubscriptBox["jh", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]},
             {
              SubscriptBox["m", 
               SubscriptBox["jh", "1"]], 
              SubscriptBox["m", 
               SubscriptBox["jh", "2"]], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubsuperscriptBox["jp", "1", "\[Prime]"], 
              SubsuperscriptBox["jp", "2", "\[Prime]"], 
              SubsuperscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
             {
              SubsuperscriptBox["m", 
               SubscriptBox["jp", "1"], "\[Prime]"], 
              SubsuperscriptBox["m", 
               SubscriptBox["jp", "2"], "\[Prime]"], 
              RowBox[{"-", 
               SubsuperscriptBox["m", 
                SubscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"2", " ", 
              SubscriptBox["m", 
               SubscriptBox["jh", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}], "+", 
            SubsuperscriptBox["jh", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "+", 
            SubscriptBox["jh", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]], "-", 
            RowBox[{"2", " ", 
             SubscriptBox["jh", "1"]}], "+", 
            RowBox[{"2", " ", 
             SubscriptBox["jh", "2"]}], "-", 
            RowBox[{"2", " ", 
             SubsuperscriptBox["m", 
              SubscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}], "-", 
            SubsuperscriptBox["jp", 
             RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "-", 
            RowBox[{"2", " ", 
             SubsuperscriptBox["jp", "1", "\[Prime]"]}], "+", 
            RowBox[{"2", " ", 
             SubsuperscriptBox["jp", "2", "\[Prime]"]}], "-", 
            SubscriptBox["jp", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]}]], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], 
              SubscriptBox["jh", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]], "j"},
             {
              SubscriptBox["m", 
               SubscriptBox["jh", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]]}], "0"}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["jh", "1"], 
              SubscriptBox["jh", "2"], 
              SubsuperscriptBox["jh", 
               RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
             {
              SubscriptBox["m", 
               SubscriptBox["jh", "1"]], 
              SubscriptBox["m", 
               SubscriptBox["jh", "2"]], 
              RowBox[{"-", 
               SubsuperscriptBox["m", 
                SubscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubsuperscriptBox["jp", "1", "\[Prime]"], 
              SubsuperscriptBox["jp", "2", "\[Prime]"], 
              SubscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}]]},
             {
              SubsuperscriptBox["m", 
               SubscriptBox["jp", "1"], "\[Prime]"], 
              SubsuperscriptBox["m", 
               SubscriptBox["jp", "2"], "\[Prime]"], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["jh", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubsuperscriptBox["jp", 
               RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
              SubsuperscriptBox["jh", 
               RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "j"},
             {
              SubsuperscriptBox["m", 
               SubscriptBox["jp", 
                RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"], 
              RowBox[{"-", 
               SubsuperscriptBox["m", 
                SubscriptBox["jp", 
                 RowBox[{"1", "\[InvisibleComma]", "2"}]], "\[Prime]"]}], 
              "0"}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}]}]}]}]}]}]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{{3.606213577499316*^9, 3.6062135953407173`*^9}, 
   3.606213656017267*^9}],

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["jh", 
       RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubsuperscriptBox["m", 
       SubscriptBox["jp", "1"], "\[Prime]"]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubsuperscriptBox["m", 
        SubscriptBox["jp", "2"], "\[Prime]"]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "j"}], "+", "1"}], ")"}], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"2", " ", 
          SubscriptBox["jp", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]]}], "+", "1"}]], " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"2", " ", 
          SubsuperscriptBox["jp", 
           RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}], "+", 
         "1"}]], " ", 
       TemplateBox[{RowBox[{
           SubscriptBox["jh", "1"], ",", 
           SubsuperscriptBox["jh", "1", "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       TemplateBox[{RowBox[{
           SubscriptBox["jh", "2"], ",", 
           SubsuperscriptBox["jh", "2", "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       TemplateBox[{RowBox[{
           SubscriptBox["jp", "1"], ",", 
           SubsuperscriptBox["jp", "1", "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       TemplateBox[{RowBox[{
           SubscriptBox["jp", "2"], ",", 
           SubsuperscriptBox["jp", "2", "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       StyleBox[
        RowBox[{"\[EmptyUpTriangle]", "{", 
         SubscriptBox["jh", "1"], 
         SubscriptBox["jh", "2"], 
         SubscriptBox["jh", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]], "}"}],
        SpanMaxSize->DirectedInfinity[1]], " ", 
       TemplateBox[{RowBox[{
           SubscriptBox["jh", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], ",", 
           SubsuperscriptBox["jh", 
            RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}]},
        "KroneckerDeltaSeq"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{
         SubscriptBox["m", 
          SubscriptBox["jh", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]]], "+", 
         SubsuperscriptBox["m", 
          SubscriptBox["jp", "1"], "\[Prime]"], "+", 
         SubsuperscriptBox["m", 
          SubscriptBox["jp", "2"], "\[Prime]"], "+", 
         SubsuperscriptBox["jp", "1", "\[Prime]"], "+", 
         SubsuperscriptBox["jp", "2", "\[Prime]"], "+", 
         SubscriptBox["jp", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]]}]], " ", 
       RowBox[{
        TagBox[
         StyleBox["(",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol], "\[MediumSpace]", GridBox[{
          {
           SubscriptBox["jp", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], 
           SubscriptBox["jh", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], "j"},
          {
           SubscriptBox["m", 
            SubscriptBox["jh", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
           RowBox[{"-", 
            SubscriptBox["m", 
             SubscriptBox["jh", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]]}], "0"}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox[")",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol]}], " ", 
       RowBox[{
        TagBox[
         StyleBox["(",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol], "\[MediumSpace]", GridBox[{
          {
           SubsuperscriptBox["jp", "1", "\[Prime]"], 
           SubsuperscriptBox["jp", "2", "\[Prime]"], 
           SubsuperscriptBox["jp", 
            RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]},
          {
           RowBox[{"-", 
            SubsuperscriptBox["m", 
             SubscriptBox["jp", "1"], "\[Prime]"]}], 
           RowBox[{"-", 
            SubsuperscriptBox["m", 
             SubscriptBox["jp", "2"], "\[Prime]"]}], 
           SubscriptBox["m", 
            SubscriptBox["jh", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]]}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox[")",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol]}], " ", 
       RowBox[{
        TagBox[
         StyleBox["(",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol], "\[MediumSpace]", GridBox[{
          {
           SubsuperscriptBox["jp", "1", "\[Prime]"], 
           SubsuperscriptBox["jp", "2", "\[Prime]"], 
           SubscriptBox["jp", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]]},
          {
           SubsuperscriptBox["m", 
            SubscriptBox["jp", "1"], "\[Prime]"], 
           SubsuperscriptBox["m", 
            SubscriptBox["jp", "2"], "\[Prime]"], 
           RowBox[{"-", 
            SubscriptBox["m", 
             SubscriptBox["jh", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]]}]}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox[")",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol]}], " ", 
       RowBox[{
        TagBox[
         StyleBox["(",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol], "\[MediumSpace]", GridBox[{
          {
           SubsuperscriptBox["jp", 
            RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
           SubscriptBox["jh", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]], "j"},
          {
           SubscriptBox["m", 
            SubscriptBox["jh", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
           RowBox[{"-", 
            SubscriptBox["m", 
             SubscriptBox["jh", 
              RowBox[{"1", "\[InvisibleComma]", "2"}]]]}], "0"}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox[")",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol]}]}]}]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{{3.606213577499316*^9, 3.6062135953407173`*^9}, 
   3.6062136563010263`*^9}],

Cell[BoxData[
 TagBox[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["jh", 
       RowBox[{"1", "\[InvisibleComma]", "2"}]]]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "j"}], "+", "1"}], ")"}], " ", 
     TemplateBox[{RowBox[{
         SubscriptBox["jh", "1"], ",", 
         SubsuperscriptBox["jh", "1", "\[Prime]"]}]},
      "KroneckerDeltaSeq"], " ", 
     TemplateBox[{RowBox[{
         SubscriptBox["jh", "2"], ",", 
         SubsuperscriptBox["jh", "2", "\[Prime]"]}]},
      "KroneckerDeltaSeq"], " ", 
     TemplateBox[{RowBox[{
         SubscriptBox["jp", "1"], ",", 
         SubsuperscriptBox["jp", "1", "\[Prime]"]}]},
      "KroneckerDeltaSeq"], " ", 
     TemplateBox[{RowBox[{
         SubscriptBox["jp", "2"], ",", 
         SubsuperscriptBox["jp", "2", "\[Prime]"]}]},
      "KroneckerDeltaSeq"], " ", 
     StyleBox[
      RowBox[{"\[EmptyUpTriangle]", "{", 
       SubscriptBox["jh", "1"], 
       SubscriptBox["jh", "2"], 
       SubscriptBox["jh", 
        RowBox[{"1", "\[InvisibleComma]", "2"}]], "}"}],
      SpanMaxSize->DirectedInfinity[1]], " ", 
     TemplateBox[{RowBox[{
         SubscriptBox["jh", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]], ",", 
         SubsuperscriptBox["jh", 
          RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}]},
      "KroneckerDeltaSeq"], " ", 
     TemplateBox[{RowBox[{
         SubscriptBox["jp", 
          RowBox[{"1", "\[InvisibleComma]", "2"}]], ",", 
         SubsuperscriptBox["jp", 
          RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"]}]},
      "KroneckerDeltaSeq"], " ", 
     StyleBox[
      RowBox[{"\[EmptyUpTriangle]", "{", 
       SubsuperscriptBox["jp", "1", "\[Prime]"], 
       SubsuperscriptBox["jp", "2", "\[Prime]"], 
       SubsuperscriptBox["jp", 
        RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], "}"}],
      SpanMaxSize->DirectedInfinity[1]], " ", 
     SuperscriptBox[
      RowBox[{
       TagBox[
        StyleBox["(",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol], "\[MediumSpace]", GridBox[{
         {
          SubsuperscriptBox["jp", 
           RowBox[{"1", "\[InvisibleComma]", "2"}], "\[Prime]"], 
          SubscriptBox["jh", 
           RowBox[{"1", "\[InvisibleComma]", "2"}]], "j"},
         {
          SubscriptBox["m", 
           SubscriptBox["jh", 
            RowBox[{"1", "\[InvisibleComma]", "2"}]]], 
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["jh", 
             RowBox[{"1", "\[InvisibleComma]", "2"}]]]}], "0"}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox[")",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol]}], "2"]}]}],
   TraditionalForm],
  TraditionalForm,
  Editable->True]], "Print",
 CellChangeTimes->{{3.606213577499316*^9, 3.6062135953407173`*^9}, 
   3.6062136563999434`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"declareIndexedAM", "[", 
   RowBox[{"{", 
    RowBox[{"j", ",", "J"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"J", "[", "1", "]"}], ",", 
     RowBox[{"mJ", "[", "1", "]"}], ",", 
     RowBox[{"J", "[", "2", "]"}], ",", 
     RowBox[{"mJ", "[", "2", "]"}], ",", 
     RowBox[{"J", "[", "3", "]"}], ",", 
     RowBox[{"mJ", "[", "3", "]"}], ",", 
     RowBox[{"J", "[", "4", "]"}], ",", 
     RowBox[{"mJ", "[", "4", "]"}]}], "}"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNHalfInteger", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"j", "[", "t", "]"}], ",", 
     RowBox[{"mj", "[", "t", "]"}], ",", 
     RowBox[{"j", "[", "u", "]"}], ",", 
     RowBox[{"mj", "[", "u", "]"}], ",", 
     RowBox[{"j", "[", "p", "]"}], ",", 
     RowBox[{"mj", "[", "p", "]"}], ",", 
     RowBox[{"j", "[", "w", "]"}], ",", 
     RowBox[{"mj", "[", "w", "]"}], ",", 
     RowBox[{"j", "[", "v", "]"}], ",", 
     RowBox[{"mj", "[", "v", "]"}], ",", 
     RowBox[{"j", "[", "q", "]"}], ",", 
     RowBox[{"mj", "[", "q", "]"}], ",", 
     RowBox[{"j", "[", "r", "]"}], ",", 
     RowBox[{"mj", "[", "r", "]"}], ",", 
     RowBox[{"j", "[", "s", "]"}], ",", 
     RowBox[{"mj", "[", "s", "]"}]}], "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.680516605118375*^9, 3.680516761233506*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "4", "]"}], " ", "=", " ", 
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "t", "]"}], ",", 
          RowBox[{"mj", "[", "t", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "u", "]"}], ",", 
          RowBox[{"mj", "[", "u", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "1", "]"}], ",", 
          RowBox[{"mJ", "[", "1", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "v", "]"}], ",", 
          RowBox[{"mj", "[", "v", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "w", "]"}], ",", 
          RowBox[{"mj", "[", "w", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "1", "]"}], ",", 
          RowBox[{"mJ", "[", "1", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "q", "]"}], ",", 
          RowBox[{"mj", "[", "q", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "r", "]"}], ",", 
          RowBox[{"mj", "[", "r", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "2", "]"}], ",", 
          RowBox[{"mJ", "[", "2", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "s", "]"}], ",", 
          RowBox[{"mj", "[", "s", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "u", "]"}], ",", 
          RowBox[{"mj", "[", "u", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "2", "]"}], ",", 
          RowBox[{"mJ", "[", "2", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "p", "]"}], ",", 
          RowBox[{"mj", "[", "p", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "w", "]"}], ",", 
          RowBox[{"mj", "[", "w", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "3", "]"}], ",", 
          RowBox[{"mJ", "[", "3", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "r", "]"}], ",", 
          RowBox[{"mj", "[", "r", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "t", "]"}], ",", 
          RowBox[{"mj", "[", "t", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "3", "]"}], ",", 
          RowBox[{"mJ", "[", "3", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "s", "]"}], ",", 
          RowBox[{"mj", "[", "s", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "v", "]"}], ",", 
          RowBox[{"mj", "[", "v", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "4", "]"}], ",", 
          RowBox[{"mJ", "[", "4", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"cg", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "p", "]"}], ",", 
          RowBox[{"mj", "[", "p", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "q", "]"}], ",", 
          RowBox[{"mj", "[", "q", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "4", "]"}], ",", 
          RowBox[{"mJ", "[", "4", "]"}]}], "}"}]}], "]"}]}], 
     "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
     RowBox[{"mj", "[", "q", "]"}], ",", 
     RowBox[{"mj", "[", "r", "]"}], ",", 
     RowBox[{"mj", "[", "s", "]"}], ",", 
     RowBox[{"mj", "[", "t", "]"}], ",", 
     RowBox[{"mj", "[", "p", "]"}], ",", 
     RowBox[{"mj", "[", "v", "]"}], ",", 
     RowBox[{"mj", "[", "w", "]"}], ",", 
     RowBox[{"mj", "[", "u", "]"}], ",", 
     RowBox[{"mJ", "[", "1", "]"}], ",", 
     RowBox[{"mJ", "[", "2", "]"}], ",", 
     RowBox[{"mJ", "[", "3", "]"}], ",", 
     RowBox[{"mJ", "[", "4", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testExpr", "[", "4", "]"}], "//", 
  "consistencyCheck"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testExpr", "[", "4", "]"}], "//", "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.680516781170908*^9, 3.68051702059943*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.680516905647582*^9, 3.680516919741658*^9}, 
   3.6805170210264063`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["m", 
     SubscriptBox["j", "q"]]], 
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["j", "r"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["j", "s"]]], 
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "t"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "p"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "v"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["j", "w"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["j", "u"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["m", 
             SubscriptBox["J", "1"]]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["m", 
              SubscriptBox["J", "2"]]], 
            RowBox[{
             UnderscriptBox["\[Sum]", 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]]], 
             RowBox[{
              UnderscriptBox["\[Sum]", 
               SubscriptBox["m", 
                SubscriptBox["J", "4"]]], 
              RowBox[{
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "q"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "4"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "w"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "3"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "q"], 
                    SubscriptBox["j", "r"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "2"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "r"], 
                    SubscriptBox["j", "t"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "3"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "u"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "s"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "u"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "2"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "v"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "s"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "v"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "4"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "t"], 
                    SubscriptBox["j", "u"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "u"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "1"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "1"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]], " ", 
               StyleBox[
                RowBox[{"c", "(", GridBox[{
                   {
                    SubscriptBox["j", "v"], 
                    SubscriptBox["j", "w"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "v"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]]}
                  }], "|", GridBox[{
                   {
                    SubscriptBox["J", "1"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "1"]]}
                  }], ")"}],
                SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}]}]}]}]}]}]}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.680516905647582*^9, 3.680516919741658*^9}, 
   3.680517021057349*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"result", "[", "4", "]"}], "=", 
   RowBox[{"simplifyAMSum", "[", 
    RowBox[{
     RowBox[{"testExpr", "[", "4", "]"}], ",", 
     RowBox[{"Print", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.680517081548689*^9, 3.680517089249836*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "q"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "r"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["j", "s"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["j", "t"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["m", 
             SubscriptBox["j", "u"]]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["m", 
              SubscriptBox["j", "v"]]], 
            RowBox[{
             UnderscriptBox["\[Sum]", 
              SubscriptBox["m", 
               SubscriptBox["j", "w"]]], 
             RowBox[{
              UnderscriptBox["\[Sum]", 
               SubscriptBox["m", 
                SubscriptBox["J", "1"]]], 
              RowBox[{
               UnderscriptBox["\[Sum]", 
                SubscriptBox["m", 
                 SubscriptBox["J", "2"]]], 
               RowBox[{
                UnderscriptBox["\[Sum]", 
                 SubscriptBox["m", 
                  SubscriptBox["J", "3"]]], 
                RowBox[{
                 UnderscriptBox["\[Sum]", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "4"]]], 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    SubscriptBox["J", "1"]}], "+", "1"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    SubscriptBox["J", "2"]}], "+", "1"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    SubscriptBox["J", "3"]}], "+", "1"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    SubscriptBox["J", "4"]}], "+", "1"}], ")"}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "q"], 
                    SubscriptBox["J", "4"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "w"], 
                    SubscriptBox["J", "3"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "q"], 
                    SubscriptBox["j", "r"], 
                    SubscriptBox["J", "2"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "r"], 
                    SubscriptBox["j", "t"], 
                    SubscriptBox["J", "3"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "u"], 
                    SubscriptBox["J", "2"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "s"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "u"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "v"], 
                    SubscriptBox["J", "4"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "s"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "v"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "t"], 
                    SubscriptBox["j", "u"], 
                    SubscriptBox["J", "1"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "u"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "1"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "v"], 
                    SubscriptBox["j", "w"], 
                    SubscriptBox["J", "1"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "v"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "1"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}]}]}]}]}]}]}]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "q"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "r"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["j", "s"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["j", "t"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["m", 
             SubscriptBox["j", "u"]]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["m", 
              SubscriptBox["j", "v"]]], 
            RowBox[{
             UnderscriptBox["\[Sum]", 
              SubscriptBox["m", 
               SubscriptBox["j", "w"]]], 
             RowBox[{
              UnderscriptBox["\[Sum]", 
               SubscriptBox["m", 
                SubscriptBox["J", "1"]]], 
              RowBox[{
               UnderscriptBox["\[Sum]", 
                SubscriptBox["m", 
                 SubscriptBox["J", "2"]]], 
               RowBox[{
                UnderscriptBox["\[Sum]", 
                 SubscriptBox["m", 
                  SubscriptBox["J", "3"]]], 
                RowBox[{
                 UnderscriptBox["\[Sum]", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "4"]]], 
                 RowBox[{
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "q"], 
                    SubscriptBox["J", "4"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "w"], 
                    SubscriptBox["J", "3"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "q"], 
                    SubscriptBox["j", "r"], 
                    SubscriptBox["J", "2"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "r"], 
                    SubscriptBox["j", "t"], 
                    SubscriptBox["J", "3"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "u"], 
                    SubscriptBox["J", "2"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "s"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "u"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "v"], 
                    SubscriptBox["J", "4"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "s"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "v"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "t"], 
                    SubscriptBox["j", "u"], 
                    SubscriptBox["J", "1"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "u"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "1"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}], " ", 
                  RowBox[{
                   TagBox[
                    StyleBox["(",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol], "\[MediumSpace]", GridBox[{
                    {
                    SubscriptBox["j", "v"], 
                    SubscriptBox["j", "w"], 
                    SubscriptBox["J", "1"]},
                    {
                    SubscriptBox["m", 
                    SubscriptBox["j", "v"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "1"]]}]}
                    }], "\[MediumSpace]", 
                   TagBox[
                    StyleBox[")",
                    SpanMaxSize->DirectedInfinity[1]],
                    ThreeJSymbol]}]}]}]}]}]}]}]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(1 + 2 $CellContext`J[1]) (1 + 2 $CellContext`J[2]) (1 + 
      2 $CellContext`J[3]) (1 + 2 $CellContext`J[4]) AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`j[$CellContext`r], 
        $CellContext`mj[$CellContext`r]}, {
        $CellContext`J[2], -$CellContext`mJ[2]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`r], 
        $CellContext`mj[$CellContext`r]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`mj[$CellContext`t]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`mj[$CellContext`s]}, {
        $CellContext`j[$CellContext`u], 
        $CellContext`mj[$CellContext`u]}, {
        $CellContext`J[2], -$CellContext`mJ[2]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`mj[$CellContext`s]}, {
        $CellContext`j[$CellContext`v], 
        $CellContext`mj[$CellContext`v]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`t], 
        $CellContext`mj[$CellContext`t]}, {
        $CellContext`j[$CellContext`u], 
        $CellContext`mj[$CellContext`u]}, {
        $CellContext`J[1], -$CellContext`mJ[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`v], 
        $CellContext`mj[$CellContext`v]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}, {
        $CellContext`J[1], -$CellContext`mJ[1]}], 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`q], 
      $CellContext`mj[$CellContext`r], 
      $CellContext`mj[$CellContext`s], 
      $CellContext`mj[$CellContext`t], 
      $CellContext`mj[$CellContext`u], 
      $CellContext`mj[$CellContext`v], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[1], 
      $CellContext`mJ[2], 
      $CellContext`mJ[3], 
      $CellContext`mJ[4]]]], "working on:", 
   TraditionalForm[
    Utility`sum[AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`j[$CellContext`r], 
        $CellContext`mj[$CellContext`r]}, {
        $CellContext`J[2], -$CellContext`mJ[2]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`r], 
        $CellContext`mj[$CellContext`r]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`mj[$CellContext`t]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`mj[$CellContext`s]}, {
        $CellContext`j[$CellContext`u], 
        $CellContext`mj[$CellContext`u]}, {
        $CellContext`J[2], -$CellContext`mJ[2]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`mj[$CellContext`s]}, {
        $CellContext`j[$CellContext`v], 
        $CellContext`mj[$CellContext`v]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`t], 
        $CellContext`mj[$CellContext`t]}, {
        $CellContext`j[$CellContext`u], 
        $CellContext`mj[$CellContext`u]}, {
        $CellContext`J[1], -$CellContext`mJ[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`v], 
        $CellContext`mj[$CellContext`v]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}, {
        $CellContext`J[1], -$CellContext`mJ[1]}], 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`q], 
      $CellContext`mj[$CellContext`r], 
      $CellContext`mj[$CellContext`s], 
      $CellContext`mj[$CellContext`t], 
      $CellContext`mj[$CellContext`u], 
      $CellContext`mj[$CellContext`v], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[1], 
      $CellContext`mJ[2], 
      $CellContext`mJ[3], 
      $CellContext`mJ[4]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.680517089649365*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "q"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "r"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["j", "t"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["j", "w"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["m", 
             SubscriptBox["J", "2"]]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["m", 
              SubscriptBox["J", "3"]]], 
            RowBox[{
             UnderscriptBox["\[Sum]", 
              SubscriptBox["m", 
               SubscriptBox["J", "4"]]], 
             RowBox[{
              UnderscriptBox["\[Sum]", 
               SubscriptBox["K", "1"]], 
              RowBox[{
               UnderscriptBox["\[Sum]", 
                SubscriptBox["K", "2"]], 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SubscriptBox["J", "1"]}], "+", "1"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SubscriptBox["J", "2"]}], "+", "1"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SubscriptBox["J", "3"]}], "+", "1"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SubscriptBox["J", "4"]}], "+", "1"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SubscriptBox["K", "1"]}], "+", "1"}], ")"}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["J", "2"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["j", "t"]},
                   {
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}], 
                    RowBox[{"-", 
                    SubscriptBox["K", "2"]}], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]]}]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["J", "4"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["j", "w"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]], 
                    SubscriptBox["K", "2"], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "q"], 
                    SubscriptBox["J", "4"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "w"], 
                    SubscriptBox["J", "3"]},
                   {
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]]}], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]]}], 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "q"], 
                    SubscriptBox["j", "r"], 
                    SubscriptBox["J", "2"]},
                   {
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]]}], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]]}], 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "r"], 
                    SubscriptBox["j", "t"], 
                    SubscriptBox["J", "3"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["{",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "u"], 
                    SubscriptBox["J", "2"]},
                   {
                    SubscriptBox["j", "t"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["J", "1"]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox["}",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["{",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "v"], 
                    SubscriptBox["J", "4"]},
                   {
                    SubscriptBox["j", "w"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["J", "1"]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox["}",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol]}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"-", "1"}], ")"}], 
                 RowBox[{
                  SubscriptBox["m", 
                   SubscriptBox["j", "p"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "q"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "r"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "t"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "w"]], "+", 
                  SubscriptBox["j", "p"], "+", 
                  SubscriptBox["j", "q"], "+", 
                  SubscriptBox["j", "r"], "+", 
                  SubscriptBox["j", "v"], "+", 
                  SubscriptBox["j", "w"], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "2"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "3"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "4"]], "+", 
                  SubscriptBox["J", "1"], "+", 
                  SubscriptBox["J", "3"], "+", 
                  SubscriptBox["K", "1"], "+", 
                  SubscriptBox["K", "2"], "+", "1"}]]}]}]}]}]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "q"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "r"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["j", "t"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["j", "w"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["m", 
             SubscriptBox["J", "2"]]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["m", 
              SubscriptBox["J", "3"]]], 
            RowBox[{
             UnderscriptBox["\[Sum]", 
              SubscriptBox["m", 
               SubscriptBox["J", "4"]]], 
             RowBox[{
              UnderscriptBox["\[Sum]", 
               SubscriptBox["K", "1"]], 
              RowBox[{
               UnderscriptBox["\[Sum]", 
                SubscriptBox["K", "2"]], 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", 
                   SubscriptBox["K", "1"]}], "+", "1"}], ")"}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["J", "2"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["j", "t"]},
                   {
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}], 
                    RowBox[{"-", 
                    SubscriptBox["K", "2"]}], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]]}]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["J", "4"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["j", "w"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]], 
                    SubscriptBox["K", "2"], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "q"], 
                    SubscriptBox["J", "4"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "4"]]}]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "p"], 
                    SubscriptBox["j", "w"], 
                    SubscriptBox["J", "3"]},
                   {
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "p"]]}], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "w"]]}], 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "q"], 
                    SubscriptBox["j", "r"], 
                    SubscriptBox["J", "2"]},
                   {
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "q"]]}], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]]}], 
                    SubscriptBox["m", 
                    SubscriptBox["J", "2"]]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["(",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "r"], 
                    SubscriptBox["j", "t"], 
                    SubscriptBox["J", "3"]},
                   {
                    SubscriptBox["m", 
                    SubscriptBox["j", "r"]], 
                    SubscriptBox["m", 
                    SubscriptBox["j", "t"]], 
                    RowBox[{"-", 
                    SubscriptBox["m", 
                    SubscriptBox["J", "3"]]}]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox[")",
                   SpanMaxSize->DirectedInfinity[1]],
                  ThreeJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["{",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "u"], 
                    SubscriptBox["J", "2"]},
                   {
                    SubscriptBox["j", "t"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["J", "1"]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox["}",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol]}], " ", 
                RowBox[{
                 TagBox[
                  StyleBox["{",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol], "\[MediumSpace]", GridBox[{
                   {
                    SubscriptBox["j", "s"], 
                    SubscriptBox["j", "v"], 
                    SubscriptBox["J", "4"]},
                   {
                    SubscriptBox["j", "w"], 
                    SubscriptBox["K", "1"], 
                    SubscriptBox["J", "1"]}
                  }], "\[MediumSpace]", 
                 TagBox[
                  StyleBox["}",
                   SpanMaxSize->DirectedInfinity[1]],
                  SixJSymbol]}], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"-", "1"}], ")"}], 
                 RowBox[{
                  SubscriptBox["m", 
                   SubscriptBox["j", "p"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "q"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "r"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "t"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "w"]], "+", 
                  SubscriptBox["j", "p"], "+", 
                  SubscriptBox["j", "q"], "+", 
                  SubscriptBox["j", "r"], "+", 
                  SubscriptBox["j", "v"], "+", 
                  SubscriptBox["j", "w"], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "2"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "3"]], "+", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "4"]], "+", 
                  SubscriptBox["J", "1"], "+", 
                  SubscriptBox["J", "3"], "+", 
                  SubscriptBox["K", "1"], "+", 
                  SubscriptBox["K", "2"], "+", "1"}]]}]}]}]}]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^(
       1 + $CellContext`j[$CellContext`p] + $CellContext`j[$CellContext`q] + \
$CellContext`j[$CellContext`r] + $CellContext`j[$CellContext`v] + \
$CellContext`j[$CellContext`w] + $CellContext`J[1] + $CellContext`J[
        3] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`q] + $CellContext`mj[$CellContext`r] + \
$CellContext`mj[$CellContext`t] + $CellContext`mj[$CellContext`w] + \
$CellContext`mJ[2] + $CellContext`mJ[3] + $CellContext`mJ[
        4] + $CellContext`varK[1] + $CellContext`varK[2]) (1 + 
      2 $CellContext`J[1]) (1 + 2 $CellContext`J[2]) (1 + 
      2 $CellContext`J[3]) (1 + 2 $CellContext`J[4]) AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`u], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v], 
        $CellContext`J[4]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`q], -$CellContext`mj[$CellContext`q]}, {
        $CellContext`j[$CellContext`r], -$CellContext`mj[$CellContext`r]}, {
        $CellContext`J[2], 
        $CellContext`mJ[2]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`r], 
        $CellContext`mj[$CellContext`r]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`mj[$CellContext`t]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`J[2], -$CellContext`mJ[2]}, {
        $CellContext`varK[1], -$CellContext`varK[2]}, {
        $CellContext`j[$CellContext`t], -$CellContext`mj[$CellContext`t]}] 
     AngularMomentum`tj[{
        $CellContext`J[4], 
        $CellContext`mJ[4]}, {
        $CellContext`varK[1], 
        $CellContext`varK[2]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}] (1 + 2 $CellContext`varK[1]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`q], 
      $CellContext`mj[$CellContext`r], 
      $CellContext`mj[$CellContext`t], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[2], 
      $CellContext`mJ[3], 
      $CellContext`mJ[4], 
      $CellContext`varK[1], 
      $CellContext`varK[2]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^(
       1 + $CellContext`j[$CellContext`p] + $CellContext`j[$CellContext`q] + \
$CellContext`j[$CellContext`r] + $CellContext`j[$CellContext`v] + \
$CellContext`j[$CellContext`w] + $CellContext`J[1] + $CellContext`J[
        3] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`q] + $CellContext`mj[$CellContext`r] + \
$CellContext`mj[$CellContext`t] + $CellContext`mj[$CellContext`w] + \
$CellContext`mJ[2] + $CellContext`mJ[3] + $CellContext`mJ[
        4] + $CellContext`varK[1] + $CellContext`varK[2]) 
     AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`u], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v], 
        $CellContext`J[4]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`q], -$CellContext`mj[$CellContext`q]}, {
        $CellContext`j[$CellContext`r], -$CellContext`mj[$CellContext`r]}, {
        $CellContext`J[2], 
        $CellContext`mJ[2]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`r], 
        $CellContext`mj[$CellContext`r]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`mj[$CellContext`t]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`J[2], -$CellContext`mJ[2]}, {
        $CellContext`varK[1], -$CellContext`varK[2]}, {
        $CellContext`j[$CellContext`t], -$CellContext`mj[$CellContext`t]}] 
     AngularMomentum`tj[{
        $CellContext`J[4], 
        $CellContext`mJ[4]}, {
        $CellContext`varK[1], 
        $CellContext`varK[2]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}] (1 + 2 $CellContext`varK[1]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`q], 
      $CellContext`mj[$CellContext`r], 
      $CellContext`mj[$CellContext`t], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[2], 
      $CellContext`mJ[3], 
      $CellContext`mJ[4], 
      $CellContext`varK[1], 
      $CellContext`varK[2]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.6805170898675957`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "q"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "w"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["J", "3"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["J", "4"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["K", "1"]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["K", "2"]], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SubscriptBox["J", "1"]}], "+", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SubscriptBox["J", "2"]}], "+", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SubscriptBox["J", "3"]}], "+", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SubscriptBox["J", "4"]}], "+", "1"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SubscriptBox["K", "1"]}], "+", "1"}], ")"}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["J", "3"], 
                 SubscriptBox["j", "q"], 
                 SubscriptBox["K", "1"]},
                {
                 SubscriptBox["m", 
                  SubscriptBox["J", "3"]], 
                 SubscriptBox["m", 
                  SubscriptBox["j", "q"]], 
                 SubscriptBox["K", "2"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["J", "4"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["j", "w"]},
                {
                 SubscriptBox["m", 
                  SubscriptBox["J", "4"]], 
                 SubscriptBox["K", "2"], 
                 SubscriptBox["m", 
                  SubscriptBox["j", "w"]]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "p"], 
                 SubscriptBox["j", "q"], 
                 SubscriptBox["J", "4"]},
                {
                 SubscriptBox["m", 
                  SubscriptBox["j", "p"]], 
                 SubscriptBox["m", 
                  SubscriptBox["j", "q"]], 
                 RowBox[{"-", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "4"]]}]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "p"], 
                 SubscriptBox["j", "w"], 
                 SubscriptBox["J", "3"]},
                {
                 RowBox[{"-", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "p"]]}], 
                 RowBox[{"-", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "w"]]}], 
                 SubscriptBox["m", 
                  SubscriptBox["J", "3"]]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["{",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "q"], 
                 SubscriptBox["j", "r"], 
                 SubscriptBox["J", "2"]},
                {
                 SubscriptBox["j", "t"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["J", "3"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox["}",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["{",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "s"], 
                 SubscriptBox["j", "u"], 
                 SubscriptBox["J", "2"]},
                {
                 SubscriptBox["j", "t"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["J", "1"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox["}",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["{",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "s"], 
                 SubscriptBox["j", "v"], 
                 SubscriptBox["J", "4"]},
                {
                 SubscriptBox["j", "w"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["J", "1"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox["}",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], 
              RowBox[{
               SubscriptBox["m", 
                SubscriptBox["j", "p"]], "+", 
               SubscriptBox["m", 
                SubscriptBox["j", "q"]], "+", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]], "+", 
               SubscriptBox["j", "p"], "+", 
               SubscriptBox["j", "r"], "+", 
               SubscriptBox["j", "t"], "+", 
               SubscriptBox["j", "v"], "+", 
               SubscriptBox["j", "w"], "+", 
               SubscriptBox["m", 
                SubscriptBox["J", "3"]], "+", 
               SubscriptBox["m", 
                SubscriptBox["J", "4"]], "+", 
               SubscriptBox["J", "1"], "+", 
               SubscriptBox["J", "3"], "+", 
               SubscriptBox["K", "1"], "+", 
               SubscriptBox["K", "2"]}]]}]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "q"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["j", "w"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["m", 
           SubscriptBox["J", "3"]]], 
         RowBox[{
          UnderscriptBox["\[Sum]", 
           SubscriptBox["m", 
            SubscriptBox["J", "4"]]], 
          RowBox[{
           UnderscriptBox["\[Sum]", 
            SubscriptBox["K", "1"]], 
           RowBox[{
            UnderscriptBox["\[Sum]", 
             SubscriptBox["K", "2"]], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                SubscriptBox["K", "1"]}], "+", "1"}], ")"}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["J", "3"], 
                 SubscriptBox["j", "q"], 
                 SubscriptBox["K", "1"]},
                {
                 SubscriptBox["m", 
                  SubscriptBox["J", "3"]], 
                 SubscriptBox["m", 
                  SubscriptBox["j", "q"]], 
                 SubscriptBox["K", "2"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["J", "4"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["j", "w"]},
                {
                 SubscriptBox["m", 
                  SubscriptBox["J", "4"]], 
                 SubscriptBox["K", "2"], 
                 SubscriptBox["m", 
                  SubscriptBox["j", "w"]]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "p"], 
                 SubscriptBox["j", "q"], 
                 SubscriptBox["J", "4"]},
                {
                 SubscriptBox["m", 
                  SubscriptBox["j", "p"]], 
                 SubscriptBox["m", 
                  SubscriptBox["j", "q"]], 
                 RowBox[{"-", 
                  SubscriptBox["m", 
                   SubscriptBox["J", "4"]]}]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["(",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "p"], 
                 SubscriptBox["j", "w"], 
                 SubscriptBox["J", "3"]},
                {
                 RowBox[{"-", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "p"]]}], 
                 RowBox[{"-", 
                  SubscriptBox["m", 
                   SubscriptBox["j", "w"]]}], 
                 SubscriptBox["m", 
                  SubscriptBox["J", "3"]]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox[")",
                SpanMaxSize->DirectedInfinity[1]],
               ThreeJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["{",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "q"], 
                 SubscriptBox["j", "r"], 
                 SubscriptBox["J", "2"]},
                {
                 SubscriptBox["j", "t"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["J", "3"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox["}",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["{",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "s"], 
                 SubscriptBox["j", "u"], 
                 SubscriptBox["J", "2"]},
                {
                 SubscriptBox["j", "t"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["J", "1"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox["}",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol]}], " ", 
             RowBox[{
              TagBox[
               StyleBox["{",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol], "\[MediumSpace]", GridBox[{
                {
                 SubscriptBox["j", "s"], 
                 SubscriptBox["j", "v"], 
                 SubscriptBox["J", "4"]},
                {
                 SubscriptBox["j", "w"], 
                 SubscriptBox["K", "1"], 
                 SubscriptBox["J", "1"]}
               }], "\[MediumSpace]", 
              TagBox[
               StyleBox["}",
                SpanMaxSize->DirectedInfinity[1]],
               SixJSymbol]}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"-", "1"}], ")"}], 
              RowBox[{
               SubscriptBox["m", 
                SubscriptBox["j", "p"]], "+", 
               SubscriptBox["m", 
                SubscriptBox["j", "q"]], "+", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]], "+", 
               SubscriptBox["j", "p"], "+", 
               SubscriptBox["j", "r"], "+", 
               SubscriptBox["j", "t"], "+", 
               SubscriptBox["j", "v"], "+", 
               SubscriptBox["j", "w"], "+", 
               SubscriptBox["m", 
                SubscriptBox["J", "3"]], "+", 
               SubscriptBox["m", 
                SubscriptBox["J", "4"]], "+", 
               SubscriptBox["J", "1"], "+", 
               SubscriptBox["J", "3"], "+", 
               SubscriptBox["K", "1"], "+", 
               SubscriptBox["K", "2"]}]]}]}]}]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`j[$CellContext`p] + \
$CellContext`j[$CellContext`r] + $CellContext`j[$CellContext`t] + \
$CellContext`j[$CellContext`v] + $CellContext`j[$CellContext`w] + \
$CellContext`J[1] + $CellContext`J[
        3] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`q] + $CellContext`mj[$CellContext`w] + \
$CellContext`mJ[3] + $CellContext`mJ[4] + $CellContext`varK[
        1] + $CellContext`varK[2]) (1 + 2 $CellContext`J[1]) (1 + 
      2 $CellContext`J[2]) (1 + 2 $CellContext`J[3]) (1 + 2 $CellContext`J[4])
       AngularMomentum`sj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`j[$CellContext`r], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[3]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`u], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v], 
        $CellContext`J[4]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`J[3], 
        $CellContext`mJ[3]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`varK[1], 
        $CellContext`varK[2]}] AngularMomentum`tj[{
        $CellContext`J[4], 
        $CellContext`mJ[4]}, {
        $CellContext`varK[1], 
        $CellContext`varK[2]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}] (1 + 2 $CellContext`varK[1]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`q], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[3], 
      $CellContext`mJ[4], 
      $CellContext`varK[1], 
      $CellContext`varK[2]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`j[$CellContext`p] + \
$CellContext`j[$CellContext`r] + $CellContext`j[$CellContext`t] + \
$CellContext`j[$CellContext`v] + $CellContext`j[$CellContext`w] + \
$CellContext`J[1] + $CellContext`J[
        3] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`q] + $CellContext`mj[$CellContext`w] + \
$CellContext`mJ[3] + $CellContext`mJ[4] + $CellContext`varK[
        1] + $CellContext`varK[2]) AngularMomentum`sj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`j[$CellContext`r], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[3]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`u], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v], 
        $CellContext`J[4]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`J[4], -$CellContext`mJ[4]}] AngularMomentum`tj[{
        $CellContext`J[3], 
        $CellContext`mJ[3]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`mj[$CellContext`q]}, {
        $CellContext`varK[1], 
        $CellContext`varK[2]}] AngularMomentum`tj[{
        $CellContext`J[4], 
        $CellContext`mJ[4]}, {
        $CellContext`varK[1], 
        $CellContext`varK[2]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}] (1 + 2 $CellContext`varK[1]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`q], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[3], 
      $CellContext`mJ[4], 
      $CellContext`varK[1], 
      $CellContext`varK[2]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.680517090012466*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "w"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["J", "3"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["K", "1"]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "1"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "2"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "3"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "4"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["K", "1"]}], "+", "1"}], ")"}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["j", "w"], 
              SubscriptBox["J", "3"]},
             {
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "p"]]}], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]]}], 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["J", "3"], 
              SubscriptBox["j", "w"]},
             {
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "p"]]}], 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]]}]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["j", "q"], 
              SubscriptBox["J", "4"]},
             {
              SubscriptBox["K", "1"], 
              SubscriptBox["j", "w"], 
              SubscriptBox["J", "3"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "q"], 
              SubscriptBox["j", "r"], 
              SubscriptBox["J", "2"]},
             {
              SubscriptBox["j", "t"], 
              SubscriptBox["K", "1"], 
              SubscriptBox["J", "3"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "s"], 
              SubscriptBox["j", "u"], 
              SubscriptBox["J", "2"]},
             {
              SubscriptBox["j", "t"], 
              SubscriptBox["K", "1"], 
              SubscriptBox["J", "1"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "s"], 
              SubscriptBox["j", "v"], 
              SubscriptBox["J", "4"]},
             {
              SubscriptBox["j", "w"], 
              SubscriptBox["K", "1"], 
              SubscriptBox["J", "1"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{
            SubscriptBox["m", 
             SubscriptBox["j", "p"]], "+", 
            SubscriptBox["m", 
             SubscriptBox["j", "w"]], "+", 
            SubscriptBox["j", "p"], "+", 
            SubscriptBox["j", "q"], "+", 
            SubscriptBox["j", "r"], "+", 
            SubscriptBox["j", "t"], "+", 
            SubscriptBox["j", "v"], "+", 
            SubscriptBox["j", "w"], "+", 
            SubscriptBox["m", 
             SubscriptBox["J", "3"]], "+", 
            SubscriptBox["J", "1"], "+", 
            SubscriptBox["J", "3"], "+", 
            SubscriptBox["J", "4"]}]]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "w"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["J", "3"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["K", "1"]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["K", "1"]}], "+", "1"}], ")"}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["j", "w"], 
              SubscriptBox["J", "3"]},
             {
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "p"]]}], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]]}], 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["J", "3"], 
              SubscriptBox["j", "w"]},
             {
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "p"]]}], 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]]}]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["j", "q"], 
              SubscriptBox["J", "4"]},
             {
              SubscriptBox["K", "1"], 
              SubscriptBox["j", "w"], 
              SubscriptBox["J", "3"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "q"], 
              SubscriptBox["j", "r"], 
              SubscriptBox["J", "2"]},
             {
              SubscriptBox["j", "t"], 
              SubscriptBox["K", "1"], 
              SubscriptBox["J", "3"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "s"], 
              SubscriptBox["j", "u"], 
              SubscriptBox["J", "2"]},
             {
              SubscriptBox["j", "t"], 
              SubscriptBox["K", "1"], 
              SubscriptBox["J", "1"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["{",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "s"], 
              SubscriptBox["j", "v"], 
              SubscriptBox["J", "4"]},
             {
              SubscriptBox["j", "w"], 
              SubscriptBox["K", "1"], 
              SubscriptBox["J", "1"]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox["}",
             SpanMaxSize->DirectedInfinity[1]],
            SixJSymbol]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{
            SubscriptBox["m", 
             SubscriptBox["j", "p"]], "+", 
            SubscriptBox["m", 
             SubscriptBox["j", "w"]], "+", 
            SubscriptBox["j", "p"], "+", 
            SubscriptBox["j", "q"], "+", 
            SubscriptBox["j", "r"], "+", 
            SubscriptBox["j", "t"], "+", 
            SubscriptBox["j", "v"], "+", 
            SubscriptBox["j", "w"], "+", 
            SubscriptBox["m", 
             SubscriptBox["J", "3"]], "+", 
            SubscriptBox["J", "1"], "+", 
            SubscriptBox["J", "3"], "+", 
            SubscriptBox["J", "4"]}]]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`j[$CellContext`p] + \
$CellContext`j[$CellContext`q] + $CellContext`j[$CellContext`r] + \
$CellContext`j[$CellContext`t] + $CellContext`j[$CellContext`v] + \
$CellContext`j[$CellContext`w] + $CellContext`J[1] + $CellContext`J[
        3] + $CellContext`J[
        4] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`w] + $CellContext`mJ[3]) (1 + 
      2 $CellContext`J[1]) (1 + 2 $CellContext`J[2]) (1 + 
      2 $CellContext`J[3]) (1 + 2 $CellContext`J[4]) AngularMomentum`sj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`j[$CellContext`q], 
        $CellContext`J[4]}, {
        $CellContext`varK[1], 
        $CellContext`j[$CellContext`w], 
        $CellContext`J[3]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`j[$CellContext`r], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[3]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`u], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v], 
        $CellContext`J[4]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}] (1 + 
      2 $CellContext`varK[1]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[3], 
      $CellContext`varK[1]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`j[$CellContext`p] + \
$CellContext`j[$CellContext`q] + $CellContext`j[$CellContext`r] + \
$CellContext`j[$CellContext`t] + $CellContext`j[$CellContext`v] + \
$CellContext`j[$CellContext`w] + $CellContext`J[1] + $CellContext`J[
        3] + $CellContext`J[
        4] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`w] + $CellContext`mJ[3]) AngularMomentum`sj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`j[$CellContext`q], 
        $CellContext`J[4]}, {
        $CellContext`varK[1], 
        $CellContext`j[$CellContext`w], 
        $CellContext`J[3]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`j[$CellContext`r], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[3]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`u], 
        $CellContext`J[2]}, {
        $CellContext`j[$CellContext`t], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`sj[{
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v], 
        $CellContext`J[4]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`varK[1], 
        $CellContext`J[1]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}] (1 + 
      2 $CellContext`varK[1]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[3], 
      $CellContext`varK[1]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.6805170901595497`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "w"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["J", "3"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["K", "3"]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "1"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "2"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "3"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["J", "4"]}], "+", "1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["K", "3"]}], "+", "1"}], ")"}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["j", "w"], 
              SubscriptBox["J", "3"]},
             {
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "p"]]}], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]]}], 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["J", "3"], 
              SubscriptBox["j", "w"]},
             {
              SubscriptBox["m", 
               SubscriptBox["j", "p"]], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["J", "3"]]}], 
              SubscriptBox["m", 
               SubscriptBox["j", "w"]]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{
            SubscriptBox["m", 
             SubscriptBox["j", "p"]], "+", 
            SubscriptBox["m", 
             SubscriptBox["j", "w"]], "+", 
            SubscriptBox["j", "q"], "+", 
            SubscriptBox["j", "r"], "+", 
            SubscriptBox["j", "t"], "+", 
            SubscriptBox["j", "v"], "+", 
            SubscriptBox["m", 
             SubscriptBox["J", "3"]], "+", 
            SubscriptBox["J", "1"], "+", 
            SubscriptBox["J", "4"]}]], " ", 
          StyleBox[
           RowBox[{"{", GridBox[{
              {
               SubscriptBox["j", "p"], 
               SubscriptBox["J", "3"], 
               SubscriptBox["j", "w"]},
              {
               SubscriptBox["J", "4"], 
               SubscriptBox["j", "s"], 
               SubscriptBox["j", "v"]},
              {
               SubscriptBox["j", "q"], 
               SubscriptBox["K", "3"], 
               SubscriptBox["J", "1"]}
             }], "}"}],
           SpanMaxSize->DirectedInfinity[1]], " ", 
          StyleBox[
           RowBox[{"{", GridBox[{
              {
               SubscriptBox["j", "q"], 
               SubscriptBox["J", "1"], 
               SubscriptBox["K", "3"]},
              {
               SubscriptBox["J", "2"], 
               SubscriptBox["j", "u"], 
               SubscriptBox["j", "s"]},
              {
               SubscriptBox["j", "r"], 
               SubscriptBox["j", "t"], 
               SubscriptBox["J", "3"]}
             }], "}"}],
           SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["m", 
        SubscriptBox["j", "p"]]], 
      RowBox[{
       UnderscriptBox["\[Sum]", 
        SubscriptBox["m", 
         SubscriptBox["j", "w"]]], 
       RowBox[{
        UnderscriptBox["\[Sum]", 
         SubscriptBox["m", 
          SubscriptBox["J", "3"]]], 
        RowBox[{
         UnderscriptBox["\[Sum]", 
          SubscriptBox["K", "3"]], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SubscriptBox["K", "3"]}], "+", "1"}], ")"}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["j", "w"], 
              SubscriptBox["J", "3"]},
             {
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "p"]]}], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["j", "w"]]}], 
              SubscriptBox["m", 
               SubscriptBox["J", "3"]]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          RowBox[{
           TagBox[
            StyleBox["(",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol], "\[MediumSpace]", GridBox[{
             {
              SubscriptBox["j", "p"], 
              SubscriptBox["J", "3"], 
              SubscriptBox["j", "w"]},
             {
              SubscriptBox["m", 
               SubscriptBox["j", "p"]], 
              RowBox[{"-", 
               SubscriptBox["m", 
                SubscriptBox["J", "3"]]}], 
              SubscriptBox["m", 
               SubscriptBox["j", "w"]]}
            }], "\[MediumSpace]", 
           TagBox[
            StyleBox[")",
             SpanMaxSize->DirectedInfinity[1]],
            ThreeJSymbol]}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{
            SubscriptBox["m", 
             SubscriptBox["j", "p"]], "+", 
            SubscriptBox["m", 
             SubscriptBox["j", "w"]], "+", 
            SubscriptBox["j", "q"], "+", 
            SubscriptBox["j", "r"], "+", 
            SubscriptBox["j", "t"], "+", 
            SubscriptBox["j", "v"], "+", 
            SubscriptBox["m", 
             SubscriptBox["J", "3"]], "+", 
            SubscriptBox["J", "1"], "+", 
            SubscriptBox["J", "4"]}]], " ", 
          StyleBox[
           RowBox[{"{", GridBox[{
              {
               SubscriptBox["j", "p"], 
               SubscriptBox["J", "3"], 
               SubscriptBox["j", "w"]},
              {
               SubscriptBox["J", "4"], 
               SubscriptBox["j", "s"], 
               SubscriptBox["j", "v"]},
              {
               SubscriptBox["j", "q"], 
               SubscriptBox["K", "3"], 
               SubscriptBox["J", "1"]}
             }], "}"}],
           SpanMaxSize->DirectedInfinity[1]], " ", 
          StyleBox[
           RowBox[{"{", GridBox[{
              {
               SubscriptBox["j", "q"], 
               SubscriptBox["J", "1"], 
               SubscriptBox["K", "3"]},
              {
               SubscriptBox["J", "2"], 
               SubscriptBox["j", "u"], 
               SubscriptBox["j", "s"]},
              {
               SubscriptBox["j", "r"], 
               SubscriptBox["j", "t"], 
               SubscriptBox["J", "3"]}
             }], "}"}],
           SpanMaxSize->DirectedInfinity[1]]}]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`j[$CellContext`q] + \
$CellContext`j[$CellContext`r] + $CellContext`j[$CellContext`t] + \
$CellContext`j[$CellContext`v] + $CellContext`J[1] + $CellContext`J[
        4] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`w] + $CellContext`mJ[3]) (1 + 
      2 $CellContext`J[1]) (1 + 2 $CellContext`J[2]) (1 + 
      2 $CellContext`J[3]) (1 + 2 $CellContext`J[4]) AngularMomentum`nj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`J[3], 
        $CellContext`j[$CellContext`w]}, {
        $CellContext`J[4], 
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`varK[3], 
        $CellContext`J[1]}] AngularMomentum`nj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`J[1], 
        $CellContext`varK[3]}, {
        $CellContext`J[2], 
        $CellContext`j[$CellContext`u], 
        $CellContext`j[$CellContext`s]}, {
        $CellContext`j[$CellContext`r], 
        $CellContext`j[$CellContext`t], 
        $CellContext`J[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}] (1 + 2 $CellContext`varK[3]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[3], 
      $CellContext`varK[3]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`j[$CellContext`q] + \
$CellContext`j[$CellContext`r] + $CellContext`j[$CellContext`t] + \
$CellContext`j[$CellContext`v] + $CellContext`J[1] + $CellContext`J[
        4] + $CellContext`mj[$CellContext`p] + \
$CellContext`mj[$CellContext`w] + $CellContext`mJ[3]) AngularMomentum`nj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`J[3], 
        $CellContext`j[$CellContext`w]}, {
        $CellContext`J[4], 
        $CellContext`j[$CellContext`s], 
        $CellContext`j[$CellContext`v]}, {
        $CellContext`j[$CellContext`q], 
        $CellContext`varK[3], 
        $CellContext`J[1]}] AngularMomentum`nj[{
        $CellContext`j[$CellContext`q], 
        $CellContext`J[1], 
        $CellContext`varK[3]}, {
        $CellContext`J[2], 
        $CellContext`j[$CellContext`u], 
        $CellContext`j[$CellContext`s]}, {
        $CellContext`j[$CellContext`r], 
        $CellContext`j[$CellContext`t], 
        $CellContext`J[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], -$CellContext`mj[$CellContext`p]}, {
        $CellContext`j[$CellContext`w], -$CellContext`mj[$CellContext`w]}, {
        $CellContext`J[3], 
        $CellContext`mJ[3]}] AngularMomentum`tj[{
        $CellContext`j[$CellContext`p], 
        $CellContext`mj[$CellContext`p]}, {
        $CellContext`J[3], -$CellContext`mJ[3]}, {
        $CellContext`j[$CellContext`w], 
        $CellContext`mj[$CellContext`w]}] (1 + 2 $CellContext`varK[3]), 
     Utility`set[
      $CellContext`mj[$CellContext`p], 
      $CellContext`mj[$CellContext`w], 
      $CellContext`mJ[3], 
      $CellContext`varK[3]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.680517090682951*^9}]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.680517175129325*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "5", "]"}], " ", "=", " ", 
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"tj", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "p", "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mj", "[", "p", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "w", "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mj", "[", "w", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "3", "]"}], ",", 
          RowBox[{"mJ", "[", "3", "]"}]}], "}"}]}], "]"}], 
      "\[IndentingNewLine]", 
      RowBox[{"tj", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "p", "]"}], ",", 
          RowBox[{"mj", "[", "p", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"J", "[", "3", "]"}], ",", 
          RowBox[{"-", 
           RowBox[{"mJ", "[", "3", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"j", "[", "w", "]"}], ",", 
          RowBox[{"mj", "[", "w", "]"}]}], "}"}]}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"mj", "[", "p", "]"}], "+", 
         RowBox[{"mj", "[", "w", "]"}], "+", 
         RowBox[{"mJ", "[", "3", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", 
     ",", "\[IndentingNewLine]", 
     RowBox[{"mj", "[", "p", "]"}], ",", 
     RowBox[{"mj", "[", "w", "]"}], ",", 
     RowBox[{"mJ", "[", "3", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testExpr", "[", "5", "]"}], "//", 
  "consistencyCheck"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"testExpr", "[", "5", "]"}], "//", 
  "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"simplifyAMSum", "[", 
   RowBox[{"testExpr", "[", "5", "]"}], "]"}], " ", "//", " ", 
  "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.680517243379004*^9, 3.6805173160172586`*^9}, {
  3.680517355681777*^9, 3.680517360177808*^9}, {3.680517418122684*^9, 
  3.68051744840082*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.6805173163841457`*^9, 3.680517360536848*^9, 
  3.680517448733922*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["m", 
     SubscriptBox["j", "p"]]], 
   RowBox[{
    UnderscriptBox["\[Sum]", 
     SubscriptBox["m", 
      SubscriptBox["j", "w"]]], 
    RowBox[{
     UnderscriptBox["\[Sum]", 
      SubscriptBox["m", 
       SubscriptBox["J", "3"]]], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        SubscriptBox["m", 
         SubscriptBox["j", "p"]], "+", 
        SubscriptBox["m", 
         SubscriptBox["j", "w"]], "+", 
        SubscriptBox["m", 
         SubscriptBox["J", "3"]]}]], " ", 
      RowBox[{
       TagBox[
        StyleBox["(",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol], "\[MediumSpace]", GridBox[{
         {
          SubscriptBox["j", "p"], 
          SubscriptBox["j", "w"], 
          SubscriptBox["J", "3"]},
         {
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["j", "p"]]}], 
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["j", "w"]]}], 
          SubscriptBox["m", 
           SubscriptBox["J", "3"]]}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox[")",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol]}], " ", 
      RowBox[{
       TagBox[
        StyleBox["(",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol], "\[MediumSpace]", GridBox[{
         {
          SubscriptBox["j", "p"], 
          SubscriptBox["J", "3"], 
          SubscriptBox["j", "w"]},
         {
          SubscriptBox["m", 
           SubscriptBox["j", "p"]], 
          RowBox[{"-", 
           SubscriptBox["m", 
            SubscriptBox["J", "3"]]}], 
          SubscriptBox["m", 
           SubscriptBox["j", "w"]]}
        }], "\[MediumSpace]", 
       TagBox[
        StyleBox[")",
         SpanMaxSize->DirectedInfinity[1]],
        ThreeJSymbol]}]}]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.6805173163841457`*^9, 3.680517360536848*^9, 
  3.680517448737794*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["m", 
     SubscriptBox["j", "p"]]], 
   FractionBox[
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      SubscriptBox["j", "p"], 
      SubscriptBox["j", "w"], 
      SubscriptBox["J", "3"], "}"}],
     SpanMaxSize->DirectedInfinity[1]], 
    RowBox[{
     RowBox[{"2", " ", 
      SubscriptBox["j", "p"]}], "+", "1"}]]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.6805173163841457`*^9, 3.680517360536848*^9, 
  3.68051744886532*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6805171325127296`*^9, 3.680517135208171*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Misc", "Section",
 CellChangeTimes->{{3.6255583119369793`*^9, 3.625558312272605*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"declareQNInteger", "@", 
   RowBox[{"{", 
    RowBox[{
    "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "g", ",", "h",
      ",", "x", ",", "q", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", 
     ",", "\[Delta]", ",", "\[Epsilon]", ",", "\[Phi]", ",", "\[Kappa]", ",", 
     "\[Xi]"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.625554340538823*^9, 3.625554434368792*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"i", "=", "0"}], ";", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"expr", "[", "i", "]"}], "=", 
     RowBox[{"sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "x"}], "+", "1"}], ")"}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"x", "-", "\[Xi]"}], ")"}]}], 
        RowBox[{"tj", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "\[Xi]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"b", ",", 
            RowBox[{"-", "\[Beta]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"d", ",", 
            RowBox[{"-", "\[Delta]"}]}], "}"}]}], "]"}], 
        RowBox[{"tj", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"a", ",", "\[Alpha]"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"c", ",", "\[Gamma]"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"-", "\[Xi]"}]}], "}"}]}], "]"}], 
        RowBox[{"sj", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"b", ",", "a", ",", "q"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"c", ",", "d", ",", "x"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"set", "[", 
        RowBox[{"x", ",", "\[Xi]"}], "]"}]}], "]"}]}], ")"}], "//", 
   "TraditionalForm"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", "1"}], ";", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"expr", "[", "i", "]"}], "=", 
     RowBox[{"simplifyAMSum", "[", 
      RowBox[{
       RowBox[{"expr", "[", 
        RowBox[{"i", "-", "1"}], "]"}], ",", 
       RowBox[{"Print", "\[Rule]", "True"}], ",", 
       RowBox[{"OnlySums", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"x", ",", "\[Xi]"}], "}"}]}]}], "]"}]}], ")"}], "//", 
   "TraditionalForm"}]}]}], "Input",
 CellChangeTimes->{{3.625554432970023*^9, 3.625554537187481*^9}, {
  3.625558509754088*^9, 3.625558528344486*^9}, {3.625558591275116*^9, 
  3.625558616457139*^9}, {3.625559784012917*^9, 3.625559819225245*^9}, {
  3.6255598851809597`*^9, 3.625559896012375*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", "x"], 
   RowBox[{
    UnderscriptBox["\[Sum]", "\[Xi]"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"x", "-", "\[Xi]"}]], " ", 
     RowBox[{
      TagBox[
       StyleBox["(",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol], "\[MediumSpace]", GridBox[{
        {"a", "c", "x"},
        {"\[Alpha]", "\[Gamma]", 
         RowBox[{"-", "\[Xi]"}]}
       }], "\[MediumSpace]", 
      TagBox[
       StyleBox[")",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol]}], " ", 
     RowBox[{
      TagBox[
       StyleBox["(",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol], "\[MediumSpace]", GridBox[{
        {"x", "b", "d"},
        {
         RowBox[{"-", "\[Xi]"}], 
         RowBox[{"-", "\[Beta]"}], 
         RowBox[{"-", "\[Delta]"}]}
       }], "\[MediumSpace]", 
      TagBox[
       StyleBox[")",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol]}], " ", 
     RowBox[{
      TagBox[
       StyleBox["{",
        SpanMaxSize->DirectedInfinity[1]],
       SixJSymbol], "\[MediumSpace]", GridBox[{
        {"b", "a", "q"},
        {"c", "d", "x"}
       }], "\[MediumSpace]", 
      TagBox[
       StyleBox["}",
        SpanMaxSize->DirectedInfinity[1]],
       SixJSymbol]}]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.625554539168745*^9, 3.625555135300457*^9, 3.625555256282077*^9, 
   3.625555383794386*^9, 3.625555528388199*^9, 3.62555821542737*^9, {
   3.625558581558427*^9, 3.625558617259112*^9}, {3.6255597936301622`*^9, 
   3.625559819584434*^9}, {3.625559879405139*^9, 3.625559896296185*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", "x"], 
      RowBox[{
       UnderscriptBox["\[Sum]", "\[Xi]"], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"\[Xi]", "+", "x"}]], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "c", "x"},
           {"\[Alpha]", "\[Gamma]", 
            RowBox[{"-", "\[Xi]"}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"x", "b", "d"},
           {
            RowBox[{"-", "\[Xi]"}], 
            RowBox[{"-", "\[Beta]"}], 
            RowBox[{"-", "\[Delta]"}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["{",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "b", "q"},
           {"d", "c", "x"}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox["}",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", "x"], 
      RowBox[{
       UnderscriptBox["\[Sum]", "\[Xi]"], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"\[Xi]", "+", "x"}]], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "c", "x"},
           {"\[Alpha]", "\[Gamma]", 
            RowBox[{"-", "\[Xi]"}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"x", "b", "d"},
           {
            RowBox[{"-", "\[Xi]"}], 
            RowBox[{"-", "\[Beta]"}], 
            RowBox[{"-", "\[Delta]"}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["{",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "b", "q"},
           {"d", "c", "x"}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox["}",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`x + $CellContext`\[Xi]) (1 + 
      2 $CellContext`x) 
     AngularMomentum`sj[{$CellContext`a, $CellContext`b, $CellContext`q}, \
{$CellContext`d, $CellContext`c, $CellContext`x}] 
     AngularMomentum`tj[{$CellContext`a, $CellContext`\[Alpha]}, \
{$CellContext`c, $CellContext`\[Gamma]}, {$CellContext`x, \
-$CellContext`\[Xi]}] 
     AngularMomentum`tj[{$CellContext`x, -$CellContext`\[Xi]}, \
{$CellContext`b, -$CellContext`\[Beta]}, {$CellContext`d, -$CellContext`\
\[Delta]}], 
     Utility`set[$CellContext`x, $CellContext`\[Xi]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`x + $CellContext`\[Xi]) (1 + 
      2 $CellContext`x) 
     AngularMomentum`sj[{$CellContext`a, $CellContext`b, $CellContext`q}, \
{$CellContext`d, $CellContext`c, $CellContext`x}] 
     AngularMomentum`tj[{$CellContext`a, $CellContext`\[Alpha]}, \
{$CellContext`c, $CellContext`\[Gamma]}, {$CellContext`x, \
-$CellContext`\[Xi]}] 
     AngularMomentum`tj[{$CellContext`x, -$CellContext`\[Xi]}, \
{$CellContext`b, -$CellContext`\[Beta]}, {$CellContext`d, -$CellContext`\
\[Delta]}], 
     Utility`set[$CellContext`x, $CellContext`\[Xi]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6255597936332417`*^9, 3.625559819607628*^9}, {
  3.625559879430296*^9, 3.625559896317733*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", 
       SubscriptBox["K", "3"]], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a", "+", "b", "+", "c", "+", "d", "+", 
         SubscriptBox["K", "3"], "+", "q"}]], " ", 
       RowBox[{
        TagBox[
         StyleBox["(",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol], "\[MediumSpace]", GridBox[{
          {"b", "a", "q"},
          {"\[Beta]", "\[Alpha]", 
           RowBox[{"-", 
            SubscriptBox["K", "3"]}]}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox[")",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol]}], " ", 
       RowBox[{
        TagBox[
         StyleBox["(",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol], "\[MediumSpace]", GridBox[{
          {"q", "c", "d"},
          {
           SubscriptBox["K", "3"], "\[Gamma]", "\[Delta]"}
         }], "\[MediumSpace]", 
        TagBox[
         StyleBox[")",
          SpanMaxSize->DirectedInfinity[1]],
         ThreeJSymbol]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox["1",
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^($CellContext`a + $CellContext`b + $CellContext`c + \
$CellContext`d + $CellContext`q + $CellContext`varK[3]) 
     AngularMomentum`tj[{$CellContext`b, $CellContext`\[Beta]}, \
{$CellContext`a, $CellContext`\[Alpha]}, {$CellContext`q, -$CellContext`varK[
         3]}] AngularMomentum`tj[{$CellContext`q, 
        $CellContext`varK[
        3]}, {$CellContext`c, $CellContext`\[Gamma]}, {$CellContext`d, \
$CellContext`\[Delta]}], 
     Utility`set[
      $CellContext`varK[3]]]], "working on:", 
   TraditionalForm[1]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.6255597936332417`*^9, 3.625559819607628*^9}, {
  3.625559879430296*^9, 3.625559896348968*^9}}]
}, Open  ]],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", 
    SubscriptBox["K", "3"]], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"a", "+", "b", "+", "c", "+", "d", "+", 
      SubscriptBox["K", "3"], "+", "q"}]], " ", 
    RowBox[{
     TagBox[
      StyleBox["(",
       SpanMaxSize->DirectedInfinity[1]],
      ThreeJSymbol], "\[MediumSpace]", GridBox[{
       {"b", "a", "q"},
       {"\[Beta]", "\[Alpha]", 
        RowBox[{"-", 
         SubscriptBox["K", "3"]}]}
      }], "\[MediumSpace]", 
     TagBox[
      StyleBox[")",
       SpanMaxSize->DirectedInfinity[1]],
      ThreeJSymbol]}], " ", 
    RowBox[{
     TagBox[
      StyleBox["(",
       SpanMaxSize->DirectedInfinity[1]],
      ThreeJSymbol], "\[MediumSpace]", GridBox[{
       {"q", "c", "d"},
       {
        SubscriptBox["K", "3"], "\[Gamma]", "\[Delta]"}
      }], "\[MediumSpace]", 
     TagBox[
      StyleBox[")",
       SpanMaxSize->DirectedInfinity[1]],
      ThreeJSymbol]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.625554539168745*^9, 3.625555135300457*^9, 3.625555256282077*^9, 
   3.625555383794386*^9, 3.625555528388199*^9, 3.62555821542737*^9, {
   3.625558581558427*^9, 3.625558617259112*^9}, {3.6255597936301622`*^9, 
   3.625559819584434*^9}, {3.625559879405139*^9, 3.625559896350432*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.625554583813428*^9, 3.625554605636736*^9}, {
   3.625555122886077*^9, 3.625555151953395*^9}, {3.625555271314686*^9, 
   3.625555271794396*^9}, 3.6255597878171453`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", "x"], 
      RowBox[{
       UnderscriptBox["\[Sum]", "\[Xi]"], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "\[Xi]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "c", "x"},
           {"\[Alpha]", "\[Gamma]", 
            RowBox[{"-", "\[Xi]"}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"x", "b", "d"},
           {"\[Xi]", "\[Beta]", "\[Delta]"}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["{",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "b", "q"},
           {"d", "c", "x"}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox["}",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True], "\[InvisibleSpace]", "\<\"working on:\"\>", 
   "\[InvisibleSpace]", 
   TagBox[
    FormBox[
     RowBox[{
      UnderscriptBox["\[Sum]", "x"], 
      RowBox[{
       UnderscriptBox["\[Sum]", "\[Xi]"], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "\[Xi]"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "c", "x"},
           {"\[Alpha]", "\[Gamma]", 
            RowBox[{"-", "\[Xi]"}]}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["(",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol], "\[MediumSpace]", GridBox[{
           {"x", "b", "d"},
           {"\[Xi]", "\[Beta]", "\[Delta]"}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox[")",
           SpanMaxSize->DirectedInfinity[1]],
          ThreeJSymbol]}], " ", 
        RowBox[{
         TagBox[
          StyleBox["{",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol], "\[MediumSpace]", GridBox[{
           {"a", "b", "q"},
           {"d", "c", "x"}
          }], "\[MediumSpace]", 
         TagBox[
          StyleBox["}",
           SpanMaxSize->DirectedInfinity[1]],
          SixJSymbol]}]}]}]}],
     TraditionalForm],
    TraditionalForm,
    Editable->True]}],
  SequenceForm[
   TraditionalForm[
    Utility`sum[(-1)^$CellContext`\[Xi] (1 + 2 $CellContext`x) 
     AngularMomentum`sj[{$CellContext`a, $CellContext`b, $CellContext`q}, \
{$CellContext`d, $CellContext`c, $CellContext`x}] 
     AngularMomentum`tj[{$CellContext`a, $CellContext`\[Alpha]}, \
{$CellContext`c, $CellContext`\[Gamma]}, {$CellContext`x, \
-$CellContext`\[Xi]}] 
     AngularMomentum`tj[{$CellContext`x, $CellContext`\[Xi]}, \
{$CellContext`b, $CellContext`\[Beta]}, {$CellContext`d, \
$CellContext`\[Delta]}], 
     Utility`set[$CellContext`x, $CellContext`\[Xi]]]], "working on:", 
   TraditionalForm[
    Utility`sum[(-1)^$CellContext`\[Xi] (1 + 2 $CellContext`x) 
     AngularMomentum`sj[{$CellContext`a, $CellContext`b, $CellContext`q}, \
{$CellContext`d, $CellContext`c, $CellContext`x}] 
     AngularMomentum`tj[{$CellContext`a, $CellContext`\[Alpha]}, \
{$CellContext`c, $CellContext`\[Gamma]}, {$CellContext`x, \
-$CellContext`\[Xi]}] 
     AngularMomentum`tj[{$CellContext`x, $CellContext`\[Xi]}, \
{$CellContext`b, $CellContext`\[Beta]}, {$CellContext`d, \
$CellContext`\[Delta]}], 
     Utility`set[$CellContext`x, $CellContext`\[Xi]]]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.625554607610519*^9, {3.625555132016621*^9, 3.6255551531337423`*^9}, 
   3.625555257491952*^9, 3.625555384884199*^9, 3.625555529420553*^9, 
   3.6255582177849483`*^9, {3.6255585830649977`*^9, 3.625558618258356*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   UnderscriptBox["\[Sum]", "x"], 
   RowBox[{
    UnderscriptBox["\[Sum]", "\[Xi]"], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], "\[Xi]"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "x"}], "+", "1"}], ")"}], " ", 
     RowBox[{
      TagBox[
       StyleBox["(",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol], "\[MediumSpace]", GridBox[{
        {"a", "c", "x"},
        {"\[Alpha]", "\[Gamma]", 
         RowBox[{"-", "\[Xi]"}]}
       }], "\[MediumSpace]", 
      TagBox[
       StyleBox[")",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol]}], " ", 
     RowBox[{
      TagBox[
       StyleBox["(",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol], "\[MediumSpace]", GridBox[{
        {"x", "b", "d"},
        {"\[Xi]", "\[Beta]", "\[Delta]"}
       }], "\[MediumSpace]", 
      TagBox[
       StyleBox[")",
        SpanMaxSize->DirectedInfinity[1]],
       ThreeJSymbol]}], " ", 
     RowBox[{
      TagBox[
       StyleBox["{",
        SpanMaxSize->DirectedInfinity[1]],
       SixJSymbol], "\[MediumSpace]", GridBox[{
        {"a", "b", "q"},
        {"d", "c", "x"}
       }], "\[MediumSpace]", 
      TagBox[
       StyleBox["}",
        SpanMaxSize->DirectedInfinity[1]],
       SixJSymbol]}]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.625554607654805*^9, {3.625555132220661*^9, 3.625555153187496*^9}, 
   3.625555257553834*^9, 3.625555384951455*^9, 3.625555529490385*^9, 
   3.6255582178332357`*^9, {3.6255585830828857`*^9, 3.625558618278921*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Additional Remarks", "Section",
 CellChangeTimes->{{3.606123416647088*^9, 3.606123443510784*^9}}],

Cell["\<\
It is possible to extract all the conditions from your expression. This is \
used internally but might be helpful to do explicitely, for instance when \
implementing a formula:\
\>", "Text",
 CellChangeTimes->{{3.60612345587886*^9, 3.606123519702414*^9}, {
  3.606125592536127*^9, 3.606125593992619*^9}}],

Cell["All conditions before simplifying the expression:", "Text",
 CellChangeTimes->{{3.6061235426784563`*^9, 3.6061235514791307`*^9}, 
   3.606123951143304*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"testExpr", "[", "1", "]"}], "//", "extractConditions"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.606123521252499*^9, 3.606123535805262*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      FractionBox["1", "2"], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}]], "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    TemplateBox[{RowBox[{
        RowBox[{
          SubscriptBox["m", 
           SubscriptBox["t", "a"]], "+", 
          SubscriptBox["m", 
           SubscriptBox["t", "b"]], "-", 
          SubscriptBox["m", 
           SubscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b"}]]]}], ",", "0"}]},
     "KroneckerDeltaSeq"], ",", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      FractionBox["1", "2"], 
      SubsuperscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    TemplateBox[{RowBox[{
        RowBox[{
          SubsuperscriptBox["m", 
           SubscriptBox["t", "a"], "\[Prime]"], "+", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", "b"], "\[Prime]"], "-", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"]}], ",", 
        "0"}]},
     "KroneckerDeltaSeq"], ",", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}]], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
      "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    TemplateBox[{RowBox[{
        RowBox[{
          SubscriptBox["m", 
           SubscriptBox["t", "c"]], "+", 
          SubscriptBox["m", 
           SubscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b"}]]], "-", 
          SubscriptBox["m", 
           SubscriptBox["t", 
            
            RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", 
              "c"}]]]}], ",", "0"}]},
     "KroneckerDeltaSeq"], ",", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      SubsuperscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}], "\[Prime]"], 
      SubsuperscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}], 
       "\[Prime]"], "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    TemplateBox[{RowBox[{
        RowBox[{
          SubsuperscriptBox["m", 
           SubscriptBox["t", "c"], "\[Prime]"], "+", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", 
            RowBox[{"a", "\[InvisibleComma]", "b"}]], "\[Prime]"], "-", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", 
            
            RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", 
              "c"}]], "\[Prime]"]}], ",", "0"}]},
     "KroneckerDeltaSeq"], ",", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      FractionBox["1", "2"], "1", "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    TemplateBox[{RowBox[{
        RowBox[{"\[Mu]", "+", 
          SubscriptBox["m", 
           SubscriptBox["t", "b"]], "-", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", "b"], "\[Prime]"]}], ",", "0"}]},
     "KroneckerDeltaSeq"], ",", 
    TemplateBox[{RowBox[{
        RowBox[{"\[Mu]", "-", 
          SubscriptBox["m", 
           SubscriptBox["t", "a"]], "+", 
          SubsuperscriptBox["m", 
           SubscriptBox["t", "a"], "\[Prime]"]}], ",", "0"}]},
     "KroneckerDeltaSeq"]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.606123995964735*^9, 3.6061254336409397`*^9, 
  3.606125516769183*^9}]
}, Open  ]],

Cell["\<\
After simplifying all conditions involving sums that have been evaluated do \
not exist anymore:\
\>", "Text",
 CellChangeTimes->{{3.6061235426784563`*^9, 3.6061235514791307`*^9}, {
  3.606123951143304*^9, 3.606123994583098*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"result", "//", "extractConditions"}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.606123521252499*^9, 3.606123535805262*^9}, {
  3.606123999146945*^9, 3.606123999801433*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}]], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b", "\[InvisibleComma]", "c"}]], 
      "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      FractionBox["1", "2"], "1", "}"}],
     SpanMaxSize->DirectedInfinity[1]], ",", 
    StyleBox[
     RowBox[{"\[EmptyUpTriangle]", "{", 
      FractionBox["1", "2"], 
      FractionBox["1", "2"], 
      SubscriptBox["t", 
       RowBox[{"a", "\[InvisibleComma]", "b"}]], "}"}],
     SpanMaxSize->DirectedInfinity[1]]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.6061240004545317`*^9, 3.6061254356386757`*^9, 
  3.606125518566761*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Behind the Scenes", "Section",
 CellChangeTimes->{{3.60612684215379*^9, 3.606126852984652*^9}}],

Cell["\<\
This section aims at explaining the algorithm that makes the simplification \
process possible.
If you just want to use the simplification it is not necessary to read it.\
\>", "Text",
 CellChangeTimes->{{3.606126859977127*^9, 3.6061269230015287`*^9}}],

Cell["\<\
For accessing the internal functions we add the AngularMomentum`Private` \
context:\
\>", "Text",
 CellChangeTimes->{{3.6062083523506203`*^9, 3.60620835727844*^9}, {
  3.606210308369211*^9, 3.60621033201711*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$ContextPath", "=", 
  RowBox[{"DeleteDuplicates", "@", 
   RowBox[{"Append", "[", 
    RowBox[{"$ContextPath", ",", "\"\<AngularMomentum`Private`\>\""}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.606208309723764*^9, 3.606208340545787*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"AngularMomentum`\"\>", ",", "\<\"Utility`\"\>", 
   ",", "\<\"PacletManager`\"\>", ",", "\<\"QuantityUnits`\"\>", 
   ",", "\<\"WebServices`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>", ",", "\<\"AngularMomentum`Private`\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.606210334009708*^9, 3.606216073304543*^9}]
}, Open  ]],

Cell["\<\
In general terms, the algorithm can be describes in the following way:

One can enter replacement rules, as they are found in Varshalovich or similar \
collections. However, these replacement rules usually do not match an \
expression, as 3j, 6j and 9j symbols can be rotated and transformed in \
different ways changing factors of the expression by doing so. Therefore the \
simplification algorithm transforms the input expression and the replacement \
rules in such a way that all possible matches are found, then applies the \
transformed replacement rules to the transformed expression and transforms \
the result back to a more traditional / readable form.\
\>", "Text",
 CellChangeTimes->{{3.606210370673461*^9, 3.606210585729432*^9}, {
  3.6062106204974318`*^9, 3.6062106569619513`*^9}, {3.606210766291171*^9, 
  3.606210770931465*^9}}],

Cell["\<\
In the following sections these transformations are discussed\
\>", "Text",
 CellChangeTimes->{{3.606210785345639*^9, 3.606210806610094*^9}}],

Cell[CellGroupData[{

Cell["(-1)^(...) Factors", "Subsection",
 CellChangeTimes->{{3.606210892738276*^9, 3.606210901873765*^9}}],

Cell["\<\
To simplify the factors these are transformed to the following representation:\
\>", "Text",
 CellChangeTimes->{{3.606210910258424*^9, 3.606210913074173*^9}, {
   3.606215955322722*^9, 3.606215978794128*^9}, {3.606216064106791*^9, 
   3.606216086202914*^9}, 3.606216123579133*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"fac1", "+", 
     RowBox[{"2", "fac2"}], "+", 
     RowBox[{"3", "fac3"}], "-", "fac4"}], ")"}]}], "//.", 
  "simplifyFactorRules"}]], "Input",
 CellChangeTimes->{{3.6062160878672953`*^9, 3.6062161270480003`*^9}, {
  3.6062161663770733`*^9, 3.60621616724024*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"mX", "[", "fac1", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"mX", "[", "fac2", "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"mX", "[", "fac3", "]"}], "3"]}], 
  RowBox[{"mX", "[", "fac4", "]"}]]], "Output",
 CellChangeTimes->{{3.6062161205752287`*^9, 3.606216127657323*^9}, 
   3.606216167880628*^9}]
}, Open  ]],

Cell["\<\
If we tell declare these factors to be integer or half-integer quantum \
numbers, the simplification will be more effective:\
\>", "Text",
 CellChangeTimes->{{3.6062161321552477`*^9, 3.6062161737722807`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"declareQNInteger", "[", 
   RowBox[{"{", 
    RowBox[{"fac2", ",", "fac4"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"declareQNHalfInteger", "[", 
   RowBox[{"{", "fac3", "}"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.60621617611125*^9, 3.606216205825111*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"fac1", "+", 
     RowBox[{"2", "fac2"}], "+", 
     RowBox[{"3", "fac3"}], "-", "fac4"}], ")"}]}], "//.", 
  "simplifyFactorRules"}]], "Input",
 CellChangeTimes->{{3.606216208588477*^9, 3.606216208589305*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"mX", "[", "fac1", "]"}]}], " ", 
  RowBox[{"mX", "[", "fac3", "]"}], " ", 
  RowBox[{"mX", "[", "fac4", "]"}]}]], "Output",
 CellChangeTimes->{3.6062162110491657`*^9}]
}, Open  ]],

Cell["\<\
This rule is applied to expressions and replacement rules. As one does not \
know wether some symbol is an integer or half-integer in a replacement rule, \
it is important to enter the replacement rule with positive factors without \
any numbers in front of it, e.g.\
\>", "Text",
 CellChangeTimes->{{3.606216243772127*^9, 3.606216332154696*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"a_", "+", "b_", "+", "c_"}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6062163447980127`*^9, 3.606216353502384*^9}, 
   3.606216403822413*^9}],

Cell["\<\
is ok, while the following expressions should not be entered to a replacement \
rule:\
\>", "Text",
 CellChangeTimes->{{3.6062163336584873`*^9, 3.606216373066506*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", "a_"}], " ", "+", "b_"}], ")"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"-", "c_"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{"a_", "+", "a_"}], ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.606216374769547*^9, 3.606216414542644*^9}}],

Cell["\<\
Factors in replacement rules will automatically be moved to the right-hand \
side, if they are independent of the summation variables. This is done using \
\[OpenCurlyDoubleQuote]normalizeSumRule\[CloseCurlyDoubleQuote]:\
\>", "Text",
 CellChangeTimes->{{3.6062164172585087`*^9, 3.606216475979117*^9}, 
   3.606216634332305*^9, {3.615889589548843*^9, 3.6158895918688383`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"normalizeSumRule", "[", 
  RowBox[{
   RowBox[{"sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"mX", "[", "sa_", "]"}], 
      RowBox[{"mX", "[", "sb_", "]"}], 
      RowBox[{"mX", "[", "sc_", "]"}], 
      RowBox[{"sj", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"sa_", ",", "sb_", ",", "sc_"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"sd_", ",", "se_", ",", "sf_"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"set", "[", 
      RowBox[{"sb_", ",", "sc_", ",", "se_", ",", "sf_", ",", "su___"}], 
      "]"}]}], "]"}], "\[RuleDelayed]", " ", 
   RowBox[{"sum", "[", 
    RowBox[{"42", ",", 
     RowBox[{"set", "[", "su", "]"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.606216477423751*^9, 3.606216628948866*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"mX", "[", "sb_", "]"}], " ", 
     RowBox[{"mX", "[", "sc_", "]"}], " ", 
     RowBox[{"sj", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"sa_", ",", "sb_", ",", "sc_"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"sd_", ",", "se_", ",", "sf_"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"set", "[", 
     RowBox[{"sb_", ",", "sc_", ",", "se_", ",", "sf_", ",", "su___"}], 
     "]"}]}], "]"}], "\[RuleDelayed]", 
  RowBox[{"sum", "[", 
   RowBox[{
    FractionBox["42", 
     RowBox[{"mX", "[", "sa", "]"}]], ",", 
    RowBox[{"set", "[", "su", "]"}]}], "]"}]}]], "Output",
 CellChangeTimes->{3.6062165882698593`*^9, 3.606216629537057*^9}]
}, Open  ]],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"],

Cell["", "Text"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1050, 1660},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"10.0 for Linux x86 (64-bit) (June 27, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 96, 1, 65, "Section"],
Cell[678, 25, 138, 1, 33, "Text"],
Cell[819, 28, 447, 11, 55, "Input"],
Cell[1269, 41, 355, 6, 55, "Text"],
Cell[1627, 49, 212, 4, 55, "Text"],
Cell[1842, 55, 4030, 117, 165, "Input"],
Cell[5875, 174, 226, 5, 33, "Text"],
Cell[CellGroupData[{
Cell[6126, 183, 164, 3, 32, "Input"],
Cell[6293, 188, 4729, 136, 127, "Output"]
}, Open  ]],
Cell[11037, 327, 315, 7, 55, "Text"],
Cell[11355, 336, 153, 3, 32, "Input"],
Cell[11511, 341, 190, 4, 33, "Text"],
Cell[CellGroupData[{
Cell[11726, 349, 125, 2, 32, "Input"],
Cell[11854, 353, 1600, 47, 78, "Print"]
}, Open  ]],
Cell[13469, 403, 107, 1, 33, "Text"],
Cell[CellGroupData[{
Cell[13601, 408, 165, 3, 32, "Input"],
Cell[13769, 413, 6099, 170, 138, "Output"]
}, Open  ]],
Cell[19883, 586, 458, 8, 55, "Text"],
Cell[CellGroupData[{
Cell[20366, 598, 166, 3, 32, "Input"],
Cell[20535, 603, 661, 12, 41, "Message"],
Cell[21199, 617, 649, 12, 41, "Message"],
Cell[21851, 631, 647, 12, 41, "Message"],
Cell[22501, 645, 578, 11, 23, "Message"],
Cell[23082, 658, 564, 11, 50, "Message"],
Cell[23649, 671, 860, 15, 30, "Message"],
Cell[24512, 688, 578, 12, 50, "Message"],
Cell[25093, 702, 579, 11, 23, "Message"],
Cell[25675, 715, 609, 12, 69, "Message"],
Cell[26287, 729, 611, 12, 69, "Message"],
Cell[26901, 743, 657, 12, 45, "Message"],
Cell[27561, 757, 578, 11, 23, "Message"]
}, Open  ]],
Cell[28154, 771, 647, 13, 77, "Text"],
Cell[28804, 786, 1170, 32, 77, "Input"],
Cell[29977, 820, 158, 2, 33, "Text"],
Cell[CellGroupData[{
Cell[30160, 826, 163, 3, 32, "Input"],
Cell[30326, 831, 789, 14, 31, "Message"],
Cell[31118, 847, 764, 14, 30, "Message"],
Cell[31885, 863, 588, 10, 41, "Message"]
}, Open  ]],
Cell[32488, 876, 531, 9, 77, "Text"],
Cell[CellGroupData[{
Cell[33044, 889, 138, 2, 32, "Input"],
Cell[33185, 893, 346, 7, 23, "Message"],
Cell[33534, 902, 122, 2, 32, "Output"]
}, Open  ]],
Cell[33671, 907, 324, 6, 55, "Text"],
Cell[CellGroupData[{
Cell[34020, 917, 208, 4, 32, "Input"],
Cell[34231, 923, 175, 3, 32, "Output"]
}, Open  ]],
Cell[34421, 929, 217, 4, 33, "Text"],
Cell[34641, 935, 100, 2, 32, "Input"],
Cell[34744, 939, 575, 11, 77, "Text"],
Cell[CellGroupData[{
Cell[35344, 954, 389, 9, 32, "Input"],
Cell[CellGroupData[{
Cell[35758, 967, 8944, 240, 113, "Print"],
Cell[44705, 1209, 7427, 210, 115, "Print"],
Cell[52135, 1421, 4206, 127, 60, "Print"],
Cell[56344, 1550, 2169, 65, 55, "Print"]
}, Open  ]],
Cell[58528, 1618, 1498, 46, 84, "Output"]
}, Open  ]],
Cell[60041, 1667, 156, 3, 33, "Text"],
Cell[CellGroupData[{
Cell[60222, 1674, 267, 5, 32, "Input"],
Cell[60492, 1681, 2059, 61, 74, "Output"]
}, Open  ]],
Cell[62566, 1745, 1014, 15, 187, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63617, 1765, 156, 2, 65, "Section"],
Cell[63776, 1769, 3540, 103, 165, "Input"],
Cell[CellGroupData[{
Cell[67341, 1876, 165, 3, 32, "Input"],
Cell[67509, 1881, 3489, 104, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71035, 1990, 330, 10, 55, "Input"],
Cell[CellGroupData[{
Cell[71390, 2004, 12956, 354, 156, "Print"],
Cell[84349, 2360, 9249, 256, 116, "Print"],
Cell[93601, 2618, 4154, 120, 56, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97804, 2744, 204, 5, 55, "Input"],
Cell[98011, 2751, 1570, 50, 52, "Output"]
}, Open  ]],
Cell[99596, 2804, 6446, 179, 297, "Input"],
Cell[CellGroupData[{
Cell[106067, 2987, 169, 3, 32, "Input"],
Cell[106239, 2992, 9522, 232, 160, "Output"]
}, Open  ]],
Cell[115776, 3227, 1678, 44, 99, "Input"],
Cell[117457, 3273, 168, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[117650, 3280, 338, 9, 32, "Input"],
Cell[117991, 3291, 9729, 252, 138, "Print"],
Cell[127723, 3545, 77, 1, 32, "Output"]
}, Open  ]],
Cell[127815, 3549, 6165, 172, 341, "Input"],
Cell[CellGroupData[{
Cell[134005, 3725, 310, 8, 32, "Input"],
Cell[CellGroupData[{
Cell[134340, 3737, 9190, 247, 138, "Print"],
Cell[143533, 3986, 6119, 174, 98, "Print"],
Cell[149655, 4162, 2915, 82, 53, "Print"]
}, Open  ]]
}, Open  ]],
Cell[152597, 4248, 1441, 38, 99, "Input"],
Cell[CellGroupData[{
Cell[154063, 4290, 4983, 144, 275, "Input"],
Cell[159049, 4436, 125, 2, 32, "Output"],
Cell[159177, 4440, 6906, 197, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166120, 4642, 310, 8, 32, "Input"],
Cell[CellGroupData[{
Cell[166455, 4654, 23222, 593, 211, "Print"],
Cell[189680, 5249, 25219, 639, 294, "Print"],
Cell[214902, 5890, 19637, 532, 211, "Print"],
Cell[234542, 6424, 15441, 440, 205, "Print"],
Cell[249986, 6866, 11883, 336, 193, "Print"]
}, Open  ]],
Cell[261884, 7205, 77, 1, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261998, 7211, 2195, 63, 165, "Input"],
Cell[264196, 7276, 122, 2, 32, "Output"],
Cell[264321, 7280, 2067, 71, 84, "Output"],
Cell[266391, 7353, 532, 17, 89, "Output"]
}, Open  ]],
Cell[266938, 7373, 94, 1, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267069, 7379, 91, 1, 65, "Section"],
Cell[267163, 7382, 432, 9, 32, "Input"],
Cell[CellGroupData[{
Cell[267620, 7395, 2235, 65, 121, "Input"],
Cell[269858, 7462, 1796, 58, 60, "Output"],
Cell[CellGroupData[{
Cell[271679, 7524, 4852, 145, 47, "Print"],
Cell[276534, 7671, 2129, 65, 47, "Print"]
}, Open  ]],
Cell[278678, 7739, 1356, 42, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[280071, 7786, 235, 3, 55, "Input"],
Cell[280309, 7791, 4688, 137, 47, "Print"],
Cell[285000, 7930, 1625, 53, 60, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[286674, 7989, 103, 1, 65, "Section"],
Cell[286780, 7992, 314, 6, 55, "Text"],
Cell[287097, 8000, 161, 2, 33, "Text"],
Cell[CellGroupData[{
Cell[287283, 8006, 209, 5, 32, "Input"],
Cell[287495, 8013, 3743, 103, 108, "Output"]
}, Open  ]],
Cell[291253, 8119, 239, 5, 33, "Text"],
Cell[CellGroupData[{
Cell[291517, 8128, 227, 5, 32, "Input"],
Cell[291747, 8135, 910, 26, 58, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[292706, 8167, 101, 1, 65, "Section"],
Cell[292810, 8170, 262, 5, 55, "Text"],
Cell[293075, 8177, 222, 5, 33, "Text"],
Cell[CellGroupData[{
Cell[293322, 8186, 270, 6, 32, "Input"],
Cell[293595, 8194, 370, 7, 55, "Output"]
}, Open  ]],
Cell[293980, 8204, 854, 14, 165, "Text"],
Cell[294837, 8220, 151, 3, 33, "Text"],
Cell[CellGroupData[{
Cell[295013, 8227, 106, 1, 45, "Subsection"],
Cell[295122, 8230, 290, 5, 33, "Text"],
Cell[CellGroupData[{
Cell[295437, 8239, 382, 11, 32, "Input"],
Cell[295822, 8252, 358, 10, 52, "Output"]
}, Open  ]],
Cell[296195, 8265, 218, 4, 33, "Text"],
Cell[296416, 8271, 328, 8, 55, "Input"],
Cell[CellGroupData[{
Cell[296769, 8283, 328, 10, 32, "Input"],
Cell[297100, 8295, 219, 6, 32, "Output"]
}, Open  ]],
Cell[297334, 8304, 356, 6, 55, "Text"],
Cell[297693, 8312, 267, 8, 32, "Input"],
Cell[297963, 8322, 177, 4, 33, "Text"],
Cell[298143, 8328, 584, 21, 77, "Input"],
Cell[298730, 8351, 386, 6, 55, "Text"],
Cell[CellGroupData[{
Cell[299141, 8361, 779, 21, 77, "Input"],
Cell[299923, 8384, 741, 21, 73, "Output"]
}, Open  ]],
Cell[300679, 8408, 16, 0, 33, "Text"],
Cell[300698, 8410, 16, 0, 33, "Text"],
Cell[300717, 8412, 16, 0, 33, "Text"],
Cell[300736, 8414, 16, 0, 33, "Text"],
Cell[300755, 8416, 16, 0, 33, "Text"],
Cell[300774, 8418, 16, 0, 33, "Text"],
Cell[300793, 8420, 16, 0, 33, "Text"],
Cell[300812, 8422, 16, 0, 33, "Text"],
Cell[300831, 8424, 16, 0, 33, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)