(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 430965, 9322] NotebookOptionsPosition[ 422681, 9128] NotebookOutlinePosition[ 424682, 9187] CellTagsIndexPosition[ 424639, 9184] WindowTitle->Wolfram/CodeEquivalenceUtilities | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(2)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Check if two expressions are equivalent:", "Text", TaggingRules->{}, CellID->128039117], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, {16.878951926824357`, 11.171919226646423`}, {18.281234979629517`, 11.171919226646423`}, {19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, { 49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, {49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, { 46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, { 49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, { 59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"CodeEquivalentQ", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"CodeEquivalentQ\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol["Wolfram/CodeEquivalenceUtilities", "CodeEquivalentQ"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "CodeEquivalentQ"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "CodeEquivalentQ"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", RowBox[{ RowBox[{"RandomInteger", "/@", RowBox[{"Range", "[", "5", "]"}]}], ",", RowBox[{"Array", "[", RowBox[{"RandomInteger", ",", "5"}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->145660176], Cell[BoxData["True"], "Output", TaggingRules->{}, CellContext->"Cell$$3876`", CellLabel->"Out[1]=", CellID->1943201643] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->123543145], Cell["View the canonical representations of expressions:", "Text", TaggingRules->{}, CellID->61801984], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, {16.878951926824357`, 11.171919226646423`}, {18.281234979629517`, 11.171919226646423`}, {19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, { 49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, {49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, { 46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, { 49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, { 59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"MakeCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"MakeCanonicalForm\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "MakeCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", RowBox[{"RandomInteger", "/@", RowBox[{"Range", "[", "5", "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->30954357], Cell[BoxData[ TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox["\<\"\[ScriptCapitalR]\"\>", Background->RGBColor[{ Rational[199, 255], Rational[72, 85], Rational[152, 255]}], ContentPadding->False, FrameMargins->3, RoundingRadius->3, StripOnInput->False], StripOnInput->False, ShowStringCharacters->False, FontWeight->Bold, FontColor->RGBColor[{ Rational[107, 255], Rational[44, 85], Rational[37, 255]}]], "\"Wolfram`CodeEquivalenceUtilities`RandomValue\"", TooltipStyle->"TextStyling"], Annotation[#, "Wolfram`CodeEquivalenceUtilities`RandomValue", "Tooltip"]& ], Wolfram`CodeEquivalenceUtilities`RandomValue], "[", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]], "Output", TaggingRules->{}, CellContext->"Cell$$3881`", CellLabel->"Out[1]=", CellID->1178824498] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, {16.878951926824357`, 11.171919226646423`}, {18.281234979629517`, 11.171919226646423`}, {19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, { 49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, {49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, { 46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, { 49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, { 59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"MakeCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"MakeCanonicalForm\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "MakeCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", RowBox[{"Array", "[", RowBox[{"RandomInteger", ",", "5"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->136440674], Cell[BoxData[ TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox["\<\"\[ScriptCapitalR]\"\>", Background->RGBColor[{ Rational[199, 255], Rational[72, 85], Rational[152, 255]}], ContentPadding->False, FrameMargins->3, RoundingRadius->3, StripOnInput->False], StripOnInput->False, ShowStringCharacters->False, FontWeight->Bold, FontColor->RGBColor[{ Rational[107, 255], Rational[44, 85], Rational[37, 255]}]], "\"Wolfram`CodeEquivalenceUtilities`RandomValue\"", TooltipStyle->"TextStyling"], Annotation[#, "Wolfram`CodeEquivalenceUtilities`RandomValue", "Tooltip"]& ], Wolfram`CodeEquivalenceUtilities`RandomValue], "[", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]], "Output", TaggingRules->{}, CellContext->"Cell$$3881`", CellLabel->"Out[2]=", CellID->1966694311] }, Open ]], Cell["These are directly comparable:", "Text", TaggingRules->{}, CellID->367095856], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "===", "%%"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->53743161], Cell[BoxData["True"], "Output", TaggingRules->{}, CellContext->"Cell$$3881`", CellLabel->"Out[3]=", CellID->1121617567] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->365377965], Cell["Get additional information about the equivalence test:", "Text", TaggingRules->{}, CellID->574259458], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, {16.878951926824357`, 11.171919226646423`}, {18.281234979629517`, 11.171919226646423`}, {19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, { 49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, {49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, { 46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, { 49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, { 59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"EquivalenceTestData", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"EquivalenceTestData\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "EquivalenceTestData"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "EquivalenceTestData"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "EquivalenceTestData"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"First", "[", RowBox[{"Rest", "[", RowBox[{"Range", "/@", RowBox[{"Range", "[", RowBox[{"2", "^", "100"}], "]"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Part", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"2", "^", "100"}]}], "}"}]}], "]"}], ",", "2"}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->19701662], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Timing\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"SameQ\"\>", "\[Rule]", "0.00003`1.9286662482156374"}], ",", RowBox[{"\<\"EqualQ\"\>", "\[Rule]", "0.000041`2.06432885021571"}], ",", RowBox[{"\<\"ToCanonicalForm1\"\>", "\[Rule]", "1.086549`6.487594309932331"}], ",", RowBox[{"\<\"ToCanonicalForm2\"\>", "\[Rule]", "1.718929`6.686802932111459"}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"SameQ\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"EqualQ\"\>", "\[Rule]", "False"}], ",", RowBox[{"\<\"CanonicalForms\"\>", "\[Rule]", RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"1", "\[Rule]", RowBox[{"HoldComplete", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "1267650600228229401496703205376", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}]}], ",", RowBox[{"2", "\[Rule]", RowBox[{"HoldComplete", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "1267650600228229401496703205376", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "]"}]}]}], "\[RightAssociation]"}]}], ",", RowBox[{"\<\"CanonicalEquivalentQ\"\>", "\[Rule]", "True"}], ",", RowBox[{"\<\"EquivalentQ\"\>", "\[Rule]", "True"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellContext->"Cell$$3891`", CellLabel->"Out[1]=", CellID->1296110786] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->183270128], Cell["\<\ View the sequence of transformations used to convert an expression to its \ canonical form:\ \>", "Text", TaggingRules->{}, CellID->304712455], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, { 16.878951926824357`, 11.171919226646423`}, { 18.281234979629517`, 11.171919226646423`}, { 19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, {49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, { 49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, {46.718711614608765`, 6.093798398971558}, { 45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, {44.17965120077133, 8.63285881280899}, { 44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, {49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, {59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"MakeCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"MakeCanonicalForm\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "MakeCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", RowBox[{ RowBox[{"Array", "[", RowBox[{"RandomInteger", ",", "5"}], "]"}], ",", RowBox[{"\"\\"", "->", "True"}]}], "]"}], "//", "Column"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->78977440], Cell[BoxData[ TagBox[GridBox[{ { TagBox[ RowBox[{"Array", "[", RowBox[{"RandomInteger", ",", "5"}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ "RandomInteger", "[", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "5"}], "}"}]}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ "RandomInteger", "[", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox["\<\"\[ScriptCapitalR]\"\>", Background->RGBColor[{ Rational[199, 255], Rational[72, 85], Rational[152, 255]}], ContentPadding->False, FrameMargins->3, RoundingRadius->3, StripOnInput->False], StripOnInput->False, ShowStringCharacters->False, FontWeight->Bold, FontColor->RGBColor[{ Rational[107, 255], Rational[44, 85], Rational[37, 255]}]], "\"Wolfram`CodeEquivalenceUtilities`RandomValue\"", TooltipStyle->"TextStyling"], Annotation[#, "Wolfram`CodeEquivalenceUtilities`RandomValue", "Tooltip"]& ], Wolfram`CodeEquivalenceUtilities`RandomValue], "[", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox["\<\"\[ScriptCapitalR]\"\>", Background->RGBColor[{ Rational[199, 255], Rational[72, 85], Rational[152, 255]}], ContentPadding->False, FrameMargins->3, RoundingRadius->3, StripOnInput->False], StripOnInput->False, ShowStringCharacters->False, FontWeight->Bold, FontColor->RGBColor[{ Rational[107, 255], Rational[44, 85], Rational[37, 255]}]], "\"Wolfram`CodeEquivalenceUtilities`RandomValue\"", TooltipStyle->"TextStyling"], Annotation[#, "Wolfram`CodeEquivalenceUtilities`RandomValue", "Tooltip"]& ], Wolfram`CodeEquivalenceUtilities`RandomValue], "[", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]], "Output", TaggingRules->{}, CellContext->"Cell$$3896`", CellLabel->"Out[1]=", CellID->1807348781] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->359786118], Cell["Convert a canonical representation to a normal expression:", "Text", TaggingRules->{}, CellID->156285582], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, {16.878951926824357`, 11.171919226646423`}, {18.281234979629517`, 11.171919226646423`}, {19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, { 49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, {49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, { 46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, { 49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, { 59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"MakeCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"MakeCanonicalForm\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "MakeCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "MakeCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", RowBox[{"Array", "[", RowBox[{"RandomInteger", ",", "5"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->756564778], Cell[BoxData[ TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox["\<\"\[ScriptCapitalR]\"\>", Background->RGBColor[{ Rational[199, 255], Rational[72, 85], Rational[152, 255]}], ContentPadding->False, FrameMargins->3, RoundingRadius->3, StripOnInput->False], StripOnInput->False, ShowStringCharacters->False, FontWeight->Bold, FontColor->RGBColor[{ Rational[107, 255], Rational[44, 85], Rational[37, 255]}]], "\"Wolfram`CodeEquivalenceUtilities`RandomValue\"", TooltipStyle->"TextStyling"], Annotation[#, "Wolfram`CodeEquivalenceUtilities`RandomValue", "Tooltip"]& ], Wolfram`CodeEquivalenceUtilities`RandomValue], "[", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]], "Output", TaggingRules->{}, CellContext->"Cell$$3901`", CellLabel->"Out[1]=", CellID->201050931] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, { 45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, { 43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, { 46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, { 4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{ 16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, { 5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, { 59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{ 0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, { 7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, {16.878951926824357`, 11.171919226646423`}, {18.281234979629517`, 11.171919226646423`}, {19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, { 29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, { 33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, { 35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, { 35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, { 44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, { 46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, { 49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, { 45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, { 48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, { 45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, { 44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, { 49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, {49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, { 46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, { 49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, { 59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, { 57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, { 61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"FromCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{ "\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"FromCanonicalForm\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "FromCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "FromCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "FromCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", "%", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->328679117], Cell[BoxData[ TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", "S1"}], "}"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"S1", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]], "Output", TaggingRules->{}, CellContext->"Cell$$3901`", CellLabel->"Out[2]=", CellID->1064864972] }, Open ]], Cell["Evaluate:", "Text", TaggingRules->{}, CellID->479534276], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReleaseHold", "[", "%", "]"}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->70732566], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1", ",", "0"}], "}"}]], "Output", TaggingRules->{}, CellContext->"Cell$$3901`", CellLabel->"Out[3]=", CellID->563209876] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Neat Examples", "\[NonBreakingSpace]", Cell["(6)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->170216056], Cell["\<\ Here is a list of expressions, some of which are equivalent to others:\ \>", "Text", TaggingRules->{}, CellID->142845178], Cell[BoxData[ RowBox[{ RowBox[{"expressions", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "2"}]}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"HoldForm", "[", RowBox[{"Array", "[", RowBox[{"Range", ",", "5", ",", "3"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"HoldForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"i", ",", RowBox[{"i", "+", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"HoldForm", "[", RowBox[{"First", "[", RowBox[{"Rest", "[", RowBox[{"Range", "/@", RowBox[{"Range", "[", "10", "]"}]}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"HoldForm", "[", RowBox[{"Range", "/@", RowBox[{"Range", "[", RowBox[{"3", ",", "7"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"HoldForm", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->8689250], Cell["Find the sequence of transformations for each expression:", "Text", TaggingRules->{}, CellID->6364326], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Short", "[", RowBox[{"traces", "=", RowBox[{ RowBox[{ RowBox[{"Most", "@", RowBox[{ InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 19.29685914516449, 56.875006675720215`}, { 32.49997329711914, 64.49218791723251}, {45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, {43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, {46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, { 18.789047062397003`, 56.113288551568985`}, { 31.992161214351654`, 48.496107310056686`}, { 31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, {4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, {17.77342289686203, 8.886764854192734}}, {{16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, {5.078120827674866, 32.50002670288086}, {18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, { 18.789047062397003`, 8.886764854192734}, { 31.992161214351654`, 16.503946095705032`}, { 31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, {60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, {59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, { 46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, {33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, { 5.972591313425198, 29.960966289043427`}, { 4.570308744907379, 29.960966289043427`}, { 3.168024481383867, 29.960966289043427`}, { 2.0312483310699463`, 31.097747524374427`}, { 2.0312483310699463`, 32.50002670288086}, { 2.0312483310699463`, 33.90230975568602}, { 3.168024481383867, 35.03908711671829}, {4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, {7.109369158744812, 33.90230975568602}, {7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, { 19.683518032434677`, 53.828134179115295`}, { 18.281234979629517`, 53.828134179115295`}, { 16.878951926824357`, 53.828134179115295`}, { 15.742174565792084`, 54.96491250872225}, { 15.742174565792084`, 56.36719459295273}, { 15.742174565792084`, 57.76947716147055}, { 16.878951926824357`, 58.90625500679016}, { 18.281234979629517`, 58.90625500679016}, { 19.683518032434677`, 58.90625500679016}, { 20.82029539346695, 57.76947716147055}, {20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, { 19.683518032434677`, 38.08595961332321}, { 18.281234979629517`, 38.08595961332321}, { 16.878951926824357`, 38.08595961332321}, { 15.742174565792084`, 39.222736974355485`}, { 15.742174565792084`, 40.625020027160645`}, { 15.742174565792084`, 42.027303079965804`}, { 16.878951926824357`, 43.16408044099808}, { 18.281234979629517`, 43.16408044099808}, { 19.683518032434677`, 43.16408044099808}, { 20.82029539346695, 42.027303079965804`}, { 20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, { 19.683518032434677`, 21.83597296476364}, { 18.281234979629517`, 21.83597296476364}, { 16.878951926824357`, 21.83597296476364}, { 15.742174565792084`, 22.97275420009464}, { 15.742174565792084`, 24.375033378601074`}, { 15.742174565792084`, 25.777316431406234`}, { 16.878951926824357`, 26.914093792438507`}, { 18.281234979629517`, 26.914093792438507`}, { 19.683518032434677`, 26.914093792438507`}, { 20.82029539346695, 25.777316431406234`}, { 20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, { 19.683518032434677`, 6.093798398971558}, { 18.281234979629517`, 6.093798398971558}, { 16.878951926824357`, 6.093798398971558}, { 15.742174565792084`, 7.230591257198739}, { 15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, { 16.878951926824357`, 11.171919226646423`}, { 18.281234979629517`, 11.171919226646423`}, { 19.683518032434677`, 11.171919226646423`}, { 20.82029539346695, 10.035130242717969`}, { 20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, {29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, {32.49997329711914, 51.28907376527786}, {33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, {35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, { 33.90225247562557, 29.960966289043427`}, { 32.49997329711914, 29.960966289043427`}, { 31.09769024431398, 29.960966289043427`}, { 29.960912883281708`, 31.097747524374427`}, { 29.960912883281708`, 32.50002670288086}, { 29.960912883281708`, 33.90230975568602}, { 31.09769024431398, 35.03908711671829}, {32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, {35.03903371095657, 33.90230975568602}, {35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, { 33.90225247562557, 13.710979640483856`}, { 32.49997329711914, 13.710979640483856`}, { 31.09769024431398, 13.710979640483856`}, { 29.960912883281708`, 14.847760875814856`}, { 29.960912883281708`, 16.25004005432129}, { 29.960912883281708`, 17.65232310712645}, { 31.09769024431398, 18.789100468158722`}, { 32.49997329711914, 18.789100468158722`}, { 33.90225247562557, 18.789100468158722`}, { 35.03903371095657, 17.65232310712645}, {35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, {44.17965120077133, 56.36719459295273}, {44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, {46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, {49.2577720284462, 57.76947716147055}, {49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, {45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, {48.1209907931152, 43.16408044099808}, {49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, {45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, {44.17965120077133, 24.375033378601074`}, {44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, {49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, { 49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, {46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, {44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, {49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, { 61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, {59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, {57.89057743549347, 33.90230975568602}, {59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, {61.83190540494115, 35.03908711671829}, {62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"ToCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{"\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"ToCanonicalForm\""}], "]"}], TooltipStyle->{ ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "ToCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "ToCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "ToCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False], "[", RowBox[{"#", ",", RowBox[{"\"\\"", "->", "True"}]}], "]"}]}], "&"}], "/@", "expressions"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[2]:=", CellID->10456278], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}], Short]], "Output", TaggingRules->{}, CellContext->"Cell$$3911`", CellLabel->"Out[2]//Short=", CellID->997781720] }, Open ]], Cell["Generate a graph for each sequence:", "Text", TaggingRules->{}, CellID->380755029], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"paths", "=", RowBox[{ RowBox[{ RowBox[{"Graph", "[", RowBox[{"DirectedEdge", "@@@", RowBox[{"Partition", "[", RowBox[{"#", ",", "2", ",", "1"}], "]"}]}], "]"}], "&"}], "/@", "traces"}]}]], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->7543077], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]]}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, { 5, 6}, {6, 7}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., 1.102182119232618*^-15}, {1., 9.797174393178826*^-16}, {2., 8.572527594031472*^-16}, {3., 7.347880794884119*^-16}, {4., 4.898587196589412*^-16}, {5., 2.449293598294706*^-16}, {6., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}}, 0.04847715736040609]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.04847715736040609], DiskBox[2, 0.04847715736040609], DiskBox[3, 0.04847715736040609], DiskBox[4, 0.04847715736040609], DiskBox[5, 0.04847715736040609], DiskBox[6, 0.04847715736040609], DiskBox[7, 0.04847715736040609]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ Array[Range, 5, 3]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]]}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, { 5, 6}, {6, 7}, {7, 8}, {8, 9}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., 1.4695761589768238`*^-15}, {1., 1.3471114790620886`*^-15}, {2., 1.2246467991473533`*^-15}, {3., 1.102182119232618*^-15}, {4., 9.797174393178826*^-16}, {5., 7.347880794884119*^-16}, {6., 4.898587196589413*^-16}, {7., 2.449293598294707*^-16}, {8., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[ 0.018073156682027646`], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, { 8, 9}}, 0.05783410138248847]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.05783410138248847], DiskBox[2, 0.05783410138248847], DiskBox[3, 0.05783410138248847], DiskBox[4, 0.05783410138248847], DiskBox[5, 0.05783410138248847], DiskBox[6, 0.05783410138248847], DiskBox[7, 0.05783410138248847], DiskBox[8, 0.05783410138248847], DiskBox[9, 0.05783410138248847]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]]}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, { 5, 6}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., 9.797174393178826*^-16}, {1., 8.572527594031472*^-16}, {2., 7.347880794884119*^-16}, {3., 4.898587196589412*^-16}, {4., 2.449293598294706*^-16}, {5., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}}, 0.043048128342245986`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.043048128342245986], DiskBox[2, 0.043048128342245986], DiskBox[3, 0.043048128342245986], DiskBox[4, 0.043048128342245986], DiskBox[5, 0.043048128342245986], DiskBox[6, 0.043048128342245986]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], HoldForm[ Part[ Map[Range, Range[10]], 2]], HoldForm[ Part[ Map[Range, Range[10], {1}], 2]], HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]]}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, {8, 9}, {9, 10}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., 1.7145055188062944`*^-15}, {1., 1.5920408388915593`*^-15}, {2., 1.469576158976824*^-15}, {3., 1.3471114790620886`*^-15}, {4., 1.2246467991473533`*^-15}, {5., 9.797174393178826*^-16}, {6., 7.34788079488412*^-16}, {7., 4.898587196589414*^-16}, {8., 2.449293598294707*^-16}, {9., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[ 0.017192853646598137`], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, { 8, 9}, {9, 10}}, 0.061894273127753294`]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.061894273127753294], DiskBox[2, 0.061894273127753294], DiskBox[3, 0.061894273127753294], DiskBox[4, 0.061894273127753294], DiskBox[5, 0.061894273127753294], DiskBox[6, 0.061894273127753294], DiskBox[7, 0.061894273127753294], DiskBox[8, 0.061894273127753294], DiskBox[9, 0.061894273127753294], DiskBox[10, 0.061894273127753294]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ Map[Range, Range[3, 7]]], HoldForm[ Map[Range, Range[3, 7], {1}]], HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]]}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}, { 5, 6}, {6, 7}, {7, 8}, {8, 9}, {9, 10}, {10, 11}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., 1.83697019872103*^-15}, {1., 1.7145055188062944`*^-15}, {2., 1.5920408388915593`*^-15}, {3., 1.469576158976824*^-15}, {4., 1.3471114790620886`*^-15}, {5., 1.2246467991473533`*^-15}, {6., 9.797174393178826*^-16}, {7., 7.34788079488412*^-16}, {8., 4.898587196589414*^-16}, {9., 2.449293598294707*^-16}, {10., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.01640295358649789], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}, {5, 6}, {6, 7}, {7, 8}, { 8, 9}, {9, 10}, {10, 11}}, 0.06561181434599156]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.06561181434599156], DiskBox[2, 0.06561181434599156], DiskBox[3, 0.06561181434599156], DiskBox[4, 0.06561181434599156], DiskBox[5, 0.06561181434599156], DiskBox[6, 0.06561181434599156], DiskBox[7, 0.06561181434599156], DiskBox[8, 0.06561181434599156], DiskBox[9, 0.06561181434599156], DiskBox[10, 0.06561181434599156], DiskBox[11, 0.06561181434599156]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None], ",", GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]]}, {{{1, 2}, {2, 3}, {3, 4}, {4, 5}}, Null}]]}, TagBox[ GraphicsGroupBox[ GraphicsComplexBox[{{0., 7.347880794884119*^-16}, {1., 6.123233995736766*^-16}, {2., 4.898587196589413*^-16}, {3., 2.4492935982947064`*^-16}, {4., 0.}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], ArrowBox[{{1, 2}, {2, 3}, {3, 4}, {4, 5}}, 0.03700564971751412]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.03700564971751412], DiskBox[2, 0.03700564971751412], DiskBox[3, 0.03700564971751412], DiskBox[4, 0.03700564971751412], DiskBox[5, 0.03700564971751412]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]}], "}"}]], "Output", TaggingRules->{}, CellContext->"Cell$$3911`", CellLabel->"Out[3]=", CellID->17568617] }, Open ]], Cell["Combine the graphs:", "Text", TaggingRules->{}, CellID->629391993], Cell[BoxData[ RowBox[{ RowBox[{"graph", "=", RowBox[{"Graph", "[", RowBox[{ RowBox[{"GraphUnion", "@@", "paths"}], ",", InterpretationBox[ DynamicModuleBox[{Typeset`open = False}, TemplateBox[{"Expression", "SequenceIcon", GridBox[{{ RowBox[{ TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["Sequence", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Length: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["2", "IconizedItem"]}]}, { RowBox[{ TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", TagBox["304", "IconizedItem"]}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Dynamic[Typeset`open]}, "IconizedObject"]], Sequence[ VertexLabels -> Placed["Name", Tooltip], GraphLayout -> "LayeredDigraphEmbedding"], SelectWithContents->True, Selectable->False]}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->81711613], Cell["\<\ Equivalent expressions converge to the same connected component:\ \>", "Text", TaggingRules->{}, CellID->127544466], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"graph", ",", "paths"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[5]:=", CellID->347655374], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ HoldForm[ Array[Range, 5, 3]], HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], HoldForm[ Map[Range, Range[3, 7]]], HoldForm[ Map[Range, Range[3, 7], {1}]], HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]], HoldForm[ Part[ Map[Range, Range[10]], 2]], HoldForm[ Part[ Map[Range, Range[10], {1}], 2]], HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]]}, {{{34, 25}, {25, 26}, { 26, 28}, {28, 29}, {29, 32}, {32, 33}, {1, 22}, {22, 23}, {23, 20}, { 20, 21}, {21, 24}, {24, 27}, {27, 30}, {30, 31}, {17, 18}, {18, 19}, { 19, 29}, {2, 6}, {6, 7}, {7, 8}, {8, 9}, {9, 10}, {10, 11}, {11, 14}, { 14, 15}, {15, 16}, {3, 4}, {4, 5}, {5, 22}, {12, 13}, {13, 14}}, Null}, {GraphHighlight -> { DirectedEdge[ HoldForm[ Map[Range, Range[3, 7]]], HoldForm[ Map[Range, Range[3, 7], {1}]]], DirectedEdge[ HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], HoldForm[ Part[ Map[Range, Range[10]], 2]]], HoldForm[ Array[Range, 5, 3]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]], HoldForm[ Map[Range, Range[3, 7]]], HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]], HoldForm[ Map[Range, Range[3, 7], {1}]], DirectedEdge[ HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]]], DirectedEdge[ HoldForm[ Part[ Map[Range, Range[10], {1}], 2]], HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], DirectedEdge[ HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], DirectedEdge[ HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]]], HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]], DirectedEdge[ HoldForm[ Part[ Map[Range, Range[10]], 2]], HoldForm[ Part[ Map[Range, Range[10], {1}], 2]]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], HoldForm[ Part[ Map[Range, Range[10]], 2]], DirectedEdge[ HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]]], DirectedEdge[ HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]]], HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]], HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]], DirectedEdge[ HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]]], DirectedEdge[ HoldForm[ Map[Range, Range[3, 7], {1}]], HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]], DirectedEdge[ HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]]], DirectedEdge[ HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]]], DirectedEdge[ HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]]], DirectedEdge[ HoldForm[ Array[Range, 5, 3]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]]], HoldForm[ Part[ Map[Range, Range[10], {1}], 2]]}, GraphHighlightStyle -> {HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]] -> {VertexStyle -> Directive[ Hue[0.1, 0.6, 0.7], EdgeForm[{ Hue[0.1, 0.6, 0.7], Opacity[1]}]]}, HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]] -> {VertexStyle -> Directive[ Hue[0.07, 1, 1], EdgeForm[{ Hue[0.07, 1, 1], Opacity[1]}]]}, HoldForm[ Part[ Map[Range, Range[10]], 2]] -> {VertexStyle -> Directive[ Hue[0.07, 1, 1], EdgeForm[{ Hue[0.07, 1, 1], Opacity[1]}]]}, DirectedEdge[ HoldForm[ Part[ Map[Range, Range[10]], 2]], HoldForm[ Part[ Map[Range, Range[10], {1}], 2]]] -> {EdgeStyle -> Directive[ Hue[0.07, 1, 1], Opacity[1]]}, HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]] -> { VertexStyle -> Directive[ EdgeForm[ Directive[ Hue[0.14, 1, 0.9], Opacity[1]]], Hue[0.2, 1, 0.6]]}, DirectedEdge[ HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]]] -> { EdgeStyle -> Directive[ Hue[0.2, 1, 0.6], Opacity[1]]}, DirectedEdge[ HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]]] -> {EdgeStyle -> Directive[ Hue[0.07, 1, 1], Opacity[1]]}, DirectedEdge[ HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]], HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]]] -> {EdgeStyle -> Directive[ Hue[0.1, 0.6, 0.7], Opacity[1]]}, HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]] -> { VertexStyle -> Directive[ EdgeForm[ Directive[ Hue[0.14, 1, 0.9], Opacity[1]]], Hue[0.2, 1, 0.6]]}, DirectedEdge[ HoldForm[ Map[Range, Range[3, 7]]], HoldForm[ Map[Range, Range[3, 7], {1}]]] -> {EdgeStyle -> Directive[ Hue[0.2, 1, 0.6], Opacity[1]]}, HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]] -> { VertexStyle -> Directive[ Hue[0.07, 1, 1], EdgeForm[{ Hue[0.07, 1, 1], Opacity[1]}]]}, HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]] -> { VertexStyle -> Directive[ EdgeForm[ Directive[ Hue[0.14, 1, 0.9], Opacity[1]]], Hue[0.2, 1, 0.6]]}, HoldForm[ Map[Range, Range[3, 7]]] -> {VertexStyle -> Directive[ Hue[0.2, 1, 0.6], EdgeForm[{ Hue[0.2, 1, 0.6], Opacity[1]}]]}, DirectedEdge[ HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]], HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]]] -> {EdgeStyle -> Directive[ Hue[0.8, 0.6, 0.8], Opacity[1]]}, DirectedEdge[ HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]]] -> { EdgeStyle -> Directive[ Hue[0, 1, 0.8], Opacity[1]]}, HoldForm[ First[ Rest[ Map[Range, Range[10]]]]] -> {VertexStyle -> Directive[ Hue[0.07, 1, 1], EdgeForm[{ Hue[0.07, 1, 1], Opacity[1]}]]}, HoldForm[ Array[Range, 5, 3]] -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9], EdgeForm[{ Hue[0.14, 1, 0.9], Opacity[1]}]]}, DirectedEdge[ HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], HoldForm[ Part[ Map[Range, Range[10]], 2]]] -> {EdgeStyle -> Directive[ Hue[0.07, 1, 1], Opacity[1]]}, DirectedEdge[ HoldForm[ Map[Range, Range[3, 7], {1}]], HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], { 1}]]] -> {EdgeStyle -> Directive[ Hue[0.2, 1, 0.6], Opacity[1]]}, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]] -> { VertexStyle -> Directive[ Hue[0, 1, 0.8], EdgeForm[{ Hue[0, 1, 0.8], Opacity[1]}]]}, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]] -> { VertexStyle -> Directive[ Hue[0, 1, 0.8], EdgeForm[{ Hue[0, 1, 0.8], Opacity[1]}]]}, HoldForm[ Part[ Map[Range, Range[10], {1}], 2]] -> {VertexStyle -> Directive[ Hue[0.07, 1, 1], EdgeForm[{ Hue[0.07, 1, 1], Opacity[1]}]]}, HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]] -> {VertexStyle -> Directive[ Hue[0.8, 0.6, 0.8], EdgeForm[{ Hue[0.8, 0.6, 0.8], Opacity[1]}]]}, DirectedEdge[ HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]]] -> {EdgeStyle -> Directive[ Opacity[1], Hue[0.2, 1, 0.6]]}, HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]] -> {VertexStyle -> Directive[ Hue[0.1, 0.6, 0.7], EdgeForm[{ Hue[0.1, 0.6, 0.7], Opacity[1]}]]}, HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], { 1}]] -> {VertexStyle -> Directive[ Hue[0.2, 1, 0.6], EdgeForm[{ Hue[0.2, 1, 0.6], Opacity[1]}]]}, HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]] -> { VertexStyle -> Directive[ Hue[0.8, 0.6, 0.8], EdgeForm[{ Hue[0.8, 0.6, 0.8], Opacity[1]}]]}, DirectedEdge[ HoldForm[ Part[ Map[Range, Range[10], {1}], 2]], HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]]] -> {EdgeStyle -> Directive[ Hue[0.07, 1, 1], Opacity[1]]}, DirectedEdge[ HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]]] -> {EdgeStyle -> Directive[ Opacity[1], Hue[0.2, 1, 0.6]]}, DirectedEdge[ HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]], HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]]] -> {EdgeStyle -> Directive[ Hue[0, 1, 0.8], Opacity[1]]}, DirectedEdge[ HoldForm[ Array[Range, 5, 3]], HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]]] -> { EdgeStyle -> Directive[ Hue[0.14, 1, 0.9], Opacity[1]]}, HoldForm[ Map[Range, Range[3, 7], {1}]] -> {VertexStyle -> Directive[ Hue[0.2, 1, 0.6], EdgeForm[{ Hue[0.2, 1, 0.6], Opacity[1]}]]}, HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]] -> { VertexStyle -> Directive[ Hue[0, 1, 0.8], EdgeForm[{ Hue[0, 1, 0.8], Opacity[1]}]]}, HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]] -> {VertexStyle -> Directive[ Hue[0.07, 1, 1], EdgeForm[{ Hue[0.07, 1, 1], Opacity[1]}]]}, DirectedEdge[ HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]], HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]]] -> {EdgeStyle -> Directive[ Hue[0.07, 1, 1], Opacity[1]]}}, GraphLayout -> { "Dimension" -> 2, "VertexLayout" -> "LayeredDigraphEmbedding"}, VertexLabels -> { Placed["Name", Tooltip]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.021395045225630852`], {Hue[0.14, 1, 0.9], Opacity[1], ArrowBox[{{1.1666766666666666`, -3.1666766666666675`}, { 2.1666766666666666`, -4.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.07, 1, 1], Opacity[1], ArrowBox[{{4.50003, -1.1666766666666675`}, { 4.50003, -2.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.2, 1, 0.6], Opacity[1], ArrowBox[{{2.1666766666666666`, -1.1666766666666675`}, { 2.1666766666666666`, -2.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.2, 1, 0.6], Opacity[1], ArrowBox[{{2.1666766666666666`, -2.1666766666666675`}, { 2.1666766666666666`, -3.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.2, 1, 0.6], Opacity[1], ArrowBox[{{2.1666766666666666`, -3.1666766666666675`}, { 2.1666766666666666`, -4.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.07, 1, 1], Opacity[1], ArrowBox[{{4.50003, -2.1666766666666675`}, { 4.50003, -3.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.07, 1, 1], Opacity[1], ArrowBox[{{4.50003, -3.1666766666666675`}, { 4.50003, -4.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.07, 1, 1], Opacity[1], ArrowBox[{{4.50003, -4.1666766666666675`}, { 4.50003, -5.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.07, 1, 1], Opacity[1], ArrowBox[{{4.50003, -5.1666766666666675`}, { 4.50003, -6.1666766666666675`}}, 0.06561181434599156]}, ArrowBox[{{4.50003, -6.1666766666666675`}, { 4.50003, -7.1666766666666675`}}, 0.06561181434599156], ArrowBox[{{4.50003, -7.1666766666666675`}, { 5.50003, -8.166676666666667}}, 0.06561181434599156], {Hue[0.1, 0.6, 0.7], Opacity[1], ArrowBox[{{5.50003, -6.1666766666666675`}, { 5.50003, -7.1666766666666675`}}, 0.06561181434599156]}, ArrowBox[{{5.50003, -7.1666766666666675`}, { 5.50003, -8.166676666666667}}, 0.06561181434599156], ArrowBox[{{5.50003, -8.166676666666667}, { 5.50003, -9.166676666666667}}, 0.06561181434599156], ArrowBox[{{5.50003, -9.166676666666667}, { 5.50003, -10.166676666666667`}}, 0.06561181434599156], {Hue[0.8, 0.6, 0.8], Opacity[1], ArrowBox[{{7.833383333333334, -2.1666766666666666`}, { 7.833383333333334, -3.1666766666666666`}}, 0.06561181434599156]}, ArrowBox[{{7.833383333333334, -3.1666766666666666`}, { 7.833383333333334, -4.166676666666667}}, 0.06561181434599156], ArrowBox[{{7.833383333333334, -4.166676666666667}, { 7.833383333333334, -5.166676666666667}}, 0.06561181434599156], ArrowBox[{{2.1666766666666666`, -6.1666766666666675`}, { 2.1666766666666666`, -7.1666766666666675`}}, 0.06561181434599156], ArrowBox[{{2.1666766666666666`, -7.1666766666666675`}, { 2.1666766666666666`, -8.166676666666667}}, 0.06561181434599156], {Hue[0.2, 1, 0.6], Opacity[1], ArrowBox[{{2.1666766666666666`, -4.1666766666666675`}, { 2.1666766666666666`, -5.1666766666666675`}}, 0.06561181434599156]}, {Hue[0.2, 1, 0.6], Opacity[1], ArrowBox[{{2.1666766666666666`, -5.1666766666666675`}, { 2.1666766666666666`, -6.1666766666666675`}}, 0.06561181434599156]}, ArrowBox[{{2.1666766666666666`, -8.166676666666667}, { 2.1666766666666666`, -9.166676666666667}}, 0.06561181434599156], {Hue[0, 1, 0.8], Opacity[1], ArrowBox[{{8.833383333333334, -2.1666766666666666`}, { 8.833383333333334, -3.1666766666666666`}}, 0.06561181434599156]}, ArrowBox[{{8.833383333333334, -3.1666766666666666`}, { 8.833383333333334, -4.166676666666667}}, 0.06561181434599156], ArrowBox[{{2.1666766666666666`, -9.166676666666667}, { 2.1666766666666666`, -10.166676666666667`}}, 0.06561181434599156], ArrowBox[{{8.833383333333334, -4.166676666666667}, { 7.833383333333334, -5.166676666666667}}, 0.06561181434599156], ArrowBox[{{7.833383333333334, -5.166676666666667}, { 7.833383333333334, -6.166676666666667}}, 0.06561181434599156], ArrowBox[{{2.1666766666666666`, -10.166676666666667`}, { 2.1666766666666666`, -11.166676666666667`}}, 0.06561181434599156], ArrowBox[{{7.833383333333334, -6.166676666666667}, { 7.833383333333334, -7.166676666666667}}, 0.06561181434599156], {Hue[0, 1, 0.8], Opacity[1], ArrowBox[{{8.833383333333334, -1.1666766666666666`}, { 8.833383333333334, -2.1666766666666666`}}, 0.06561181434599156]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], TagBox[ TooltipBox[ {Hue[0.14, 1, 0.9], EdgeForm[{Hue[0.14, 1, 0.9], Opacity[1]}], DiskBox[{1.1666766666666666, -3.1666766666666675}, 0.06561181434599156]}, RowBox[{"Array", "[", RowBox[{"Range", ",", "5", ",", "3"}], "]"}]], Annotation[#, HoldForm[ Array[Range, 5, 3]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.07, 1, 1], EdgeForm[{Hue[0.07, 1, 1], Opacity[1]}], DiskBox[{4.50003, -1.1666766666666675}, 0.06561181434599156]}, RowBox[{"First", "[", RowBox[{"Rest", "[", RowBox[{"Range", "/@", RowBox[{"Range", "[", "10", "]"}]}], "]"}], "]"}]], Annotation[#, HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.2, 1, 0.6], EdgeForm[{Hue[0.2, 1, 0.6], Opacity[1]}], DiskBox[{2.1666766666666666, -1.1666766666666675}, 0.06561181434599156]}, RowBox[{"Range", "/@", RowBox[{"Range", "[", RowBox[{"3", ",", "7"}], "]"}]}]], Annotation[#, HoldForm[ Map[Range, Range[3, 7]]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.2, 1, 0.6], EdgeForm[{Hue[0.2, 1, 0.6], Opacity[1]}], DiskBox[{2.1666766666666666, -2.1666766666666675}, 0.06561181434599156]}, RowBox[{"Map", "[", RowBox[{"Range", ",", RowBox[{"Range", "[", RowBox[{"3", ",", "7"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}]], Annotation[#, HoldForm[ Map[Range, Range[3, 7], {1}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.2, 1, 0.6], EdgeForm[{Hue[0.2, 1, 0.6], Opacity[1]}], DiskBox[{2.1666766666666666, -3.1666766666666675}, 0.06561181434599156]}, RowBox[{"Map", "[", RowBox[{"Range", ",", RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "3", ",", "7"}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}]], Annotation[#, HoldForm[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}], {1}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.07, 1, 1], EdgeForm[{Hue[0.07, 1, 1], Opacity[1]}], DiskBox[{4.50003, -2.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"(", RowBox[{"Range", "/@", RowBox[{"Range", "[", "10", "]"}]}], ")"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Map[Range, Range[10]], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.07, 1, 1], EdgeForm[{Hue[0.07, 1, 1], Opacity[1]}], DiskBox[{4.50003, -3.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"Map", "[", RowBox[{"Range", ",", RowBox[{"Range", "[", "10", "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Map[Range, Range[10], {1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.07, 1, 1], EdgeForm[{Hue[0.07, 1, 1], Opacity[1]}], DiskBox[{4.50003, -4.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"Map", "[", RowBox[{"Range", ",", RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Map[Range, Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], {1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.07, 1, 1], EdgeForm[{Hue[0.07, 1, 1], Opacity[1]}], DiskBox[{4.50003, -5.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ "Range", "[", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "10"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 10}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.07, 1, 1], EdgeForm[{Hue[0.07, 1, 1], Opacity[1]}], DiskBox[{4.50003, -6.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ "Range", "[", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 10, 1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{4.50003, -7.1666766666666675}, 0.06561181434599156], RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 10, 1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.1, 0.6, 0.7], EdgeForm[{Hue[0.1, 0.6, 0.7], Opacity[1]}], DiskBox[{5.50003, -6.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.1, 0.6, 0.7], EdgeForm[{Hue[0.1, 0.6, 0.7], Opacity[1]}], DiskBox[{5.50003, -7.1666766666666675}, 0.06561181434599156]}, RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2", ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, 10, 1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{5.50003, -8.166676666666667}, 0.06561181434599156], RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{5.50003, -9.166676666666667}, 0.06561181434599156], RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{5.50003, -10.166676666666667}, 0.06561181434599156], RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]], Annotation[#, HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.8, 0.6, 0.8], EdgeForm[{Hue[0.8, 0.6, 0.8], Opacity[1]}], DiskBox[{7.833383333333334, -2.1666766666666666}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"i", ",", RowBox[{"i", "+", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.8, 0.6, 0.8], EdgeForm[{Hue[0.8, 0.6, 0.8], Opacity[1]}], DiskBox[{7.833383333333334, -3.1666766666666666}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "+", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{7.833383333333334, -4.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "+", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ ConstantArray[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.2, 1, 0.6], EdgeForm[{Hue[0.14, 1, 0.9], Opacity[1]}], DiskBox[{2.1666766666666666, -6.1666766666666675}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "+", "2"}], "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{2.1666766666666666, -7.1666766666666675}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "+", "2"}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Range[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.2, 1, 0.6], EdgeForm[{Hue[0.14, 1, 0.9], Opacity[1]}], DiskBox[{2.1666766666666666, -4.1666766666666675}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "3", ",", "7"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0.2, 1, 0.6], EdgeForm[{Hue[0.14, 1, 0.9], Opacity[1]}], DiskBox[{2.1666766666666666, -5.1666766666666675}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"Range", "[", "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "3", ",", "7", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Range[Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 3, 7, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{2.1666766666666666, -8.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], "+", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0, 1, 0.8], EdgeForm[{Hue[0, 1, 0.8], Opacity[1]}], DiskBox[{8.833383333333334, -2.1666766666666666}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2", ",", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "+", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "5"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 5}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0, 1, 0.8], EdgeForm[{Hue[0, 1, 0.8], Opacity[1]}], DiskBox[{8.833383333333334, -3.1666766666666666}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2", ",", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", "+", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1 + 2}], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{2.1666766666666666, -9.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1", ",", "1", ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], "+", "2"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{8.833383333333334, -4.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2", ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "+", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{7.833383333333334, -5.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ "Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2", ",", "1", ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "+", "2"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{2.1666766666666666, -10.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], "+", "2"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{2.1666766666666666, -11.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", RowBox[{"2", "+", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{7.833383333333334, -6.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], "+", "2"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]] + 2, 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ DiskBox[{7.833383333333334, -7.166676666666667}, 0.06561181434599156], RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", RowBox[{"2", "+", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor -> RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor -> RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor -> RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], ContentPadding -> False, FrameStyle -> None, RoundingRadius -> 5, Background -> RGBColor[0.84210425, 0.87669475, 0.9274495]], FontSize -> 0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]], "Tooltip"]& ], TagBox[ TooltipBox[ {Hue[0, 1, 0.8], EdgeForm[{Hue[0, 1, 0.8], Opacity[1]}], DiskBox[{8.833383333333334, -1.1666766666666666}, 0.06561181434599156]}, RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "2"}]}], "}"}]}], "]"}]], Annotation[#, HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]], "Tooltip"]& ]}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{208.89, Automatic}]], "Output", TaggingRules->{}, CellContext->"Cell$$3911`", CellLabel->"Out[5]=", CellID->1168751809] }, Open ]], Cell["\<\ Group the expressions into their corresponding equivalence class:\ \>", "Text", TaggingRules->{}, CellID->323935280], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"grouped", "=", RowBox[{"GroupBy", "[", RowBox[{"expressions", ",", InterpretationBox[ FrameBox[ TagBox[ TooltipBox[ PaneBox[GridBox[{ { GraphicsBox[ {Thickness[0.015384615384615385`], {FaceForm[{RGBColor[ 0.7019607843137254, 0.6039215686274509, 0.788235294117647], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{19.29685914516449, 56.875006675720215`}, {32.49997329711914, 64.49218791723251}, {45.70308744907379, 56.875006675720215`}, {32.49997329711914, 49.257825434207916`}, {19.29685914516449, 56.875006675720215`}}, {{21.328107476234436`, 56.875006675720215`}, {32.49997329711914, 63.32422015108166}, {43.671839118003845`, 56.875006675720215`}, {32.49997329711914, 50.42579283714326}, {21.328107476234436`, 56.875006675720215`}}, {{33.00778537988663, 33.26174482703209}, {33.00778537988663, 48.496107310056686`}, {46.21089953184128, 56.113288551568985`}, {46.21089953184128, 40.87892606854439}, {33.00778537988663, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.5372549019607843, 0.403921568627451, 0.6745098039215687], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 33.26174482703209}, { 18.789047062397003`, 40.87892606854439}, {18.789047062397003`, 56.113288551568985`}, {31.992161214351654`, 48.496107310056686`}, {31.992161214351654`, 33.26174482703209}}}]}, {FaceForm[{RGBColor[ 0.6352941176470588, 0.7333333333333333, 0.8313725490196079], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{17.77342289686203, 8.886764854192734}, {4.570308744907379, 16.503946095705032`}, {4.570308744907379, 31.73830857872963}, {17.77342289686203, 24.12112733721733}, { 17.77342289686203, 8.886764854192734}}, {{16.757798731327057`, 10.664107143878937`}, {5.585932910442352, 17.113319045306525`}, {5.585932910442352, 29.960966289043427`}, {16.757798731327057`, 23.511754387615838`}, {16.757798731327057`, 10.664107143878937`}}, {{31.484349131584167`, 32.50002670288086}, {18.281234979629517`, 40.11720794439316}, {5.078120827674866, 32.50002670288086}, { 18.281234979629517`, 24.88284546136856}, {31.484349131584167`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.2901960784313726, 0.40784313725490196`, 0.5764705882352941], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{31.992161214351654`, 31.73830857872963}, { 18.789047062397003`, 24.12112733721733}, {18.789047062397003`, 8.886764854192734}, {31.992161214351654`, 16.503946095705032`}, {31.992161214351654`, 31.73830857872963}}}]}, {FaceForm[{RGBColor[0.6, 0.6, 0.37254901960784315`], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{47.22652369737625, 8.886764854192734}, {47.22652369737625, 24.12112733721733}, { 60.4296378493309, 31.73830857872963}, {60.4296378493309, 16.503946095705032`}, {47.22652369737625, 8.886764854192734}}, {{48.242147862911224`, 10.664107143878937`}, {48.242147862911224`, 23.511754387615838`}, {59.41401368379593, 29.960966289043427`}, {59.41401368379593, 17.113319045306525`}, {48.242147862911224`, 10.664107143878937`}}, {{33.515597462654114`, 32.50002670288086}, {46.718711614608765`, 40.11720794439316}, {59.921825766563416`, 32.50002670288086}, {46.718711614608765`, 24.88284546136856}, {33.515597462654114`, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.396078431372549, 0.6039215686274509, 0.30196078431372547`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{33.00778537988663, 31.73830857872963}, { 33.00778537988663, 16.503946095705032`}, {46.21089953184128, 8.886764854192734}, {46.21089953184128, 24.12112733721733}, { 33.00778537988663, 31.73830857872963}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgA2JWIGZiAIMz/8LFHBgYGs4xtDo6wPgJxpuLGj66g/iS /w8agOQ9GbS94fwFZ3yWNuxzccCin+W/uxCQPnCrYaEDMr+wwd4DxOf+f9QQ SDvYNvD5IPOXNRS4YNHfEP/PzA+Zv+vfHHck9XA+1Dy4eqh9GPrT/m3xRXJv w+Z/ch5I/oHwEf6FqEeEB7p+hm//vI1BtAKbgwKY/m8P9rcfa40+iD7676Yb NnmFfIcH9lj03/oXbIqp3szYilVNF8S//O+qK6Z8QJqexYVf9uj6ARROjv4= "]]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{7.109369158744812, 32.50002670288086}, { 7.109369158744812, 31.097747524374427`}, {5.972591313425198, 29.960966289043427`}, {4.570308744907379, 29.960966289043427`}, {3.168024481383867, 29.960966289043427`}, {2.0312483310699463`, 31.097747524374427`}, {2.0312483310699463`, 32.50002670288086}, {2.0312483310699463`, 33.90230975568602}, {3.168024481383867, 35.03908711671829}, { 4.570308744907379, 35.03908711671829}, {5.972591313425198, 35.03908711671829}, {7.109369158744812, 33.90230975568602}, { 7.109369158744812, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 56.36719459295273}, { 20.82029539346695, 54.96491250872225}, {19.683518032434677`, 53.828134179115295`}, {18.281234979629517`, 53.828134179115295`}, {16.878951926824357`, 53.828134179115295`}, {15.742174565792084`, 54.96491250872225}, {15.742174565792084`, 56.36719459295273}, {15.742174565792084`, 57.76947716147055}, {16.878951926824357`, 58.90625500679016}, {18.281234979629517`, 58.90625500679016}, {19.683518032434677`, 58.90625500679016}, {20.82029539346695, 57.76947716147055}, { 20.82029539346695, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 40.625020027160645`}, { 20.82029539346695, 39.222736974355485`}, {19.683518032434677`, 38.08595961332321}, {18.281234979629517`, 38.08595961332321}, {16.878951926824357`, 38.08595961332321}, {15.742174565792084`, 39.222736974355485`}, {15.742174565792084`, 40.625020027160645`}, {15.742174565792084`, 42.027303079965804`}, {16.878951926824357`, 43.16408044099808}, {18.281234979629517`, 43.16408044099808}, {19.683518032434677`, 43.16408044099808}, {20.82029539346695, 42.027303079965804`}, {20.82029539346695, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 24.375033378601074`}, { 20.82029539346695, 22.97275420009464}, {19.683518032434677`, 21.83597296476364}, {18.281234979629517`, 21.83597296476364}, {16.878951926824357`, 21.83597296476364}, {15.742174565792084`, 22.97275420009464}, {15.742174565792084`, 24.375033378601074`}, {15.742174565792084`, 25.777316431406234`}, {16.878951926824357`, 26.914093792438507`}, {18.281234979629517`, 26.914093792438507`}, {19.683518032434677`, 26.914093792438507`}, {20.82029539346695, 25.777316431406234`}, {20.82029539346695, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{20.82029539346695, 8.63285881280899}, { 20.82029539346695, 7.230591257198739}, {19.683518032434677`, 6.093798398971558}, {18.281234979629517`, 6.093798398971558}, {16.878951926824357`, 6.093798398971558}, {15.742174565792084`, 7.230591257198739}, {15.742174565792084`, 8.63285881280899}, { 15.742174565792084`, 10.035130242717969`}, { 16.878951926824357`, 11.171919226646423`}, { 18.281234979629517`, 11.171919226646423`}, { 19.683518032434677`, 11.171919226646423`}, {20.82029539346695, 10.035130242717969`}, {20.82029539346695, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 48.75001335144043}, { 35.03903371095657, 47.34773029863527}, {33.90225247562557, 46.210952937603}, {32.49997329711914, 46.210952937603}, { 31.09769024431398, 46.210952937603}, {29.960912883281708`, 47.34773029863527}, {29.960912883281708`, 48.75001335144043}, {29.960912883281708`, 50.15229543567091}, {31.09769024431398, 51.28907376527786}, { 32.49997329711914, 51.28907376527786}, {33.90225247562557, 51.28907376527786}, {35.03903371095657, 50.15229543567091}, { 35.03903371095657, 48.75001335144043}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 32.50002670288086}, { 35.03903371095657, 31.097747524374427`}, {33.90225247562557, 29.960966289043427`}, {32.49997329711914, 29.960966289043427`}, {31.09769024431398, 29.960966289043427`}, {29.960912883281708`, 31.097747524374427`}, {29.960912883281708`, 32.50002670288086}, {29.960912883281708`, 33.90230975568602}, {31.09769024431398, 35.03908711671829}, { 32.49997329711914, 35.03908711671829}, {33.90225247562557, 35.03908711671829}, {35.03903371095657, 33.90230975568602}, { 35.03903371095657, 32.50002670288086}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{35.03903371095657, 16.25004005432129}, { 35.03903371095657, 14.847760875814856`}, {33.90225247562557, 13.710979640483856`}, {32.49997329711914, 13.710979640483856`}, {31.09769024431398, 13.710979640483856`}, {29.960912883281708`, 14.847760875814856`}, {29.960912883281708`, 16.25004005432129}, {29.960912883281708`, 17.65232310712645}, {31.09769024431398, 18.789100468158722`}, {32.49997329711914, 18.789100468158722`}, {33.90225247562557, 18.789100468158722`}, {35.03903371095657, 17.65232310712645}, {35.03903371095657, 16.25004005432129}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 56.36719459295273}, { 49.2577720284462, 54.96491250872225}, {48.1209907931152, 53.828134179115295`}, {46.718711614608765`, 53.828134179115295`}, {45.316428561803605`, 53.828134179115295`}, {44.17965120077133, 54.96491250872225}, {44.17965120077133, 56.36719459295273}, { 44.17965120077133, 57.76947716147055}, {45.316428561803605`, 58.90625500679016}, {46.718711614608765`, 58.90625500679016}, {48.1209907931152, 58.90625500679016}, { 49.2577720284462, 57.76947716147055}, {49.2577720284462, 56.36719459295273}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 40.625020027160645`}, { 49.2577720284462, 39.222736974355485`}, {48.1209907931152, 38.08595961332321}, {46.718711614608765`, 38.08595961332321}, {45.316428561803605`, 38.08595961332321}, {44.17965120077133, 39.222736974355485`}, {44.17965120077133, 40.625020027160645`}, {44.17965120077133, 42.027303079965804`}, {45.316428561803605`, 43.16408044099808}, {46.718711614608765`, 43.16408044099808}, {48.1209907931152, 43.16408044099808}, { 49.2577720284462, 42.027303079965804`}, {49.2577720284462, 40.625020027160645`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 24.375033378601074`}, { 49.2577720284462, 22.97275420009464}, {48.1209907931152, 21.83597296476364}, {46.718711614608765`, 21.83597296476364}, {45.316428561803605`, 21.83597296476364}, {44.17965120077133, 22.97275420009464}, { 44.17965120077133, 24.375033378601074`}, {44.17965120077133, 25.777316431406234`}, {45.316428561803605`, 26.914093792438507`}, {46.718711614608765`, 26.914093792438507`}, {48.1209907931152, 26.914093792438507`}, {49.2577720284462, 25.777316431406234`}, {49.2577720284462, 24.375033378601074`}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{49.2577720284462, 8.63285881280899}, { 49.2577720284462, 7.230591257198739}, {48.1209907931152, 6.093798398971558}, {46.718711614608765`, 6.093798398971558}, {45.316428561803605`, 6.093798398971558}, {44.17965120077133, 7.230591257198739}, { 44.17965120077133, 8.63285881280899}, {44.17965120077133, 10.035130242717969`}, {45.316428561803605`, 11.171919226646423`}, {46.718711614608765`, 11.171919226646423`}, {48.1209907931152, 11.171919226646423`}, {49.2577720284462, 10.035130242717969`}, {49.2577720284462, 8.63285881280899}}}]}, {FaceForm[{RGBColor[ 0.9607843137254902, 0.5098039215686274, 0.20784313725490197`], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{62.968698263168335`, 32.50002670288086}, { 62.968698263168335`, 31.097747524374427`}, {61.83190540494115, 29.960966289043427`}, {60.4296378493309, 29.960966289043427`}, {59.027366419421924`, 29.960966289043427`}, {57.89057743549347, 31.097747524374427`}, {57.89057743549347, 32.50002670288086}, {57.89057743549347, 33.90230975568602}, { 59.027366419421924`, 35.03908711671829}, {60.4296378493309, 35.03908711671829}, {61.83190540494115, 35.03908711671829}, { 62.968698263168335`, 33.90230975568602}, {62.968698263168335`, 32.50002670288086}}}]}}, BaselinePosition->Scaled[0.15], ImageSize->10], StyleBox[ RowBox[{"ToCanonicalForm", " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->{Left, Baseline}, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], RowBox[{"PacletSymbol", "[", RowBox[{"\"Wolfram/CodeEquivalenceUtilities\"", ",", "\"ToCanonicalForm\""}], "]"}], TooltipStyle->{ShowAutoStyles -> True, ShowStringCharacters -> True}], Annotation[#, Style[ Defer[ PacletSymbol[ "Wolfram/CodeEquivalenceUtilities", "ToCanonicalForm"]], ShowStringCharacters -> True], "Tooltip"]& ], Background->RGBColor[0.968, 0.976, 0.984], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831, 0.847, 0.85], RoundingRadius->4], PacletSymbol["Wolfram/CodeEquivalenceUtilities", "ToCanonicalForm"], TaggingRules -> { "Paclet" -> "Wolfram/CodeEquivalenceUtilities", "Symbol" -> "ToCanonicalForm"}, BoxID -> "PacletSymbolBox", SelectWithContents->True, Selectable->False]}], "]"}]}]], "Input", TaggingRules->{}, CellLabel->"In[6]:=", CellID->615243750], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{ TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", RowBox[{"2", "+", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm], "\[Rule]", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "2"}]}], "}"}]}], "]"}], HoldForm], ",", TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"i", ",", RowBox[{"i", "+", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}], HoldForm]}], "}"}]}], ",", RowBox[{ TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", RowBox[{"2", "+", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm], "\[Rule]", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"Array", "[", RowBox[{"Range", ",", "5", ",", "3"}], "]"}], HoldForm], ",", TagBox[ RowBox[{"Range", "/@", RowBox[{"Range", "[", RowBox[{"3", ",", "7"}], "]"}]}], HoldForm]}], "}"}]}], ",", RowBox[{ TagBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], HoldForm], "\[Rule]", RowBox[{"{", RowBox[{ TagBox[ RowBox[{"First", "[", RowBox[{"Rest", "[", RowBox[{"Range", "/@", RowBox[{"Range", "[", "10", "]"}]}], "]"}], "]"}], HoldForm], ",", TagBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], HoldForm]}], "}"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellContext->"Cell$$3911`", CellLabel->"Out[6]=", CellID->1076759586] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"KeyValueMap", "[", RowBox[{ RowBox[{"Reverse", "@*", "List"}], ",", "grouped"}], "]"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[7]:=", CellID->249180527], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { TagBox[ RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "2"}]}], "}"}]}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"i", ",", RowBox[{"i", "+", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5"}], "}"}]}], "]"}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.1]}, Offset[0.2]}}], TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", RowBox[{"2", "+", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]}, {GridBox[{ { TagBox[ RowBox[{"Array", "[", RowBox[{"Range", ",", "5", ",", "3"}], "]"}], HoldForm]}, { TagBox[ RowBox[{"Range", "/@", RowBox[{"Range", "[", RowBox[{"3", ",", "7"}], "]"}]}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.1]}, Offset[0.2]}}], TagBox[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", RowBox[{"2", "+", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]]}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "5", ",", "1"}], "}"}]}], "]"}], HoldForm]}, {GridBox[{ { TagBox[ RowBox[{"First", "[", RowBox[{"Rest", "[", RowBox[{"Range", "/@", RowBox[{"Range", "[", "10", "]"}]}], "]"}], "]"}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{"j", ",", RowBox[{"{", RowBox[{"j", ",", "i"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "10"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.1]}, Offset[0.2]}}], TagBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S1", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S1, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]]], ",", "1", ",", InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ InterpretationBox[ TagBox[ TooltipBox[ StyleBox[ FrameBox[ RowBox[{ StyleBox["Global`S2", FontColor->RGBColor[{ Rational[47, 255], Rational[13, 51], Rational[6, 17]}]], StyleBox["\[Proportion]", FontColor->RGBColor[{ Rational[94, 255], Rational[43, 85], Rational[181, 255]}]], StyleBox["\[DoubleStruckCapitalZ]", FontColor->RGBColor[{ Rational[14, 51], Rational[97, 255], Rational[8, 15]}]]}], Background->RGBColor[0.84210425, 0.87669475, 0.9274495], ContentPadding->False, FrameStyle->None, RoundingRadius->5], FontSize->0.9 Inherited], "\"Wolfram`CodeEquivalenceUtilities`TypedSymbol[Wolfram`\ CodeEquivalenceUtilities`LocalSymbols`S2, _Integer]\""], #& ], Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]]], ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], HoldForm]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], TableForm[{{{ HoldForm[ Table[$CellContext`i, {$CellContext`i, 5}, {$CellContext`j, $CellContext`i + 2}]], HoldForm[ Table[ ConstantArray[$CellContext`i, $CellContext`i + 2], {$CellContext`i, 5}]]}, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 5, 1}]]}, {{ HoldForm[ Array[Range, 5, 3]], HoldForm[ Map[Range, Range[3, 7]]]}, HoldForm[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, 2 + Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 5, 1}]]}, {{ HoldForm[ First[ Rest[ Map[Range, Range[10]]]]], HoldForm[ Part[ Table[ Table[$CellContext`j, {$CellContext`j, $CellContext`i}], \ {$CellContext`i, 10}], 2]]}, HoldForm[ Part[ Table[ Table[ Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S1, Blank[Integer]], 1, Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1}], { Wolfram`CodeEquivalenceUtilities`TypedSymbol[ Wolfram`CodeEquivalenceUtilities`LocalSymbols`S2, Blank[Integer]], 1, 10, 1}], 2]]}}]]], "Output", TaggingRules->{}, CellContext->"Cell$$3911`", CellLabel->"Out[7]//TableForm=", CellID->253668633] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Wolfram/CodeEquivalenceUtilities | Example Notebook", Visible->True, TaggingRules->{ "Metadata" -> { "ResourceType" -> "Paclet", "Name" -> "Wolfram/CodeEquivalenceUtilities", "Property" -> "ExampleNotebook"}}, FrontEndVersion->"13.1 for Mac OS X x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}]}, Open]], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.1 for Mac OS X x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[645, 23, 168, 7, 70, "Subsection",ExpressionUUID->"68b442ac-7357-4465-8286-e9d1d0f95af6", CellID->462042388], Cell[816, 32, 95, 2, 70, "Text",ExpressionUUID->"11f8e4e6-9883-4cbc-adf0-e824c7eec67c", CellID->128039117], Cell[CellGroupData[{ Cell[936, 38, 19571, 338, 70, "Input",ExpressionUUID->"59cd00a0-3d01-4ee3-9665-0c6815d1d6ea", CellID->145660176], Cell[20510, 378, 123, 4, 70, "Output",ExpressionUUID->"7026e0aa-99b6-4d93-93ae-2296c274447c", CellID->1943201643] }, Open ]], Cell[CellGroupData[{ Cell[20670, 387, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"6b975973-ed92-4110-a10b-b110f4bea131", CellID->123543145], Cell[20817, 393, 104, 2, 70, "Text",ExpressionUUID->"cf853b49-34ac-4e46-ae03-435c057a060b", CellID->61801984], Cell[CellGroupData[{ Cell[20946, 399, 19496, 336, 70, "Input",ExpressionUUID->"db42c218-8597-4ebc-8b19-990ddfced155", CellID->30954357], Cell[40445, 737, 3608, 104, 70, "Output",ExpressionUUID->"7cc6796d-38f6-458d-bb6d-dd8eac79043b", CellID->1178824498] }, Open ]], Cell[CellGroupData[{ Cell[44090, 846, 19496, 336, 70, "Input",ExpressionUUID->"5898dd98-b526-48a9-a57d-efbebe6077f7", CellID->136440674], Cell[63589, 1184, 3608, 104, 70, "Output",ExpressionUUID->"bcf6d9aa-40ed-408b-853a-7f2d4a6899b4", CellID->1966694311] }, Open ]], Cell[67212, 1291, 85, 2, 70, "Text",ExpressionUUID->"69f0aa1e-410c-4a48-98ec-3df8e7133910", CellID->367095856], Cell[CellGroupData[{ Cell[67322, 1297, 113, 4, 70, "Input",ExpressionUUID->"926bbeb0-b258-42f8-9f2f-5a9926a05e41", CellID->53743161], Cell[67438, 1303, 123, 4, 70, "Output",ExpressionUUID->"e87d4937-7f3d-4255-bf89-16a244079dd7", CellID->1121617567] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[67622, 1314, 159, 7, 70, "Subsection",ExpressionUUID->"818fb3d0-8ea5-4c74-b9f3-596ba55bace6", CellID->365377965], Cell[67784, 1323, 109, 2, 70, "Text",ExpressionUUID->"d3f36c2a-cde6-4747-ad93-213669d98164", CellID->574259458], Cell[CellGroupData[{ Cell[67918, 1329, 20034, 353, 70, "Input",ExpressionUUID->"1c57db9c-29b2-423c-8576-71c08fbddd74", CellID->19701662], Cell[87955, 1684, 13033, 314, 70, "Output",ExpressionUUID->"57915a10-4fc3-4130-a0fa-df452d95b404", CellID->1296110786] }, Open ]], Cell[CellGroupData[{ Cell[101025, 2003, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"a713bdde-1c11-4baf-91de-2af7344a056a", CellID->183270128], Cell[101172, 2009, 154, 5, 70, "Text",ExpressionUUID->"e79127eb-9fd6-4e77-ab4a-fd7fa3f6d841", CellID->304712455], Cell[CellGroupData[{ Cell[101351, 2018, 19920, 340, 70, "Input",ExpressionUUID->"6feee5a5-a797-4949-9c78-accebf66f945", CellID->78977440], Cell[121274, 2360, 14555, 395, 70, "Output",ExpressionUUID->"581412fe-8148-4533-8ecc-60e792e6d555", CellID->1807348781] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[135878, 2761, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"50e0ee47-2c55-4908-b7ad-656da5b33e79", CellID->359786118], Cell[136025, 2767, 113, 2, 70, "Text",ExpressionUUID->"679dd482-db7a-4b87-ba56-e2c1db15d697", CellID->156285582], Cell[CellGroupData[{ Cell[136163, 2773, 19496, 336, 70, "Input",ExpressionUUID->"73b76d3d-68ce-4102-aadc-25ff77fcb106", CellID->756564778], Cell[155662, 3111, 3607, 104, 70, "Output",ExpressionUUID->"36c1a5dc-25da-41a0-8a2b-ccd28dda7793", CellID->201050931] }, Open ]], Cell[CellGroupData[{ Cell[159306, 3220, 19428, 334, 70, "Input",ExpressionUUID->"6dfe1a4b-f568-4c30-b200-32f3e1cbab5c", CellID->328679117], Cell[178737, 3556, 425, 14, 70, "Output",ExpressionUUID->"4f75c3c0-1b07-464f-be6d-0176439328b1", CellID->1064864972] }, Open ]], Cell[179177, 3573, 64, 2, 70, "Text",ExpressionUUID->"618708b6-a848-488b-84b1-255a40141664", CellID->479534276], Cell[CellGroupData[{ Cell[179266, 3579, 125, 4, 70, "Input",ExpressionUUID->"19e538af-f5a6-4ca1-b803-2e5fa619a7d6", CellID->70732566], Cell[179394, 3585, 194, 6, 70, "Output",ExpressionUUID->"ded2ee22-55d2-4841-a204-5a7820145f08", CellID->563209876] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[179649, 3598, 167, 7, 70, "Subsection",ExpressionUUID->"13c2e9f2-8e1d-40ee-8304-8dea3388a1c8", CellID->170216056], Cell[179819, 3607, 133, 4, 70, "Text",ExpressionUUID->"b4488a6b-2045-4d28-90fa-20c38cebe547", CellID->142845178], Cell[179955, 3613, 1755, 51, 70, "Input",ExpressionUUID->"e6a5b0af-6dcb-43a0-bdd6-b58cacb9240d", CellID->8689250], Cell[181713, 3666, 110, 2, 70, "Text",ExpressionUUID->"00445496-4bcc-4283-961a-50dfb89f8077", CellID->6364326], Cell[CellGroupData[{ Cell[181848, 3672, 22103, 384, 70, "Input",ExpressionUUID->"aff87f7e-db06-460f-b1f0-7b25106ba9a3", CellID->10456278], Cell[203954, 4058, 221, 8, 70, "Output",ExpressionUUID->"199ac8cc-80e0-4289-be04-523b2b2ab5d8", CellID->997781720] }, Open ]], Cell[204190, 4069, 90, 2, 70, "Text",ExpressionUUID->"edbf6e2e-116f-4a55-a981-5060430bd5dd", CellID->380755029], Cell[CellGroupData[{ Cell[204305, 4075, 316, 11, 70, "Input",ExpressionUUID->"2588cfbf-0543-4bd7-84d1-16849b33101b", CellID->7543077], Cell[204624, 4088, 27223, 603, 70, "Output",ExpressionUUID->"b34dad39-c09a-4dce-a4fb-f44aa27f013e", CellID->17568617] }, Open ]], Cell[231862, 4694, 74, 2, 70, "Text",ExpressionUUID->"337b52f9-60e9-433a-99a9-9b4f060d7bb1", CellID->629391993], Cell[231939, 4698, 1261, 33, 70, "Input",ExpressionUUID->"1b46e458-472b-4fcc-902c-033104ae253a", CellID->81711613], Cell[233203, 4733, 127, 4, 70, "Text",ExpressionUUID->"5ce17dd7-ef8e-48ea-9809-10aed899f0a8", CellID->127544466], Cell[CellGroupData[{ Cell[233355, 4741, 160, 5, 70, "Input",ExpressionUUID->"8644d86a-ddaa-4997-8b70-660a297b7e83", CellID->347655374], Cell[233518, 4748, 127437, 2906, 70, "Output",ExpressionUUID->"44b22918-2266-4ab6-a8ca-f4469cf89592", CellID->1168751809] }, Open ]], Cell[360970, 7657, 128, 4, 70, "Text",ExpressionUUID->"3a09f51b-bf51-48d0-99a4-7ac8f2527dc0", CellID->323935280], Cell[CellGroupData[{ Cell[361123, 7665, 20499, 358, 70, "Input",ExpressionUUID->"98cf3d36-04dc-4ca3-8cf7-da362d5b8946", CellID->615243750], Cell[381625, 8025, 18337, 490, 70, "Output",ExpressionUUID->"668c1a48-2130-45c2-b81f-eb4e17f9082b", CellID->1076759586] }, Open ]], Cell[CellGroupData[{ Cell[399999, 8520, 230, 8, 70, "Input",ExpressionUUID->"a95e129e-eae0-4c2f-b5c5-75a8c00840c7", CellID->249180527], Cell[400232, 8530, 22421, 594, 70, "Output",ExpressionUUID->"9e9e41c8-e772-4c93-b688-c38808ac0341", CellID->253668633] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)