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

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

(* CreatedBy='Mathematica 14.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    248801,       5302]
NotebookOptionsPosition[     73493,       1686]
NotebookOutlinePosition[    237467,       5094]
CellTagsIndexPosition[    237397,       5089]
WindowTitle->8. Modular Arithmetic | Introduction to Number Theory
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 
 CounterBox["Section"],
 StyleBox[" | ", "SectionBar"],
 "Modular Arithmetic"
}], "Section",
 CellChangeTimes->{3.652728456208679*^9, 3.652728527108994*^9, 
  3.931844001783235*^9},
 CounterAssignments->{{"Section", 7}},
 CellID->1337320108,ExpressionUUID->"53e190f7-78a8-444f-838a-e564c0e6d74b"],

Cell[BoxData[
 GraphicsBox[{
   {GrayLevel[1], EdgeForm[None], FilledCurveBox[{Line[CompressedData["
1:eJxdlD9I1HEYxq9OkE6K5EiENIq4ScixJXiGGpyizJBObaiOBiEn6c8Qubg0
NAg6iENNJzQ0ZEQOz02G04FxiCRxlYf59+cgCBJ3FbyP0HNw/OB+9/1+3/f5
fN7vhXsjvYXjqVSq8Pf77/n/Zw9PJ6pnM9l3rF9dYyVJUB14PbSVKTG98qLv
IRM8eZYudPz+zMaJ3NvaowSTzR2HrZUyq+dOd76p7+LGRvflZOELG33XsqdG
dtE+W+zJv1pmLZ/MfCrtYGYst3iAr3x5ZnW1f38bvbMcPFn5xjulsevvM9u4
2dV+5XnuO8cvPWjMN23hbn606WL5B4v7U9OPf25g/thcfaGwxs3hgfstxV/I
nm+9XV6vse3jUvrDrXXEk/E74n+MdYh9GPsizmGci6iDUReiTkbdiD4YfSH6
ZPSNyIGRCyInRm6IHBm5InJm5I7gQBGx97T1tP1p59Pqo9VP64/WPy0fWn60
fGn50/jQ+NH40vjT/KD5Q/OL5h/NT5q/NL9p/tPm44iT3ouj1ouz9pcHOl+e
qD55pPrlmfqTh+pfniofeaz85Lny1Rwof82JuGiOxEVzJi6aQ3HRnIqL5lhc
NOfiontAXHRPHPkZ94i46J4RF91D4qJ7yuZD72HrYfvDzofVB6sf1h+sf1g+
sPxg+cLyh/GB8YPxhfGH+QHzB+YXzD+YnzB/YX7D/IfNB/4AIeJFiw==
       "]]}]}, GraphicsGroupBox[
    {GrayLevel[0.8], EdgeForm[{GrayLevel[0.6], Thickness[0.01]}], 
     FilledCurveBox[{{Line[CompressedData["
1:eJxdlD9I1HEYxq9OkE6K5EiENIq4ScixJXiGGpyizJBObaiOBiEn6c8Qubg0
NAg6iENNJzQ0ZEQOz02G04FxiCRxlYf59+cgCBJ3FbyP0HNw/OB+9/1+3/f5
fN7vhXsjvYXjqVSq8Pf77/n/Zw9PJ6pnM9l3rF9dYyVJUB14PbSVKTG98qLv
IRM8eZYudPz+zMaJ3NvaowSTzR2HrZUyq+dOd76p7+LGRvflZOELG33XsqdG
dtE+W+zJv1pmLZ/MfCrtYGYst3iAr3x5ZnW1f38bvbMcPFn5xjulsevvM9u4
2dV+5XnuO8cvPWjMN23hbn606WL5B4v7U9OPf25g/thcfaGwxs3hgfstxV/I
nm+9XV6vse3jUvrDrXXEk/E74n+MdYh9GPsizmGci6iDUReiTkbdiD4YfSH6
ZPSNyIGRCyInRm6IHBm5InJm5I7gQBGx97T1tP1p59Pqo9VP64/WPy0fWn60
fGn50/jQ+NH40vjT/KD5Q/OL5h/NT5q/NL9p/tPm44iT3ouj1ouz9pcHOl+e
qD55pPrlmfqTh+pfniofeaz85Lny1Rwof82JuGiOxEVzJi6aQ3HRnIqL5lhc
NOfiontAXHRPHPkZ94i46J4RF91D4qJ7yuZD72HrYfvDzofVB6sf1h+sf1g+
sPxg+cLyh/GB8YPxhfGH+QHzB+YXzD+YnzB/YX7D/IfNB/4AIeJFiw==
         "]]}, {Line[CompressedData["
1:eJxllT9I1HEYxn/XoBFIUJDk4D8auoKQREGHHhAHHaQ/EAonQpkJgRU4uFjU
0FZDg4OImINg4lC2BAlPDlERRFcaNAjWaR5d6Ek1iA0WvE/D08Fx/O53v+/3
fZ/P5/1ezcVr5/r2JEnS/+f991OvqjuFs08rt+DXhdrF8fL6x5zrPpI5cGgL
p2tvd/cfW2DT9lh9+ncRw8nUicLD17w0v7a3PFvE4UzP9PPSLD9P5HtKR4p4
O3I86Uwv8U1fPtfYVkRZ80zV3YZPnKi7evnr0iZyN4Zq2o8uc/P+aFnDzgYm
sy8HXt1c4bt76UeNqQ0sttz6sdD1hV0/H6ys57/jCl60nqxeZcmZ1PveJwWc
/zh+quPDGif3zzblLnzDvlRFe+b6Oud6Bw8++5VHfDK+R/yO8RxiHca6iH0Y
+yLqYNSFqJNRN6IPRl+IPhl9I3Jg5ILIiZEbIkdGroicGbkjOFBc7D7tedr6
tP1p9dHqp/VH65+WDy0/Wr60/Gl8aPxofGn8aX7Q/KH5RfOP5ifNX5rfNP9p
8/GPk+6Lo54XZ60vD7S/PFF98kj1yzP1Jw/VvzxVPvJY+clz5as5UP6aE3HR
HImL5kxcNIfiojkVF82xuGjOxUXngLjonBAXnSPionNGXHQOiYufW3Yf9jxs
fdj+sPpg9cP6g/UPyweWHyxfWP4wPjB+ML4w/jA/YP7A/IL5B/MT5i/Mb5j/
//1/+PUuQA89pA==
         "]]}}]}], {}, 
   {GrayLevel[0.5], Thickness[0.006], CapForm["Butt"], 
    StyleBox[{{
       LineBox[{{{2.8473038080175964`*^-16, 0.93}, 
          Scaled[{0., -0.03}, {2.8473038080175964`*^-16, 0.93}]}, {{
          0.4650000000000005, 0.8054036255195277}, 
          Scaled[{-0.015000000000000013`, -0.02598076211353315}, {
           0.4650000000000005, 0.8054036255195277}]}, {{0.8054036255195279, 
          0.465}, Scaled[{-0.025980762113533156`, -0.015}, {
           0.8054036255195279, 0.465}]}, {{0.93, -2.277843046414077*^-16}, 
          Scaled[{-0.03, 0.}, {0.93, -2.277843046414077*^-16}]}, {{
          0.8054036255195282, -0.4649999999999997}, 
          Scaled[{-0.02598076211353315, 0.015000000000000013`}, {
           0.8054036255195282, -0.4649999999999997}]}, {{
          0.46500000000000014`, -0.8054036255195279}, 
          Scaled[{-0.015000000000000003`, 0.025980762113533156`}, {
           0.46500000000000014`, -0.8054036255195279}]}, \
{{-1.7083822848105578`*^-16, -0.93}, 
          Scaled[{0., 
           0.03}, {-1.7083822848105578`*^-16, -0.93}]}, \
{{-0.46499999999999964`, -0.8054036255195282}, 
          Scaled[{0.014999999999999987`, 
           0.025980762113533163`}, {-0.46499999999999964`, \
-0.8054036255195282}]}, {{-0.8054036255195279, -0.46500000000000014`}, 
          Scaled[{0.025980762113533156`, 
           0.015000000000000003`}, {-0.8054036255195279, \
-0.46500000000000014`}]}, {{-0.93, 1.1389215232070384`*^-16}, 
          Scaled[{0.03, 0.}, {-0.93, 
           1.1389215232070384`*^-16}]}, {{-0.8054036255195283, 
          0.46499999999999964`}, 
          Scaled[{0.025980762113533167`, -0.014999999999999986`}, \
{-0.8054036255195283, 0.46499999999999964`}]}, {{-0.46500000000000025`, 
          0.8054036255195279}, 
          Scaled[{0.015000000000000006`, -0.025980762113533156`}, \
{-0.46500000000000025`, 0.8054036255195279}]}, {{5.694607616035192*^-17, 
          0.93}, Scaled[{0., -0.03}, {5.694607616035192*^-17, 0.93}]}}], 
       LineBox[{{{0.09721147083891774, 0.9249053626924942}, 
          Scaled[{-0.0020905692653530694`, -0.019890437907365468`}, {
           0.09721147083891774, 0.9249053626924942}]}, {{0.19335787246051675`,
           0.9096772686824391}, 
          Scaled[{-0.0041582338163551995`, -0.019562952014676113`}, {
           0.19335787246051675`, 0.9096772686824391}]}, {{0.2873858047687014, 
          0.8844825601544928}, 
          Scaled[{-0.0061803398874989545`, -0.019021130325903076`}, {
           0.2873858047687014, 0.8844825601544928}]}, {{0.3782650780604942, 
          0.8495972756076189}, 
          Scaled[{-0.008134732861516007, -0.01827090915285202}, {
           0.3782650780604942, 0.8495972756076189}]}, {{0.5466402846320002, 
          0.752385804768701}, 
          Scaled[{-0.011755705045849468`, -0.016180339887498944`}, {
           0.5466402846320002, 0.752385804768701}]}, {{0.6222914639137382, 
          0.6911246876939767}, 
          Scaled[{-0.013382612127177165`, -0.014862896509547885`}, {
           0.6222914639137382, 0.6911246876939767}]}, {{0.691124687693977, 
          0.6222914639137378}, 
          Scaled[{-0.014862896509547892`, -0.013382612127177156`}, {
           0.691124687693977, 0.6222914639137378}]}, {{0.7523858047687013, 
          0.5466402846319999}, 
          Scaled[{-0.016180339887498955`, -0.011755705045849461`}, {
           0.7523858047687013, 0.5466402846319999}]}, {{0.8495972756076191, 
          0.37826507806049375`}, 
          Scaled[{-0.01827090915285202, -0.008134732861515996}, {
           0.8495972756076191, 0.37826507806049375`}]}, {{0.8844825601544929, 
          0.2873858047687009}, 
          Scaled[{-0.019021130325903073`, -0.006180339887498943}, {
           0.8844825601544929, 0.2873858047687009}]}, {{0.9096772686824393, 
          0.19335787246051622`}, 
          Scaled[{-0.019562952014676116`, -0.004158233816355188}, {
           0.9096772686824393, 0.19335787246051622`}]}, {{0.9249053626924942, 
          0.09721147083891805}, 
          Scaled[{-0.019890437907365468`, -0.0020905692653530763`}, {
           0.9249053626924942, 0.09721147083891805}]}, {{
          0.9249053626924942, -0.09721147083891768}, 
          Scaled[{-0.019890437907365468`, 0.0020905692653530685`}, {
           0.9249053626924942, -0.09721147083891768}]}, {{
          0.9096772686824394, -0.19335787246051586`}, 
          Scaled[{-0.019562952014676116`, 0.004158233816355199}, {
           0.9096772686824394, -0.19335787246051586`}]}, {{
          0.8844825601544928, -0.28738580476870135`}, 
          Scaled[{-0.019021130325903076`, 0.0061803398874989545`}, {
           0.8844825601544928, -0.28738580476870135`}]}, {{
          0.8495972756076189, -0.37826507806049414`}, 
          Scaled[{-0.01827090915285202, 0.008134732861516005}, {
           0.8495972756076189, -0.37826507806049414`}]}, {{
          0.7523858047687011, -0.5466402846320002}, 
          Scaled[{-0.016180339887498948`, 0.011755705045849468`}, {
           0.7523858047687011, -0.5466402846320002}]}, {{
          0.6911246876939762, -0.6222914639137387}, 
          Scaled[{-0.014862896509547875`, 0.013382612127177175`}, {
           0.6911246876939762, -0.6222914639137387}]}, {{
          0.6222914639137384, -0.6911246876939765}, 
          Scaled[{-0.013382612127177156`, 0.014862896509547892`}, {
           0.6222914639137384, -0.6911246876939765}]}, {{
          0.5466402846319999, -0.7523858047687013}, 
          Scaled[{-0.011755705045849461`, 0.016180339887498955`}, {
           0.5466402846319999, -0.7523858047687013}]}, {{
          0.37826507806049453`, -0.8495972756076188}, 
          Scaled[{-0.008134732861515996, 0.01827090915285202}, {
           0.37826507806049453`, -0.8495972756076188}]}, {{
          0.28738580476870096`, -0.8844825601544929}, 
          Scaled[{-0.006180339887498945, 0.019021130325903073`}, {
           0.28738580476870096`, -0.8844825601544929}]}, {{
          0.1933578724605163, -0.9096772686824393}, 
          Scaled[{-0.00415823381635519, 0.019562952014676116`}, {
           0.1933578724605163, -0.9096772686824393}]}, {{
          0.09721147083891811, -0.9249053626924942}, 
          Scaled[{-0.00209056926535306, 0.019890437907365468`}, {
           0.09721147083891811, -0.9249053626924942}]}, \
{{-0.09721147083891762, -0.9249053626924943}, 
          Scaled[{0.0020905692653530672`, 
           
           0.019890437907365468`}, {-0.09721147083891762, \
-0.9249053626924943}]}, {{-0.1933578724605158, -0.9096772686824394}, 
          Scaled[{0.004158233816355197, 
           0.019562952014676116`}, {-0.1933578724605158, \
-0.9096772686824394}]}, {{-0.28738580476870124`, -0.8844825601544928}, 
          Scaled[{0.006180339887498953, 
           0.019021130325903076`}, {-0.28738580476870124`, \
-0.8844825601544928}]}, {{-0.3782650780604941, -0.849597275607619}, 
          Scaled[{0.008134732861516001, 
           0.01827090915285202}, {-0.3782650780604941, -0.849597275607619}]}, \
{{-0.5466402846320001, -0.7523858047687011}, 
          Scaled[{0.011755705045849465`, 
           0.016180339887498948`}, {-0.5466402846320001, \
-0.7523858047687011}]}, {{-0.6222914639137381, -0.6911246876939768}, 
          Scaled[{0.013382612127177163`, 
           0.014862896509547887`}, {-0.6222914639137381, \
-0.6911246876939768}]}, {{-0.6911246876939764, -0.6222914639137385}, 
          Scaled[{0.014862896509547878`, 
           0.013382612127177172`}, {-0.6911246876939764, \
-0.6222914639137385}]}, {{-0.7523858047687012, -0.546640284632}, 
          Scaled[{0.016180339887498955`, 
           0.011755705045849463`}, {-0.7523858047687012, -0.546640284632}]}, \
{{-0.8495972756076188, -0.3782650780604946}, 
          Scaled[{0.01827090915285202, 
           0.008134732861516007}, {-0.8495972756076188, \
-0.3782650780604946}]}, {{-0.8844825601544929, -0.287385804768701}, 
          Scaled[{0.019021130325903076`, 
           0.006180339887498938}, {-0.8844825601544929, \
-0.287385804768701}]}, {{-0.9096772686824393, -0.19335787246051636`}, 
          Scaled[{0.019562952014676116`, 
           0.004158233816355192}, {-0.9096772686824393, \
-0.19335787246051636`}]}, {{-0.9249053626924943, -0.09721147083891735}, 
          Scaled[{0.019890437907365468`, 
           0.002090569265353061}, {-0.9249053626924943, \
-0.09721147083891735}]}, {{-0.9249053626924943, 0.09721147083891757}, 
          Scaled[{0.019890437907365468`, -0.0020905692653530573`}, \
{-0.9249053626924943, 0.09721147083891757}]}, {{-0.9096772686824394, 
          0.19335787246051575`}, 
          Scaled[{0.01956295201467612, -0.004158233816355179}, \
{-0.9096772686824394, 0.19335787246051575`}]}, {{-0.8844825601544931, 
          0.2873858047687004}, 
          Scaled[{0.019021130325903076`, -0.006180339887498934}, \
{-0.8844825601544931, 0.2873858047687004}]}, {{-0.849597275607619, 
          0.37826507806049403`}, 
          Scaled[{0.018270909152852025`, -0.008134732861515993}, \
{-0.849597275607619, 0.37826507806049403`}]}, {{-0.7523858047687015, 
          0.5466402846319994}, 
          Scaled[{0.016180339887498958`, -0.01175570504584945}, \
{-0.7523858047687015, 0.5466402846319994}]}, {{-0.6911246876939768, 
          0.622291463913738}, 
          Scaled[{0.014862896509547892`, -0.013382612127177155`}, \
{-0.6911246876939768, 0.622291463913738}]}, {{-0.6222914639137385, 
          0.6911246876939764}, 
          Scaled[{0.013382612127177172`, -0.014862896509547878`}, \
{-0.6222914639137385, 0.6911246876939764}]}, {{-0.546640284632, 
          0.7523858047687012}, 
          Scaled[{0.011755705045849463`, -0.016180339887498955`}, \
{-0.546640284632, 0.7523858047687012}]}, {{-0.37826507806049464`, 
          0.8495972756076187}, 
          Scaled[{0.008134732861516013, -0.018270909152852014`}, \
{-0.37826507806049464`, 0.8495972756076187}]}, {{-0.287385804768701, 
          0.8844825601544929}, 
          Scaled[{0.006180339887498947, -0.019021130325903073`}, \
{-0.287385804768701, 0.8844825601544929}]}, {{-0.19335787246051642`, 
          0.9096772686824393}, 
          Scaled[{0.0041582338163551925`, -0.019562952014676116`}, \
{-0.19335787246051642`, 0.9096772686824393}]}, {{-0.0972114708389174, 
          0.9249053626924943}, 
          Scaled[{0.0020905692653530625`, -0.019890437907365468`}, \
{-0.0972114708389174, 0.9249053626924943}]}}]}, 
      {GrayLevel[0.25], 
       StyleBox[{{{
           InsetBox["\<\"\"\>", Offset[{0., -3.}, 
            Scaled[{0., -0.03}, {2.8473038080175964*^-16, 0.93}]], 
            ImageScaled[{0.5, 1.}], Automatic, {1, 0}], 
           InsetBox["1", Offset[{-1.5000000000000013, -2.598076211353315}, 
            Scaled[{-0.015000000000000013, -0.02598076211353315}, \
{0.4650000000000005, 0.8054036255195277}]], 
            ImageScaled[{0.7886751345948133, 1.}], Automatic, {1, 0}], 
           InsetBox["2", Offset[{-2.598076211353316, -1.5}, Scaled[{-0.025980762113533156, -0.015},
             {0.8054036255195279, 0.465}]], 
            ImageScaled[{1, 0.7886751345948129}], Automatic, {1, 0}], 
           InsetBox["3", Offset[{-3., 0.}, 
            Scaled[{-0.03, 0.}, {0.93, -2.277843046414077*^-16}]], 
            ImageScaled[{1, 0.5}], Automatic, {1, 0}], 
           InsetBox["4", Offset[{-2.598076211353315, 1.5000000000000013}, 
            Scaled[{-0.02598076211353315, 0.015000000000000013}, \
{0.8054036255195282, -0.4649999999999997}]], 
            ImageScaled[{1, 0.21132486540518675}], Automatic, {1, 0}], 
           InsetBox["5", Offset[{-1.5000000000000004, 2.598076211353316}, 
            Scaled[{-0.015000000000000003, 0.025980762113533156}, \
{0.46500000000000014, -0.8054036255195279}]], 
            ImageScaled[{0.788675134594813, 0.}], Automatic, {1, 0}], 
           InsetBox["6", Offset[{0., 3.}, 
            Scaled[{0., 0.03}, {-1.7083822848105578*^-16, -0.93}]], 
            ImageScaled[{0.5, 0.}], Automatic, {1, 0}], 
           InsetBox["7", Offset[{1.499999999999999, 2.5980762113533165}, 
            Scaled[{0.014999999999999987, 0.025980762113533163}, \
{-0.46499999999999964, -0.8054036255195282}]], 
            ImageScaled[{0.2113248654051874, 0.}], Automatic, {1, 0}], 
           InsetBox["8", Offset[{2.598076211353316, 1.5000000000000004}, 
            Scaled[{0.025980762113533156, 0.015000000000000003}, \
{-0.8054036255195279, -0.46500000000000014}]], 
            ImageScaled[{0, 0.21132486540518702}], Automatic, {1, 0}], 
           InsetBox["9", Offset[{3., 0.}, 
            Scaled[{0.03, 0.}, {-0.93, 1.1389215232070384*^-16}]], 
            ImageScaled[{0, 0.5}], Automatic, {1, 0}], 
           InsetBox["10", Offset[{2.598076211353317, -1.4999999999999987}, 
            Scaled[{0.025980762113533167, -0.014999999999999986}, \
{-0.8054036255195283, 0.46499999999999964}]], 
            ImageScaled[{0, 0.7886751345948125}], Automatic, {1, 0}], 
           InsetBox["11", Offset[{1.5000000000000007, -2.598076211353316}, 
            Scaled[{0.015000000000000006, -0.025980762113533156}, \
{-0.46500000000000025, 0.8054036255195279}]], 
            ImageScaled[{0.21132486540518697, 1.}], Automatic, {1, 0}], 
           InsetBox["12", Offset[{0., -3.}, 
            Scaled[{0., -0.03}, {5.694607616035192*^-17, 0.93}]], 
            ImageScaled[{0.5, 1.}], Automatic, {1, 
            0}]}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
        StripOnInput->False,
        FontFamily->"Helvetica",
        FontSize->Scaled[0.07]]}},
     StripOnInput->False,
     Antialiasing->True]}, {}, {}, {GeometricTransformationBox[InsetBox[
      GraphicsBox[
       {RGBColor[
        0.73, 0.24506099999999992`, 0.1971], {
         PolygonBox[{{0, -0.08}, {1, -0.04}, {1, 0.04}, {0, 0.08}}], 
         DiskBox[{0, 0}, 0.09]}, 
        {GrayLevel[1], DiskBox[{0, 0}, 0.03]}}], {0, 0}, {0, 0}, {1, 1}], {{{
      0.31125000000000036`, -0.539100813855813}, {0.539100813855813, 
      0.31125000000000036`}}, {0., 0.}}], 
    GeometricTransformationBox[InsetBox[
      GraphicsBox[
       {RGBColor[
        0.73, 0.24506099999999992`, 0.1971], {
         PolygonBox[{{0, -0.05}, {1, -0.02}, {1, 0.02}, {0, 0.05}}], 
         DiskBox[{0, 0}, 0.09]}, 
        {GrayLevel[1], DiskBox[{0, 0}, 0.03]}}], {0, 0}, {0, 0}, {1, 1}], {{{
      3.0493705298769094`*^-16, -0.996}, {0.996, 3.0493705298769094`*^-16}}, {
      0., 0.}}], GeometricTransformationBox[InsetBox[
      GraphicsBox[
       {GrayLevel[
        0.5], {PolygonBox[{{-0.2, -0.03}, {1, -0.01}, {1, 0.01}, {-0.2, 
           0.03}}], DiskBox[{0, 0}, 0.07]}, 
        {GrayLevel[1], DiskBox[{0, 0}, 0.03]}}], {0, 0}, {0, 0}, {1, 1}], {{{
      3.303484740699986*^-16, -1.0790000000000002`}, {1.0790000000000002`, 
      3.303484740699986*^-16}}, {0., 0.}}]}, {}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FormatType->TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Small,
  ImageSizeRaw->Automatic,
  LabelStyle->Directive[
    GrayLevel[0.25], FontSize -> Scaled[0.07], FontFamily -> "Helvetica"],
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->Automatic,
  TicksStyle->{}]], "Output",
 CellChangeTimes->{3.865937010605805*^9, 3.867140869500038*^9, 
  3.8700567548678007`*^9, 3.870148063790803*^9, 3.931844008660829*^9, 
  3.9357404932938347`*^9, 3.936243120832829*^9},
 CellID->334209093,ExpressionUUID->"4366af39-1ab8-4348-bbe1-0c2b9475bd24"],

Cell[TextData[{
 "Number theory has an algebra of its own, known as ",
 StyleBox["modular arithmetic",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.8884783550894556`*^9, 3.888478359627501*^9}, {
  3.8901168418676157`*^9, 3.8901168421616845`*^9}},
 CellID->531015943,ExpressionUUID->"0764f9ed-784a-4f89-972c-8c78778311c9"],

Cell[TextData[{
 "A significant number of astronomical and chronological problems related to \
periodicity may be framed within a number theoretical context. A prominent \
example is determining the day of the week corresponding to a given date. To \
simplify things, instead of using the names for the days of the week, we can \
number them ",
 Cell[BoxData[
  FormBox[
   RowBox[{"1", "\[Dash]", "7"}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"f7928bbc-5aa0-4714-b1d3-1e54b4460be4"],
 ", reflecting their recurring seven-day cycle."
}], "Text",
 Background->None,
 CellID->1793865390,ExpressionUUID->"34f8bc56-8057-47d5-9afa-d1d99c23b830"],

Cell["\<\
Congruence theory also helps create round-robin schedules for various \
competitions, from chess to baseball.\
\>", "Text",
 CellChangeTimes->{{3.899864647295184*^9, 3.899864648381977*^9}, {
   3.930821286963181*^9, 3.930821288026003*^9}, {3.943358071601202*^9, 
   3.943358072640484*^9}, 3.955770618074473*^9},
 Background->None,
 CellID->1902745531,ExpressionUUID->"59237c14-b9a9-4238-afcc-cc05ba0bffb3"],

Cell["\<\
Algebra initially served as a concise notation for arithmetic operations. \
Likewise, congruences serve as a symbolic representation of divisibility.\
\>", "Text",
 CellChangeTimes->{{3.804328280136605*^9, 3.8043283032628064`*^9}, {
   3.8043283657510104`*^9, 3.8043283718624573`*^9}, {3.888478352075547*^9, 
   3.8884783695260634`*^9}, {3.9308212911990147`*^9, 3.930821291475316*^9}, {
   3.94914303720706*^9, 3.949143037778633*^9}, 3.955770774869969*^9},
 Background->None,
 CellID->1990400716,ExpressionUUID->"f1ab7516-0590-4cbb-87a7-448d6f6e2fcb"],

Cell[TextData[{
 "In this lesson, you will see that modular arithmetic is a strictly finite \
science, and you will grasp the intuition behind periodic events in life, the \
most basic of which is the ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "4b287221-046f-4a49-a639-1783f50fda9b"],
 "-hour clock."
}], "Text",
 CellID->1312064493,ExpressionUUID->"6c9b9133-bf21-4754-a03a-21f5d80e56e7"],

Cell[CellGroupData[{

Cell["The Idea Behind Modular Arithmetic", "Subsection",
 CellChangeTimes->{
  3.705661467691627*^9, 3.705664374467309*^9, {3.7060082906402617`*^9, 
   3.706008311777977*^9}, {3.7064363069028683`*^9, 3.706436310703199*^9}, {
   3.712678137971904*^9, 3.7126781412924356`*^9}, {3.870056657193218*^9, 
   3.870056664071675*^9}, {3.888478910632025*^9, 3.8884789279024267`*^9}},
 CellID->666589290,ExpressionUUID->"d04e9db9-57cc-45fc-b775-7efcd2644359"],

Cell["\<\
Modular arithmetic is the basis for so many things in our daily life. \
\>", "Text",
 CellChangeTimes->{{3.8006986689072227`*^9, 3.800698740267233*^9}, 
   3.888479012106491*^9},
 CellID->2091494278,ExpressionUUID->"5c4f9fb6-7567-4032-838f-eff8f6a11954"],

Cell["\<\
All of the things that are periodic can be interpreted as a modular \
arithmetic. \
\>", "Text",
 CellChangeTimes->{
  3.88847901662492*^9, {3.94335819063772*^9, 3.943358191087576*^9}},
 CellID->1731996250,ExpressionUUID->"b1e371aa-278f-46bd-b300-3b8ad733420f"],

Cell["The periodic things in our lives are countless:", "Text",
 CellChangeTimes->{{3.800698746156851*^9, 3.8006987936436152`*^9}, {
  3.8884790298160105`*^9, 3.8884790583514614`*^9}, {3.9433581993185825`*^9, 
  3.9433581997717896`*^9}, {3.949144746737816*^9, 3.9491447471300297`*^9}},
 CellID->520138665,ExpressionUUID->"c105eb62-6f2b-4bba-accf-a9b5b9f525fc"],

Cell[CellGroupData[{

Cell[TextData[{
 "A minute has ",
 Cell[BoxData[
  FormBox["60", TraditionalForm]], "InlineMath",ExpressionUUID->
  "62f5cffb-9473-40b5-824c-39f97a00299d"],
 " seconds"
}], "Item",
 CellID->1712099365,ExpressionUUID->"0dfbb4a8-3c5b-4816-bfc5-34af1992dc54"],

Cell[TextData[{
 "An hour has ",
 Cell[BoxData[
  FormBox["60", TraditionalForm]], "InlineMath",ExpressionUUID->
  "de6fe27d-d191-4fcf-a647-6a83ce9aef5d"],
 " minutes"
}], "Item",
 CellID->1120641402,ExpressionUUID->"d9ea196e-2d17-4b6c-839d-d21cb6c20899"],

Cell["A week has seven days", "Item",
 CellChangeTimes->{{3.8884790315283985`*^9, 3.888479052232237*^9}, {
  3.9491447577885723`*^9, 3.949144758314047*^9}},
 CellID->1188459224,ExpressionUUID->"8015d45f-c6a0-4239-971f-634d147505c6"],

Cell["\[Ellipsis]", "Item",
 CellChangeTimes->{{3.8884790315283985`*^9, 3.8884790534217787`*^9}, {
  3.9491429322420616`*^9, 3.949142935355591*^9}},
 CellID->688777021,ExpressionUUID->"04eadce2-ebb6-4c5c-991b-ed15724a7a3e"]
}, Open  ]],

Cell[TextData[{
 "For instance, the statement \[OpenCurlyDoubleQuote]today is Thursday\
\[CloseCurlyDoubleQuote] reflects the congruence property modulo ",
 Cell[BoxData[
  FormBox["7", TraditionalForm]], "InlineMath",ExpressionUUID->
  "5970ca49-7f54-4c70-a76b-94e2286f5c4a"],
 " of the days passed since a fixed date."
}], "Text",
 Background->None,
 CellID->505522827,ExpressionUUID->"4fbdb166-4178-4296-9de2-10aaf3a3d6e1"],

Cell["\<\
This property is typically more significant than the actual number of days \
that have passed since creation.\
\>", "Text",
 Background->None,
 CellID->105653557,ExpressionUUID->"9a912030-d1f4-4c9d-8f01-b7175a6c835b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Clock Arithmetic", "Subsection",
 CellChangeTimes->{
  3.705661467691627*^9, 3.705664374467309*^9, {3.7060082906402617`*^9, 
   3.706008311777977*^9}, {3.7064363069028683`*^9, 3.706436310703199*^9}, {
   3.712678137971904*^9, 3.7126781412924356`*^9}, {3.870056657193218*^9, 
   3.870056664071675*^9}, {3.949418878594425*^9, 3.9494188805268326`*^9}},
 CellID->1175726681,ExpressionUUID->"053ad6b7-e08a-4eb0-8205-07941bd1b560"],

Cell["\<\
Modular arithmetic is perhaps most familiar as a generalization of the \
arithmetic of the clock.\
\>", "Text",
 CellChangeTimes->{{3.8700567393069167`*^9, 3.8700567417742915`*^9}, {
  3.884015368006465*^9, 3.8840153688657827`*^9}},
 CellID->1441291520,ExpressionUUID->"4a947d91-7c69-4d19-b2ca-9299d0a058ec"],

Cell["Picture the face of a clock:", "Text",
 CellChangeTimes->{{3.800586956219696*^9, 3.8005870084546933`*^9}, {
  3.800594340940832*^9, 3.8005943485794444`*^9}, {3.8005946923060102`*^9, 
  3.8005947012458763`*^9}, {3.800596925185584*^9, 3.800596928983402*^9}, {
  3.8700567183853216`*^9, 3.8700567371823025`*^9}, {3.870056783070959*^9, 
  3.8700568008350163`*^9}, {3.94335830606991*^9, 3.9433583065103283`*^9}, {
  3.955771178850696*^9, 3.955771180095154*^9}},
 Background->None,
 CellID->171038480,ExpressionUUID->"a3f9af57-7677-425c-83c3-43396d0fcf4d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ClockGauge", "[", 
  RowBox[{"{", 
   RowBox[{"13", ",", "0", ",", "0"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.865937003423204*^9, 3.8659370088078146`*^9}, {
  3.8701480610819607`*^9, 3.870148062681823*^9}, {3.9362431369172783`*^9, 
  3.93624315526551*^9}},
 CellTags->"Close",
 CellID->1310613674,ExpressionUUID->"cf810ae7-22be-4297-9dd2-f8bd5491e491"],

Cell[BoxData[
 GraphicsBox[{
   {GrayLevel[1], EdgeForm[None], FilledCurveBox[{Line[CompressedData["
1:eJxdlD9I1HEYxq9OkE6K5EiENIq4ScixJXiGGpyizJBObaiOBiEn6c8Qubg0
NAg6iENNJzQ0ZEQOz02G04FxiCRxlYf59+cgCBJ3FbyP0HNw/OB+9/1+3/f5
fN7vhXsjvYXjqVSq8Pf77/n/Zw9PJ6pnM9l3rF9dYyVJUB14PbSVKTG98qLv
IRM8eZYudPz+zMaJ3NvaowSTzR2HrZUyq+dOd76p7+LGRvflZOELG33XsqdG
dtE+W+zJv1pmLZ/MfCrtYGYst3iAr3x5ZnW1f38bvbMcPFn5xjulsevvM9u4
2dV+5XnuO8cvPWjMN23hbn606WL5B4v7U9OPf25g/thcfaGwxs3hgfstxV/I
nm+9XV6vse3jUvrDrXXEk/E74n+MdYh9GPsizmGci6iDUReiTkbdiD4YfSH6
ZPSNyIGRCyInRm6IHBm5InJm5I7gQBGx97T1tP1p59Pqo9VP64/WPy0fWn60
fGn50/jQ+NH40vjT/KD5Q/OL5h/NT5q/NL9p/tPm44iT3ouj1ouz9pcHOl+e
qD55pPrlmfqTh+pfniofeaz85Lny1Rwof82JuGiOxEVzJi6aQ3HRnIqL5lhc
NOfiontAXHRPHPkZ94i46J4RF91D4qJ7yuZD72HrYfvDzofVB6sf1h+sf1g+
sPxg+cLyh/GB8YPxhfGH+QHzB+YXzD+YnzB/YX7D/IfNB/4AIeJFiw==
       "]]}]}, GraphicsGroupBox[
    {GrayLevel[0.8], EdgeForm[{GrayLevel[0.6], Thickness[0.01]}], 
     FilledCurveBox[{{Line[CompressedData["
1:eJxdlD9I1HEYxq9OkE6K5EiENIq4ScixJXiGGpyizJBObaiOBiEn6c8Qubg0
NAg6iENNJzQ0ZEQOz02G04FxiCRxlYf59+cgCBJ3FbyP0HNw/OB+9/1+3/f5
fN7vhXsjvYXjqVSq8Pf77/n/Zw9PJ6pnM9l3rF9dYyVJUB14PbSVKTG98qLv
IRM8eZYudPz+zMaJ3NvaowSTzR2HrZUyq+dOd76p7+LGRvflZOELG33XsqdG
dtE+W+zJv1pmLZ/MfCrtYGYst3iAr3x5ZnW1f38bvbMcPFn5xjulsevvM9u4
2dV+5XnuO8cvPWjMN23hbn606WL5B4v7U9OPf25g/thcfaGwxs3hgfstxV/I
nm+9XV6vse3jUvrDrXXEk/E74n+MdYh9GPsizmGci6iDUReiTkbdiD4YfSH6
ZPSNyIGRCyInRm6IHBm5InJm5I7gQBGx97T1tP1p59Pqo9VP64/WPy0fWn60
fGn50/jQ+NH40vjT/KD5Q/OL5h/NT5q/NL9p/tPm44iT3ouj1ouz9pcHOl+e
qD55pPrlmfqTh+pfniofeaz85Lny1Rwof82JuGiOxEVzJi6aQ3HRnIqL5lhc
NOfiontAXHRPHPkZ94i46J4RF91D4qJ7yuZD72HrYfvDzofVB6sf1h+sf1g+
sPxg+cLyh/GB8YPxhfGH+QHzB+YXzD+YnzB/YX7D/IfNB/4AIeJFiw==
         "]]}, {Line[CompressedData["
1:eJxllT9I1HEYxn/XoBFIUJDk4D8auoKQREGHHhAHHaQ/EAonQpkJgRU4uFjU
0FZDg4OImINg4lC2BAlPDlERRFcaNAjWaR5d6Ek1iA0WvE/D08Fx/O53v+/3
fZ/P5/1ezcVr5/r2JEnS/+f991OvqjuFs08rt+DXhdrF8fL6x5zrPpI5cGgL
p2tvd/cfW2DT9lh9+ncRw8nUicLD17w0v7a3PFvE4UzP9PPSLD9P5HtKR4p4
O3I86Uwv8U1fPtfYVkRZ80zV3YZPnKi7evnr0iZyN4Zq2o8uc/P+aFnDzgYm
sy8HXt1c4bt76UeNqQ0sttz6sdD1hV0/H6ys57/jCl60nqxeZcmZ1PveJwWc
/zh+quPDGif3zzblLnzDvlRFe+b6Oud6Bw8++5VHfDK+R/yO8RxiHca6iH0Y
+yLqYNSFqJNRN6IPRl+IPhl9I3Jg5ILIiZEbIkdGroicGbkjOFBc7D7tedr6
tP1p9dHqp/VH65+WDy0/Wr60/Gl8aPxofGn8aX7Q/KH5RfOP5ifNX5rfNP9p
8/GPk+6Lo54XZ60vD7S/PFF98kj1yzP1Jw/VvzxVPvJY+clz5as5UP6aE3HR
HImL5kxcNIfiojkVF82xuGjOxUXngLjonBAXnSPionNGXHQOiYufW3Yf9jxs
fdj+sPpg9cP6g/UPyweWHyxfWP4wPjB+ML4w/jA/YP7A/IL5B/MT5i/Mb5j/
//1/+PUuQA89pA==
         "]]}}]}], {}, 
   {GrayLevel[0.5], Thickness[0.006], CapForm["Butt"], 
    StyleBox[{{
       LineBox[{{{2.8473038080175964`*^-16, 0.93}, 
          Scaled[{0., -0.03}, {2.8473038080175964`*^-16, 0.93}]}, {{
          0.4650000000000005, 0.8054036255195277}, 
          Scaled[{-0.015000000000000013`, -0.02598076211353315}, {
           0.4650000000000005, 0.8054036255195277}]}, {{0.8054036255195279, 
          0.465}, Scaled[{-0.025980762113533156`, -0.015}, {
           0.8054036255195279, 0.465}]}, {{0.93, -2.277843046414077*^-16}, 
          Scaled[{-0.03, 0.}, {0.93, -2.277843046414077*^-16}]}, {{
          0.8054036255195282, -0.4649999999999997}, 
          Scaled[{-0.02598076211353315, 0.015000000000000013`}, {
           0.8054036255195282, -0.4649999999999997}]}, {{
          0.46500000000000014`, -0.8054036255195279}, 
          Scaled[{-0.015000000000000003`, 0.025980762113533156`}, {
           0.46500000000000014`, -0.8054036255195279}]}, \
{{-1.7083822848105578`*^-16, -0.93}, 
          Scaled[{0., 
           0.03}, {-1.7083822848105578`*^-16, -0.93}]}, \
{{-0.46499999999999964`, -0.8054036255195282}, 
          Scaled[{0.014999999999999987`, 
           0.025980762113533163`}, {-0.46499999999999964`, \
-0.8054036255195282}]}, {{-0.8054036255195279, -0.46500000000000014`}, 
          Scaled[{0.025980762113533156`, 
           0.015000000000000003`}, {-0.8054036255195279, \
-0.46500000000000014`}]}, {{-0.93, 1.1389215232070384`*^-16}, 
          Scaled[{0.03, 0.}, {-0.93, 
           1.1389215232070384`*^-16}]}, {{-0.8054036255195283, 
          0.46499999999999964`}, 
          Scaled[{0.025980762113533167`, -0.014999999999999986`}, \
{-0.8054036255195283, 0.46499999999999964`}]}, {{-0.46500000000000025`, 
          0.8054036255195279}, 
          Scaled[{0.015000000000000006`, -0.025980762113533156`}, \
{-0.46500000000000025`, 0.8054036255195279}]}, {{5.694607616035192*^-17, 
          0.93}, Scaled[{0., -0.03}, {5.694607616035192*^-17, 0.93}]}}], 
       LineBox[{{{0.09721147083891774, 0.9249053626924942}, 
          Scaled[{-0.0020905692653530694`, -0.019890437907365468`}, {
           0.09721147083891774, 0.9249053626924942}]}, {{0.19335787246051675`,
           0.9096772686824391}, 
          Scaled[{-0.0041582338163551995`, -0.019562952014676113`}, {
           0.19335787246051675`, 0.9096772686824391}]}, {{0.2873858047687014, 
          0.8844825601544928}, 
          Scaled[{-0.0061803398874989545`, -0.019021130325903076`}, {
           0.2873858047687014, 0.8844825601544928}]}, {{0.3782650780604942, 
          0.8495972756076189}, 
          Scaled[{-0.008134732861516007, -0.01827090915285202}, {
           0.3782650780604942, 0.8495972756076189}]}, {{0.5466402846320002, 
          0.752385804768701}, 
          Scaled[{-0.011755705045849468`, -0.016180339887498944`}, {
           0.5466402846320002, 0.752385804768701}]}, {{0.6222914639137382, 
          0.6911246876939767}, 
          Scaled[{-0.013382612127177165`, -0.014862896509547885`}, {
           0.6222914639137382, 0.6911246876939767}]}, {{0.691124687693977, 
          0.6222914639137378}, 
          Scaled[{-0.014862896509547892`, -0.013382612127177156`}, {
           0.691124687693977, 0.6222914639137378}]}, {{0.7523858047687013, 
          0.5466402846319999}, 
          Scaled[{-0.016180339887498955`, -0.011755705045849461`}, {
           0.7523858047687013, 0.5466402846319999}]}, {{0.8495972756076191, 
          0.37826507806049375`}, 
          Scaled[{-0.01827090915285202, -0.008134732861515996}, {
           0.8495972756076191, 0.37826507806049375`}]}, {{0.8844825601544929, 
          0.2873858047687009}, 
          Scaled[{-0.019021130325903073`, -0.006180339887498943}, {
           0.8844825601544929, 0.2873858047687009}]}, {{0.9096772686824393, 
          0.19335787246051622`}, 
          Scaled[{-0.019562952014676116`, -0.004158233816355188}, {
           0.9096772686824393, 0.19335787246051622`}]}, {{0.9249053626924942, 
          0.09721147083891805}, 
          Scaled[{-0.019890437907365468`, -0.0020905692653530763`}, {
           0.9249053626924942, 0.09721147083891805}]}, {{
          0.9249053626924942, -0.09721147083891768}, 
          Scaled[{-0.019890437907365468`, 0.0020905692653530685`}, {
           0.9249053626924942, -0.09721147083891768}]}, {{
          0.9096772686824394, -0.19335787246051586`}, 
          Scaled[{-0.019562952014676116`, 0.004158233816355199}, {
           0.9096772686824394, -0.19335787246051586`}]}, {{
          0.8844825601544928, -0.28738580476870135`}, 
          Scaled[{-0.019021130325903076`, 0.0061803398874989545`}, {
           0.8844825601544928, -0.28738580476870135`}]}, {{
          0.8495972756076189, -0.37826507806049414`}, 
          Scaled[{-0.01827090915285202, 0.008134732861516005}, {
           0.8495972756076189, -0.37826507806049414`}]}, {{
          0.7523858047687011, -0.5466402846320002}, 
          Scaled[{-0.016180339887498948`, 0.011755705045849468`}, {
           0.7523858047687011, -0.5466402846320002}]}, {{
          0.6911246876939762, -0.6222914639137387}, 
          Scaled[{-0.014862896509547875`, 0.013382612127177175`}, {
           0.6911246876939762, -0.6222914639137387}]}, {{
          0.6222914639137384, -0.6911246876939765}, 
          Scaled[{-0.013382612127177156`, 0.014862896509547892`}, {
           0.6222914639137384, -0.6911246876939765}]}, {{
          0.5466402846319999, -0.7523858047687013}, 
          Scaled[{-0.011755705045849461`, 0.016180339887498955`}, {
           0.5466402846319999, -0.7523858047687013}]}, {{
          0.37826507806049453`, -0.8495972756076188}, 
          Scaled[{-0.008134732861515996, 0.01827090915285202}, {
           0.37826507806049453`, -0.8495972756076188}]}, {{
          0.28738580476870096`, -0.8844825601544929}, 
          Scaled[{-0.006180339887498945, 0.019021130325903073`}, {
           0.28738580476870096`, -0.8844825601544929}]}, {{
          0.1933578724605163, -0.9096772686824393}, 
          Scaled[{-0.00415823381635519, 0.019562952014676116`}, {
           0.1933578724605163, -0.9096772686824393}]}, {{
          0.09721147083891811, -0.9249053626924942}, 
          Scaled[{-0.00209056926535306, 0.019890437907365468`}, {
           0.09721147083891811, -0.9249053626924942}]}, \
{{-0.09721147083891762, -0.9249053626924943}, 
          Scaled[{0.0020905692653530672`, 
           
           0.019890437907365468`}, {-0.09721147083891762, \
-0.9249053626924943}]}, {{-0.1933578724605158, -0.9096772686824394}, 
          Scaled[{0.004158233816355197, 
           0.019562952014676116`}, {-0.1933578724605158, \
-0.9096772686824394}]}, {{-0.28738580476870124`, -0.8844825601544928}, 
          Scaled[{0.006180339887498953, 
           0.019021130325903076`}, {-0.28738580476870124`, \
-0.8844825601544928}]}, {{-0.3782650780604941, -0.849597275607619}, 
          Scaled[{0.008134732861516001, 
           0.01827090915285202}, {-0.3782650780604941, -0.849597275607619}]}, \
{{-0.5466402846320001, -0.7523858047687011}, 
          Scaled[{0.011755705045849465`, 
           0.016180339887498948`}, {-0.5466402846320001, \
-0.7523858047687011}]}, {{-0.6222914639137381, -0.6911246876939768}, 
          Scaled[{0.013382612127177163`, 
           0.014862896509547887`}, {-0.6222914639137381, \
-0.6911246876939768}]}, {{-0.6911246876939764, -0.6222914639137385}, 
          Scaled[{0.014862896509547878`, 
           0.013382612127177172`}, {-0.6911246876939764, \
-0.6222914639137385}]}, {{-0.7523858047687012, -0.546640284632}, 
          Scaled[{0.016180339887498955`, 
           0.011755705045849463`}, {-0.7523858047687012, -0.546640284632}]}, \
{{-0.8495972756076188, -0.3782650780604946}, 
          Scaled[{0.01827090915285202, 
           0.008134732861516007}, {-0.8495972756076188, \
-0.3782650780604946}]}, {{-0.8844825601544929, -0.287385804768701}, 
          Scaled[{0.019021130325903076`, 
           0.006180339887498938}, {-0.8844825601544929, \
-0.287385804768701}]}, {{-0.9096772686824393, -0.19335787246051636`}, 
          Scaled[{0.019562952014676116`, 
           0.004158233816355192}, {-0.9096772686824393, \
-0.19335787246051636`}]}, {{-0.9249053626924943, -0.09721147083891735}, 
          Scaled[{0.019890437907365468`, 
           0.002090569265353061}, {-0.9249053626924943, \
-0.09721147083891735}]}, {{-0.9249053626924943, 0.09721147083891757}, 
          Scaled[{0.019890437907365468`, -0.0020905692653530573`}, \
{-0.9249053626924943, 0.09721147083891757}]}, {{-0.9096772686824394, 
          0.19335787246051575`}, 
          Scaled[{0.01956295201467612, -0.004158233816355179}, \
{-0.9096772686824394, 0.19335787246051575`}]}, {{-0.8844825601544931, 
          0.2873858047687004}, 
          Scaled[{0.019021130325903076`, -0.006180339887498934}, \
{-0.8844825601544931, 0.2873858047687004}]}, {{-0.849597275607619, 
          0.37826507806049403`}, 
          Scaled[{0.018270909152852025`, -0.008134732861515993}, \
{-0.849597275607619, 0.37826507806049403`}]}, {{-0.7523858047687015, 
          0.5466402846319994}, 
          Scaled[{0.016180339887498958`, -0.01175570504584945}, \
{-0.7523858047687015, 0.5466402846319994}]}, {{-0.6911246876939768, 
          0.622291463913738}, 
          Scaled[{0.014862896509547892`, -0.013382612127177155`}, \
{-0.6911246876939768, 0.622291463913738}]}, {{-0.6222914639137385, 
          0.6911246876939764}, 
          Scaled[{0.013382612127177172`, -0.014862896509547878`}, \
{-0.6222914639137385, 0.6911246876939764}]}, {{-0.546640284632, 
          0.7523858047687012}, 
          Scaled[{0.011755705045849463`, -0.016180339887498955`}, \
{-0.546640284632, 0.7523858047687012}]}, {{-0.37826507806049464`, 
          0.8495972756076187}, 
          Scaled[{0.008134732861516013, -0.018270909152852014`}, \
{-0.37826507806049464`, 0.8495972756076187}]}, {{-0.287385804768701, 
          0.8844825601544929}, 
          Scaled[{0.006180339887498947, -0.019021130325903073`}, \
{-0.287385804768701, 0.8844825601544929}]}, {{-0.19335787246051642`, 
          0.9096772686824393}, 
          Scaled[{0.0041582338163551925`, -0.019562952014676116`}, \
{-0.19335787246051642`, 0.9096772686824393}]}, {{-0.0972114708389174, 
          0.9249053626924943}, 
          Scaled[{0.0020905692653530625`, -0.019890437907365468`}, \
{-0.0972114708389174, 0.9249053626924943}]}}]}, 
      {GrayLevel[0.25], 
       StyleBox[{{{
           InsetBox["\<\"\"\>", Offset[{0., -3.}, 
            Scaled[{0., -0.03}, {2.8473038080175964*^-16, 0.93}]], 
            ImageScaled[{0.5, 1.}], Automatic, {1, 0}], 
           InsetBox["1", Offset[{-1.5000000000000013, -2.598076211353315}, 
            Scaled[{-0.015000000000000013, -0.02598076211353315}, \
{0.4650000000000005, 0.8054036255195277}]], 
            ImageScaled[{0.7886751345948133, 1.}], Automatic, {1, 0}], 
           InsetBox["2", Offset[{-2.598076211353316, -1.5}, Scaled[{-0.025980762113533156, -0.015},
             {0.8054036255195279, 0.465}]], 
            ImageScaled[{1, 0.7886751345948129}], Automatic, {1, 0}], 
           InsetBox["3", Offset[{-3., 0.}, 
            Scaled[{-0.03, 0.}, {0.93, -2.277843046414077*^-16}]], 
            ImageScaled[{1, 0.5}], Automatic, {1, 0}], 
           InsetBox["4", Offset[{-2.598076211353315, 1.5000000000000013}, 
            Scaled[{-0.02598076211353315, 0.015000000000000013}, \
{0.8054036255195282, -0.4649999999999997}]], 
            ImageScaled[{1, 0.21132486540518675}], Automatic, {1, 0}], 
           InsetBox["5", Offset[{-1.5000000000000004, 2.598076211353316}, 
            Scaled[{-0.015000000000000003, 0.025980762113533156}, \
{0.46500000000000014, -0.8054036255195279}]], 
            ImageScaled[{0.788675134594813, 0.}], Automatic, {1, 0}], 
           InsetBox["6", Offset[{0., 3.}, 
            Scaled[{0., 0.03}, {-1.7083822848105578*^-16, -0.93}]], 
            ImageScaled[{0.5, 0.}], Automatic, {1, 0}], 
           InsetBox["7", Offset[{1.499999999999999, 2.5980762113533165}, 
            Scaled[{0.014999999999999987, 0.025980762113533163}, \
{-0.46499999999999964, -0.8054036255195282}]], 
            ImageScaled[{0.2113248654051874, 0.}], Automatic, {1, 0}], 
           InsetBox["8", Offset[{2.598076211353316, 1.5000000000000004}, 
            Scaled[{0.025980762113533156, 0.015000000000000003}, \
{-0.8054036255195279, -0.46500000000000014}]], 
            ImageScaled[{0, 0.21132486540518702}], Automatic, {1, 0}], 
           InsetBox["9", Offset[{3., 0.}, 
            Scaled[{0.03, 0.}, {-0.93, 1.1389215232070384*^-16}]], 
            ImageScaled[{0, 0.5}], Automatic, {1, 0}], 
           InsetBox["10", Offset[{2.598076211353317, -1.4999999999999987}, 
            Scaled[{0.025980762113533167, -0.014999999999999986}, \
{-0.8054036255195283, 0.46499999999999964}]], 
            ImageScaled[{0, 0.7886751345948125}], Automatic, {1, 0}], 
           InsetBox["11", Offset[{1.5000000000000007, -2.598076211353316}, 
            Scaled[{0.015000000000000006, -0.025980762113533156}, \
{-0.46500000000000025, 0.8054036255195279}]], 
            ImageScaled[{0.21132486540518697, 1.}], Automatic, {1, 0}], 
           InsetBox["12", Offset[{0., -3.}, 
            Scaled[{0., -0.03}, {5.694607616035192*^-17, 0.93}]], 
            ImageScaled[{0.5, 1.}], Automatic, {1, 
            0}]}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
        StripOnInput->False,
        FontFamily->"Helvetica",
        FontSize->Scaled[0.07]]}},
     StripOnInput->False,
     Antialiasing->True]}, {}, {}, {GeometricTransformationBox[InsetBox[
      GraphicsBox[
       {RGBColor[
        0.73, 0.24506099999999992`, 0.1971], {
         PolygonBox[{{0, -0.08}, {1, -0.04}, {1, 0.04}, {0, 0.08}}], 
         DiskBox[{0, 0}, 0.09]}, 
        {GrayLevel[1], DiskBox[{0, 0}, 0.03]}}], {0, 0}, {0, 0}, {1, 1}], {{{
      0.31125000000000036`, -0.539100813855813}, {0.539100813855813, 
      0.31125000000000036`}}, {0., 0.}}], 
    GeometricTransformationBox[InsetBox[
      GraphicsBox[
       {RGBColor[
        0.73, 0.24506099999999992`, 0.1971], {
         PolygonBox[{{0, -0.05}, {1, -0.02}, {1, 0.02}, {0, 0.05}}], 
         DiskBox[{0, 0}, 0.09]}, 
        {GrayLevel[1], DiskBox[{0, 0}, 0.03]}}], {0, 0}, {0, 0}, {1, 1}], {{{
      3.0493705298769094`*^-16, -0.996}, {0.996, 3.0493705298769094`*^-16}}, {
      0., 0.}}], GeometricTransformationBox[InsetBox[
      GraphicsBox[
       {GrayLevel[
        0.5], {PolygonBox[{{-0.2, -0.03}, {1, -0.01}, {1, 0.01}, {-0.2, 
           0.03}}], DiskBox[{0, 0}, 0.07]}, 
        {GrayLevel[1], DiskBox[{0, 0}, 0.03]}}], {0, 0}, {0, 0}, {1, 1}], {{{
      3.303484740699986*^-16, -1.0790000000000002`}, {1.0790000000000002`, 
      3.303484740699986*^-16}}, {0., 0.}}]}, {}},
  AlignmentPoint->Center,
  AspectRatio->Automatic,
  Axes->False,
  AxesLabel->None,
  AxesOrigin->Automatic,
  AxesStyle->{},
  Background->None,
  BaseStyle->{},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FormatType->TraditionalForm,
  Frame->False,
  FrameLabel->None,
  FrameStyle->{},
  FrameTicks->Automatic,
  FrameTicksStyle->{},
  GridLines->None,
  GridLinesStyle->{},
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Small,
  ImageSizeRaw->Automatic,
  LabelStyle->Directive[
    GrayLevel[0.25], FontSize -> Scaled[0.07], FontFamily -> "Helvetica"],
  Method->Automatic,
  PlotLabel->None,
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->Automatic,
  TicksStyle->{}]], "Output",
 CellChangeTimes->{
  3.865937010605805*^9, 3.867140869500038*^9, 3.8700567548678007`*^9, 
   3.870148063790803*^9, {3.935740498307817*^9, 3.935740509710566*^9}, {
   3.936243132184246*^9, 3.936243155630714*^9}},
 CellTags->"Close",
 CellID->193744530,ExpressionUUID->"65378612-22e8-4cdd-9831-6d81c60a1e06"]
}, {2}]],

Cell[TextData[{
 "The numbers go from ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b7bec80a-15a7-426c-8320-c491ece48031"],
 " to ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "da7f0aff-bfaf-4cb0-be72-149ff465dbd7"],
 ":"
}], "Text",
 CellID->1692536545,ExpressionUUID->"cde0f8db-1618-4a7a-ae06-1eada1c9402c"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
    ",", "9", ",", "10", ",", "11", ",", "12"}], "}"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1090677795,ExpressionUUID->"72ee61d2-d624-49a4-afab-39ec24c5689a"],

Cell[TextData[{
 "When you get to ",
 Cell[BoxData[
  FormBox["13", TraditionalForm]], "InlineMath",ExpressionUUID->
  "fc502aed-d187-47d3-ae9f-ce22815d14f1"],
 " o\[CloseCurlyQuote]clock, it becomes ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ad8d191c-c8f1-4920-9d6c-904ad8e6d7c4"],
 " o\[CloseCurlyQuote]clock again. When you get to ",
 Cell[BoxData[
  FormBox["14", TraditionalForm]], "InlineMath",ExpressionUUID->
  "61ae1210-4175-4618-b099-40e7714bc2c0"],
 " o\[CloseCurlyQuote]clock, it becomes ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "035f187f-bd1f-48fc-a094-f3b5a26aaf0c"],
 " o\[CloseCurlyQuote]clock and so on."
}], "Text",
 CellID->1032459794,ExpressionUUID->"90ff61bd-d9e5-4384-ba83-6fb31319ed97"],

Cell[TextData[{
 "So in this clock-based system, you only care where you are in relation to \
the numbers ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a501f80a-0db4-41f8-8574-1c153acdc3d7"],
 " to ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "624c5c51-367a-479d-8212-e9971a90a593"],
 ". In this world, ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a6456f63-0fac-4166-b40e-1fe0a076d608"],
 ", ",
 Cell[BoxData[
  FormBox["13", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0dc552a1-2f0e-4e12-84fd-1738d3115434"],
 ", ",
 Cell[BoxData[
  FormBox["25", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1d2a74bf-10f3-4d89-a9e8-b1f409fff578"],
 ", ",
 Cell[BoxData[
  FormBox["37", TraditionalForm]], "InlineMath",ExpressionUUID->
  "08ebe9aa-33a6-431e-93ca-c5a911de01f8"],
 ", \[Ellipsis] are all thought of as the same thing, as are ",
 Cell[BoxData[
  FormBox["2", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e64c0f6a-4909-424f-86d6-302aca4920fd"],
 ", ",
 Cell[BoxData[
  FormBox["14", TraditionalForm]], "InlineMath",ExpressionUUID->
  "a86e110a-c6a8-4a28-8134-7ca583eba3d0"],
 ", ",
 Cell[BoxData[
  FormBox["26", TraditionalForm]], "InlineMath",ExpressionUUID->
  "9535e138-5424-4232-869d-3af9fba466dd"],
 ", ",
 Cell[BoxData[
  FormBox["38", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0e31ede2-fc46-4836-8fa7-355b2a6b848b"],
 ", \[Ellipsis] and so on."
}], "Text",
 Background->None,
 CellID->883889998,ExpressionUUID->"84e9df7f-0272-4d6c-bde7-dcb368bb10be"],

Cell[TextData[{
 "Mathematically speaking, \[OpenCurlyDoubleQuote]13=1+ some multiple of ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8160a880-1d7c-4749-a441-1a215ca31ee6"],
 "\[CloseCurlyDoubleQuote], or \[OpenCurlyDoubleQuote]the remainder when ",
 Cell[BoxData[
  FormBox["13", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e45c63b6-e8d4-4dc1-954b-9c5e09bd314a"],
 " is divided by ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "043114e2-4e9c-4ed2-8dcf-3e5e0a5cd369"],
 " is ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "d7973367-43f1-4157-8da3-f02df73408ec"],
 ".\[CloseCurlyDoubleQuote]"
}], "Text",
 CellID->1394810087,ExpressionUUID->"385ca467-b1ef-4671-9c5a-5eda6711e1a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Modular Arithmetic: Addition", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336606355554*^9, 
   3.705336630018115*^9}, {3.7054019050053368`*^9, 3.7054019120525713`*^9}, 
   3.705663611118946*^9, {3.706009033618433*^9, 3.7060090376809273`*^9}, {
   3.706436865474153*^9, 3.706436884489477*^9}, {3.706438897016694*^9, 
   3.7064388975994587`*^9}, {3.799384932100035*^9, 3.799384938052403*^9}, {
   3.800097485513386*^9, 3.8000974905747333`*^9}, {3.8005876576168175`*^9, 
   3.8005876622911325`*^9}},
 CellID->1554256912,ExpressionUUID->"05f86396-d450-4afb-a8b4-3915456a43d5"],

Cell[TextData[{
 "It\[CloseCurlyQuote]s not a coincidence that the congruence symbol ",
 Cell[BoxData[
  FormBox["\[Congruent]", TraditionalForm]], "InlineMath",ExpressionUUID->
  "1a25ca40-a93a-cf45-aa1d-aebad84f80a7"],
 " looks like the equal sign. Congruences indeed possess many properties of \
equations. "
}], "Text",
 CellChangeTimes->{{3.8000980881632013`*^9, 3.8000981155635386`*^9}, {
   3.800098180006964*^9, 3.800098220207896*^9}, {3.8000982592331915`*^9, 
   3.8000982595639834`*^9}, {3.8002579914913454`*^9, 3.8002579940992994`*^9}, 
   3.800258026760265*^9},
 CellID->404837876,ExpressionUUID->"7e8977c7-68a6-4e5d-abe8-da590f78cd6b"],

Cell["If", "Text",
 CellChangeTimes->{{3.800258038393587*^9, 3.8002580387663913`*^9}, {
   3.888479193619666*^9, 3.888479206553013*^9}, 3.943358378383747*^9, 
   3.949142434548439*^9},
 CellID->881988236,ExpressionUUID->"4d0968d5-8496-4857-a9f1-498df03c93e8"],

Cell[BoxData[
 FormBox[
  RowBox[{"a", "\[Congruent]", 
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->700163226,ExpressionUUID->"a4d3514e-b6c7-4284-85f2-c7e0cd06ae01"],

Cell[BoxData[
 FormBox[
  RowBox[{"c", "\[Congruent]", 
   RowBox[{"d", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->187311740,ExpressionUUID->"c99fa52e-8301-4be9-9dcb-b442a12939fc"],

Cell["Then", "Text",
 CellChangeTimes->{{3.800258082319209*^9, 3.8002580828070545`*^9}, {
   3.943358380310356*^9, 3.943358381508646*^9}, 3.949142436246475*^9},
 CellID->504677993,ExpressionUUID->"d39d1c4f-9fee-468f-baff-b0d2dfcefc30"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"a", "\[PlusMinus]", "c"}], "\[Congruent]", 
   RowBox[{"b", "\[PlusMinus]", 
    RowBox[{"d", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "m"}], ")"}]}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->386759258,ExpressionUUID->"2576326d-587e-4913-a1a0-4f24515e4722"],

Cell["This is quite easy to prove.", "Text",
 CellChangeTimes->{{3.800258124493903*^9, 3.8002581460503445`*^9}, {
   3.800258488189701*^9, 3.800258531838451*^9}, {3.8841603936149817`*^9, 
   3.884160394097457*^9}, 3.889169406682699*^9},
 CellID->1983743035,ExpressionUUID->"8d3dfc4b-7290-4110-bad0-dc3984e61fdd"],

Cell["For example,", "Text",
 CellChangeTimes->{{3.889169408389532*^9, 3.889169419750411*^9}, {
  3.8891703573610873`*^9, 3.889170365168663*^9}, {3.9433583936061745`*^9, 
  3.943358394122389*^9}, {3.949142443221239*^9, 3.9491424437121353`*^9}},
 CellID->1085569570,ExpressionUUID->"9a649f66-b6ee-4652-9c3c-461749da1ccf"],

Cell[BoxData[
 FormBox[
  RowBox[{"7", "\[Congruent]", 
   RowBox[{"43", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "6"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1512505716,ExpressionUUID->"cc9e024f-b1f3-46af-9b48-077b039e4bd5"],

Cell[BoxData[
 FormBox[
  RowBox[{"4", "\[Congruent]", 
   RowBox[{"28", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "6"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->919639273,ExpressionUUID->"26205b0b-9226-4840-9577-728a2c9b0e73"],

Cell["The property says that", "Text",
 CellChangeTimes->{{3.8002586056375265`*^9, 3.8002586078299713`*^9}, {
   3.8002586499834194`*^9, 3.80025865585588*^9}, 3.9433583970181904`*^9, 
   3.9491424416912136`*^9},
 CellID->1513919442,ExpressionUUID->"a8ba6198-6184-4248-b261-6c15df82f14e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"7", "+", "4"}], "\[Congruent]", 
   RowBox[{"43", "+", 
    RowBox[{"28", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "6"}], ")"}]}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1582188683,ExpressionUUID->"47b4deb0-4233-468b-ad6b-f72ccad5ccaa"],

Cell[BoxData[
 FormBox[
  RowBox[{"11", "\[Congruent]", 
   RowBox[{"71", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "6"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1702678027,ExpressionUUID->"f916b50e-14af-41b1-9426-2dd7c9685b68"],

Cell["and", "Text",
 CellChangeTimes->{{3.8002613151320486`*^9, 3.8002613153954306`*^9}},
 CellID->1610043477,ExpressionUUID->"38d6f0cd-065f-4426-9458-47185ac77754"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"7", "-", "4"}], "\[Congruent]", 
   RowBox[{"43", "-", 
    RowBox[{"28", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "6"}], ")"}]}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->2023195850,ExpressionUUID->"baa6395c-6e3b-4a5b-a681-8331df4c615d"],

Cell[BoxData[
 FormBox[
  RowBox[{"3", "\[Congruent]", 
   RowBox[{"15", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "6"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->596584352,ExpressionUUID->"b8eaf360-a61b-4450-8a58-e5b8b36b60b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Modular Arithmetic: Multiplication", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705336579906575*^9, 
   3.705336596880907*^9}, 3.705401944400769*^9, {3.706009044469454*^9, 
   3.7060090453394537`*^9}, {3.706439081478821*^9, 3.706439084795649*^9}, {
   3.7993886533661995`*^9, 3.7993886616814237`*^9}, {3.800097495750849*^9, 
   3.8000975002050667`*^9}, {3.800587666552685*^9, 3.8005876720845075`*^9}},
 CellID->276035375,ExpressionUUID->"e2aa970e-e9ec-4bb1-811c-14f6d5ae0213"],

Cell["There is a similar property about the product.", "Text",
 CellChangeTimes->{{3.800258687927116*^9, 3.800258702778784*^9}, {
   3.8002589283266563`*^9, 3.800258949193653*^9}, 3.8841604085586147`*^9},
 CellID->761870105,ExpressionUUID->"80d5819c-db01-4839-ace4-57af78307317"],

Cell["If", "Text",
 CellChangeTimes->{{3.800258038393587*^9, 3.8002580387663913`*^9}, 
   3.943358427706356*^9, 3.9491424485312824`*^9},
 CellID->1453351321,ExpressionUUID->"cd93b255-5adf-4fe7-9a72-ce5c28b7337a"],

Cell[BoxData[
 FormBox[
  RowBox[{"a", "\[Congruent]", 
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->335647324,ExpressionUUID->"20fdc07f-8d56-4153-b193-561f1c014505"],

Cell[BoxData[
 FormBox[
  RowBox[{"c", "\[Congruent]", 
   RowBox[{"d", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->848085764,ExpressionUUID->"87a62ef2-04bf-4f95-a5ed-adaa92a75401"],

Cell["Then", "Text",
 CellChangeTimes->{{3.800258082319209*^9, 3.8002580828070545`*^9}, 
   3.9433584297138786`*^9, 3.9491424502230644`*^9},
 CellID->358161962,ExpressionUUID->"e016554b-d520-4762-8f25-318d0b0f0a54"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"a", "*", "c"}], "\[Congruent]", 
   RowBox[{"b", "*", "d", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1630690190,ExpressionUUID->"18ec22ff-075f-43c4-b5f9-8e4c5c22bd90"],

Cell["This is again easily provable. For example,", "Text",
 CellChangeTimes->{{3.800258124493903*^9, 3.8002581460503445`*^9}, {
   3.800258488189701*^9, 3.800258531838451*^9}, {3.8002589924749956`*^9, 
   3.800259012559128*^9}, 3.888479247713708*^9, {3.9433584325468082`*^9, 
   3.9433584328966503`*^9}, {3.94914245218128*^9, 3.9491424526301403`*^9}},
 CellID->598067234,ExpressionUUID->"31582909-388f-46bb-8961-846e4b522e7f"],

Cell[BoxData[
 FormBox[
  RowBox[{"9", "\[Congruent]", 
   RowBox[{"25", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "4"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->214796075,ExpressionUUID->"5bfc2e96-1815-4f67-945e-df8e032d3352"],

Cell[BoxData[
 FormBox[
  RowBox[{"10", "\[Congruent]", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "4"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->157621918,ExpressionUUID->"c3336cc4-924f-4112-a96b-4888c45c9f86"],

Cell["The property says that", "Text",
 CellChangeTimes->{{3.8002586056375265`*^9, 3.8002586078299713`*^9}, {
   3.8002586499834194`*^9, 3.80025865585588*^9}, 3.94335843566136*^9, 
   3.949142454320919*^9},
 CellID->87751187,ExpressionUUID->"1c56e1f7-15d3-46a9-93d1-0dc468f4b0ef"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"9", "*", "10"}], "\[Congruent]", 
   RowBox[{"25", "*", "2", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "4"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->565227750,ExpressionUUID->"aa3a2b2f-bc43-4433-bccb-f697e5467b77"],

Cell[BoxData[
 FormBox[
  RowBox[{"90", "\[Congruent]", 
   RowBox[{"50", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "4"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1462623569,ExpressionUUID->"c85e6d66-0c37-4772-bdd5-2c3beca1d3b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Modular Arithmetic: Exponentiation", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.705312964851019*^9, 
   3.7053129673472967`*^9}, 3.705401949751856*^9, {3.7060090503033733`*^9, 
   3.7060090514927*^9}, {3.706439882026164*^9, 3.706439886633545*^9}, {
   3.7995633152986236`*^9, 3.7995633189656496`*^9}, {3.7995634081580725`*^9, 
   3.799563428108607*^9}, {3.8000975044140797`*^9, 3.8000975090606537`*^9}, {
   3.8005876748489194`*^9, 3.800587681869887*^9}},
 CellID->1060833875,ExpressionUUID->"b8944763-0a5b-4dd2-98f2-3bcb6459ad20"],

Cell["The next property is about powers.", "Text",
 CellChangeTimes->{{3.8002620734523563`*^9, 3.80026209461915*^9}},
 CellID->1025699731,ExpressionUUID->"5e3788d6-4e59-42a0-9a75-daf02ccbba88"],

Cell["If", "Text",
 CellChangeTimes->{{3.888479258498642*^9, 3.8884792597402477`*^9}, 
   3.9433584418278923`*^9, 3.9491424576253376`*^9},
 CellID->1084144448,ExpressionUUID->"5557d7a1-439f-429b-92c1-bf5564ae17a5"],

Cell[BoxData[
 FormBox[
  RowBox[{"a", "\[Congruent]", 
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->605356374,ExpressionUUID->"fbe32276-45c4-4b1e-a5c3-7be0fb00d77f"],

Cell["Then", "Text",
 CellChangeTimes->{{3.800258082319209*^9, 3.8002580828070545`*^9}, 
   3.943358443691105*^9, 3.9491424593459625`*^9},
 CellID->1541064138,ExpressionUUID->"200261b2-afeb-4def-86c3-be4a7ac1bd70"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["a", "n"], "\[Congruent]", 
   RowBox[{
    SuperscriptBox["b", "n"], " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1594541979,ExpressionUUID->"a45693e6-cbf9-4db1-869a-8a5f4322f3e8"],

Cell["For example,", "Text",
 CellChangeTimes->{{3.800258124493903*^9, 3.8002581460503445`*^9}, {
   3.800258488189701*^9, 3.800258531838451*^9}, {3.8002589924749956`*^9, 
   3.800259012559128*^9}, {3.800262195447815*^9, 3.8002621971080112`*^9}, 
   3.888479263924999*^9, {3.9433584463776684`*^9, 3.9433584468993645`*^9}, {
   3.949142460701191*^9, 3.949142461108753*^9}},
 CellID->213191666,ExpressionUUID->"327b1bd9-0789-4149-88ec-5a596d75c539"],

Cell[BoxData[
 FormBox[
  RowBox[{"2", "\[Congruent]", 
   RowBox[{"7", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "5"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->232967579,ExpressionUUID->"e9e650ab-33b8-4d97-86bc-fcbd5535b01c"],

Cell["The property says that", "Text",
 CellChangeTimes->{{3.8002586056375265`*^9, 3.8002586078299713`*^9}, {
   3.8002586499834194`*^9, 3.80025865585588*^9}, 3.943358448537075*^9, 
   3.94914246383119*^9},
 CellID->421329114,ExpressionUUID->"6b0e2085-be91-4ed3-9a32-4b68114e29aa"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["2", "2"], "\[Congruent]", 
   RowBox[{
    SuperscriptBox["7", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "5"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1489568957,ExpressionUUID->"628439cc-d895-4087-beca-6bd00421c717"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["2", "3"], "\[Congruent]", 
   RowBox[{
    SuperscriptBox["7", "3"], " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "5"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1968587220,ExpressionUUID->"82faff6b-59f1-4de6-8582-8e7fad107c63"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["2", "4"], "\[Congruent]", 
   RowBox[{
    SuperscriptBox["7", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "5"}], ")"}]}]}], TraditionalForm]], "DisplayFormula",\

 CellID->1912340858,ExpressionUUID->"8e76dc92-fb25-40f4-a43f-44d2bace2049"],

Cell["and so on.", "Text",
 CellChangeTimes->{{3.8002622831049128`*^9, 3.800262285777809*^9}},
 CellID->1544663521,ExpressionUUID->"0bb43d3c-e678-4fd9-be71-ddc7d7c02ec2"],

Cell["Notice that in all these cases the modulus is fixed.", "Text",
 CellChangeTimes->{{3.8002628338157783`*^9, 3.8002628517560616`*^9}},
 CellID->229988864,ExpressionUUID->"699b02c1-729a-4c7f-a72e-d959fab0b3a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Arithmetic Modulo 12", "Subsection",
 CellChangeTimes->{{3.7052292751341186`*^9, 3.7052292771423197`*^9}, {
   3.705312795680029*^9, 3.705312804108348*^9}, {3.70533665165598*^9, 
   3.7053366935656977`*^9}, {3.705336726109926*^9, 3.7053367302235813`*^9}, 
   3.7054021550966043`*^9, {3.706009056641371*^9, 3.706009058063966*^9}, {
   3.706440492691724*^9, 3.7064404971227007`*^9}, {3.706441012967277*^9, 
   3.706441013550391*^9}, {3.799570591517518*^9, 3.7995705928577504`*^9}, {
   3.7995720725861645`*^9, 3.7995720785037627`*^9}, {3.80009751265104*^9, 
   3.8000975189369063`*^9}, {3.800698355535819*^9, 3.800698365045386*^9}, {
   3.8884794702899303`*^9, 3.888479478035034*^9}},
 CellID->1005278914,ExpressionUUID->"be6f7a32-61bf-4ff6-9b47-936768f3688a"],

Cell["\<\
In modular arithmetic, numbers \[OpenCurlyDoubleQuote]wrap around\
\[CloseCurlyDoubleQuote] when reaching a certain value, which is the modulus.\
\
\>", "Text",
 CellChangeTimes->{{3.8005865089029193`*^9, 3.8005865672383995`*^9}, {
  3.8005869263768363`*^9, 3.80058695084177*^9}, {3.8005938598789053`*^9, 
  3.8005938696872725`*^9}, {3.8005939121278944`*^9, 3.8005939140328007`*^9}, {
  3.930821400072085*^9, 3.93082140007616*^9}},
 CellID->1468856649,ExpressionUUID->"a8101340-e826-404f-8f00-f0b56e30373a"],

Cell[TextData[{
 "A good example, as already mentioned, can be arithmetic modulo ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "3171cdfc-f892-40ef-95a6-bfec57aa45e7"],
 ", which is known as ",
 StyleBox["clock arithmetic",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellID->1437395609,ExpressionUUID->"b2376ae5-a297-40ff-b13a-5a3abae57b20"],

Cell[TextData[{
 "If it is ",
 Cell[BoxData[
  FormBox["10", TraditionalForm]], "InlineMath",ExpressionUUID->
  "0dc2d332-6dd8-4524-971c-2e29de2a9606"],
 " o\[CloseCurlyQuote]clock now, then in ",
 Cell[BoxData[
  FormBox["5", TraditionalForm]], "InlineMath",ExpressionUUID->
  "7f32ecbc-7953-48c6-9254-1445079b3998"],
 " hours, the clock will show ",
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "dc5e4e5e-40e8-4942-b3cc-fd3e2d59c45b"],
 " o\[CloseCurlyQuote]clock instead of ",
 Cell[BoxData[
  FormBox["15", TraditionalForm]], "InlineMath",ExpressionUUID->
  "4c6cd11e-6bc1-4603-94e2-9bf614e54a4a"],
 " as"
}], "Text",
 Background->None,
 CellID->1438578300,ExpressionUUID->"449ab763-17bc-48d6-84c6-9cc52a9acd57"],

Cell[BoxData[
 FormBox[
  RowBox[{"15", "\[Congruent]", 
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"mod", " ", "12"}], ")"}]}]}], 
  TraditionalForm]], "DisplayFormula",
 CellID->506229308,ExpressionUUID->"de49ce52-94f9-45d3-9e60-615a3f4d341a"],

Cell[TextData[{
 "Here, it is more preferable to write ",
 Cell[BoxData[
  FormBox[
   RowBox[{"15", "\[Congruent]", 
    RowBox[{"3", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "12"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"3c371c5e-bdd3-4b66-9e7e-44762bb022f9"],
 " rather than ",
 Cell[BoxData[
  FormBox[
   RowBox[{"3", "\[Congruent]", 
    RowBox[{"15", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "12"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c615990b-2507-405e-9b32-afe7f366932e"],
 ", although both are correct:"
}], "Text",
 CellID->1804929177,ExpressionUUID->"256bd844-55af-4a33-a36d-a8fc75151137"],

Cell[CellGroupData[{

Cell[TextData[{
 "All there is are numbers from ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "73969293-4149-4cd8-a283-c37045208fa8"],
 " to ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "29f3dca2-9354-4dcd-9093-8489dd54e0b1"],
 ", and they are usually written on the right of the congruence relation."
}], "Item",
 CellID->90680317,ExpressionUUID->"7b52fa3a-5160-4b95-a19c-8dbd2841427b"],

Cell[TextData[{
 Cell[BoxData[
  FormBox["15", TraditionalForm]], "InlineMath",ExpressionUUID->
  "8529a82a-ff8a-4643-9d8a-e944d9c2f0c8"],
 " gives the remainder of ",
 Cell[BoxData[
  FormBox["3", TraditionalForm]], "InlineMath",ExpressionUUID->
  "838eaf6c-4c53-40da-87f4-08dc24c25e13"],
 " when divided by ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "bb187a20-3a26-4121-864f-8cf1081bd56b"],
 "."
}], "Item",
 CellID->1498182096,ExpressionUUID->"6429d267-b556-4dbd-b8a7-7a1bebb55b0d"]
}, Open  ]],

Cell[TextData[{
 "In arithmetic modulo ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "598dbebd-a627-44ca-b3ce-c29c8a83b0c2"],
 ", it is common to use the numbers from ",
 Cell[BoxData[
  FormBox["0", TraditionalForm]], "InlineMath",ExpressionUUID->
  "ac82113e-9415-4c9f-9685-f40270036d61"],
 " to ",
 Cell[BoxData[
  FormBox["11", TraditionalForm]], "InlineMath",ExpressionUUID->
  "899dc358-296b-42ca-8393-a256dec045ec"],
 ":"
}], "Text",
 CellID->928356629,ExpressionUUID->"1aedd3e2-b4ce-46c1-ae6e-c121f0eeed0d"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", 
    ",", "8", ",", "9", ",", "10", ",", "11"}], "}"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->1033782009,ExpressionUUID->"d643068c-62e3-454a-ab40-891245d11649"],

Cell[TextData[{
 "Think of it this way: In this arithmetic, there is a finite set of numbers \
and all we have are these numbers. All other numbers are interesting in their \
relation to the modulus, what remainder they leave when divided by the \
modulus. So usually the least residue system modulo ",
 Cell[BoxData[
  FormBox["m", TraditionalForm]], "InlineMath",ExpressionUUID->
  "6c3833ea-fdb2-4469-8bc9-d6b57ced5b9f"],
 " is taken as the set of numbers:"
}], "Text",
 CellID->690371069,ExpressionUUID->"9b496677-b095-4228-9b9b-0b7f1ad5b9c6"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"0", ",", "1", ",", "2", ",", "\[Ellipsis]", ",", 
    RowBox[{"m", "-", "1"}]}], "}"}], TraditionalForm]], "DisplayFormula",
 CellID->1544980513,ExpressionUUID->"e83f0a88-9c48-4c9c-b35f-c1e0ae11bf81"],

Cell[TextData[{
 "But since the usual clock numbers range from ",
 Cell[BoxData[
  FormBox["1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "b9558b42-931b-4b23-8442-f49a23bd578a"],
 " to ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "e0dc803a-ee09-4aae-8bc1-b9a9d6c2745a"],
 ", the set"
}], "Text",
 CellID->473339881,ExpressionUUID->"75db033b-2202-4995-a3d2-4ef9d083919f"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
    ",", "9", ",", "10", ",", "11", ",", "12"}], "}"}], 
  TraditionalForm]], "DisplayFormula",
 CellID->522683621,ExpressionUUID->"c27dd70c-5f3c-41ec-80cf-203a3a6838a4"],

Cell["is considered. ", "Text",
 CellChangeTimes->{{3.8891699578604918`*^9, 3.8891699594902*^9}},
 CellID->1558502777,ExpressionUUID->"04b2bc25-37fe-44a0-aa9f-520525f356c7"],

Cell[CellGroupData[{

Cell["Summary", "TechNoteSection",
 CellID->1259673378,ExpressionUUID->"870ddb18-cbc5-42d8-829f-4850158d3df0"],

Cell[TextData[{
 "Number theory has an algebra of its own known as ",
 StyleBox["modular arithmetic",
  FontSlant->"Italic"],
 ". "
}], "SummaryList",
 CellChangeTimes->{
  3.888836179264186*^9, {3.943358767777912*^9, 3.9433587702510204`*^9}},
 CellID->647278937,ExpressionUUID->"567ad53a-cd8b-4384-ad89-6bb044aed664"],

Cell["Congruences possess many properties of equations. ", "SummaryList",
 CellChangeTimes->{{3.8000980881632013`*^9, 3.8000981155635386`*^9}, {
   3.800098180006964*^9, 3.800098220207896*^9}, {3.8000982592331915`*^9, 
   3.8000982595639834`*^9}, {3.8002579914913454`*^9, 3.8002579940992994`*^9}, 
   3.800258026760265*^9, {3.800698988794465*^9, 3.8006989917497845`*^9}},
 CellID->1812422104,ExpressionUUID->"4d162a68-7ad2-4a2c-b5e0-efb2cbe99b9d"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "\[Congruent]", 
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"1eafaf8f-76f7-47e2-b923-42c36ab69262"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "\[Congruent]", 
    RowBox[{"d", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"2c5891b6-8c97-496d-a0f7-45cc2bb6b4ba"],
 ", then ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", "\[PlusMinus]", "c"}], "\[Congruent]", 
    RowBox[{"b", "\[PlusMinus]", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"mod", " ", "m"}], ")"}]}]}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"2d2a8a03-4972-413b-98f0-904de1ce389e"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"a", "*", "c"}], "\[Congruent]", 
    RowBox[{"b", "*", "d", " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ee634f85-6332-404b-9b72-295434288032"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["a", "n"], "\[Congruent]", 
    RowBox[{
     SuperscriptBox["b", "n"], " ", 
     RowBox[{"(", 
      RowBox[{"mod", " ", "m"}], ")"}]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"14242b42-2ef2-4ae0-bb41-a2c887f1bb0e"],
 "."
}], "SummaryList",
 CellID->1470252880,ExpressionUUID->"85863d82-866a-4aa6-8d91-918a1e400aad"],

Cell["\<\
In modular arithmetic, numbers \[OpenCurlyDoubleQuote]wrap around\
\[CloseCurlyDoubleQuote] when reaching a certain value, which is the modulus.\
\
\>", "SummaryList",
 CellChangeTimes->{{3.8005865089029193`*^9, 3.8005865672383995`*^9}, {
  3.8005869263768363`*^9, 3.80058695084177*^9}, {3.8005938598789053`*^9, 
  3.8005938696872725`*^9}, {3.8005939121278944`*^9, 3.8005939140328007`*^9}},
 CellID->1593311778,ExpressionUUID->"a97ef51f-1827-44db-aa80-a5d6cbcc645c"],

Cell[TextData[{
 "Arithmetic modulo ",
 Cell[BoxData[
  FormBox["12", TraditionalForm]], "InlineMath",ExpressionUUID->
  "cf28de6e-2f48-4a19-ab42-75199a05c196"],
 " is also known as ",
 StyleBox["clock arithmetic",
  FontSlant->"Italic"],
 ". "
}], "SummaryList",
 CellID->1817458403,ExpressionUUID->"63365dda-bf2a-47d6-a41e-2319cc511adc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["\[Copyright] 2026 Wolfram Media, Inc.", "SmallText",
 CellMargins->{{66, 66}, {20, 100}},
 CellGroupingRules->"SectionGrouping",
 FontSize->12,
 FontColor->RGBColor[
  0.7098039215686275, 0.7098039215686275, 
   0.7098039215686275],ExpressionUUID->"71fc6a3c-fa1c-44be-9ad8-b390ffad0d24"]
},
Editable->True,
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowToolbars->{},
CellInsertionPointCell->None,
WindowSize->Automatic,
WindowMargins->Automatic,
WindowFrame->"Normal",
WindowPersistentStyles->{
 WindowFrame, WindowMargins, WindowSize, Magnification},
WindowTitle->"8. Modular Arithmetic | Introduction to Number Theory",
DockedCells->{
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> TemplateBox[<|
        "heading" -> "Wolfram eTextbook Series", "title" -> 
         "Introduction to Number Theory"|>, "BannerHeadingTitleTemplate"], 
      "previous" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerLeftArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "7. Congruences"}, "PrettyTooltipTemplate"], "next" -> TemplateBox[{
         TemplateBox[{
           TemplateBox[{}, "BannerRightArrowTemplate"], 
           Function[{}, 
            
            NotebookLocate[{
             "NumberTheory-03-09_Chinese-Remainder-Theorem.nb", ""}, 
             FrontEnd`HistoryData :> {
               EvaluationNotebook[]}]]}, "BannerButtonTemplate"], 
         "9. Chinese Remainder Theorem"}, "PrettyTooltipTemplate"], "menu" -> 
      TemplateBox[{
         TemplateBox[{{
           "\"Cover\"" :> 
            NotebookLocate[{"NumberTheory-00a_Cover.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Preface\"" :> 
            NotebookLocate[{"NumberTheory-00b_Preface.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Introduction", Bold] :> 
            NotebookLocate[{
              "NumberTheory-01-01_What-Is-Number-Theory.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"1. What Is Number Theory?\"" :> 
            NotebookLocate[{
              "NumberTheory-01-01_What-Is-Number-Theory.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"2. Integers: The Basics\"" :> 
            NotebookLocate[{"NumberTheory-01-02_Integers-The-Basics.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"3. Primes and Composites\"" :> 
            NotebookLocate[{
              "NumberTheory-01-03_Primes-and-Composites.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 1 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-01b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            StyleBox["Primes and Divisibility", Bold] :> 
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"4. Prime Factorization\"" :> 
            NotebookLocate[{"NumberTheory-02-04_Prime-Factorization.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"5. Multiples and Divisors\"" :> 
            NotebookLocate[{
              "NumberTheory-02-05_Multiples-and-Divisors.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"6. Greatest Common Divisor\"" :> 
            NotebookLocate[{
              "NumberTheory-02-06_Greatest-Common-Divisor.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 2 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-02b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Modular Arithmetic", Bold] :> 
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"7. Congruences\"" :> 
            NotebookLocate[{"NumberTheory-03-07_Congruences.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"8. Modular Arithmetic\"" :> 
            NotebookLocate[{"NumberTheory-03-08_Modular-Arithmetic.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"9. Chinese Remainder Theorem\"" :> 
            NotebookLocate[{
              "NumberTheory-03-09_Chinese-Remainder-Theorem.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 3 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-03b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Continued Fractions", Bold] :> 
            NotebookLocate[{
              "NumberTheory-04-10_Real-Number-Representations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"10. Real Number Representations\"" :> 
            NotebookLocate[{
              "NumberTheory-04-10_Real-Number-Representations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"11. Continued Fractions\"" :> 
            NotebookLocate[{"NumberTheory-04-11_Continued-Fractions.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "\"12. Best Rational Approximations\"" :> 
            NotebookLocate[{
              "NumberTheory-04-12_Best-Rational-Approximations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 4 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-04b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            StyleBox["Diophantine Equations", Bold] :> 
            NotebookLocate[{
              "NumberTheory-05-13_Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"13. Diophantine Equations\"" :> 
            NotebookLocate[{
              "NumberTheory-05-13_Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "\"14. Linear Diophantine Equations\"" :> 
            NotebookLocate[{
              "NumberTheory-05-14_Linear-Diophantine-Equations.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "\"15. Diophantine Equations of Degree 2\"" :> 
            NotebookLocate[{
              "NumberTheory-05-15_Diophantine-Equations-of-Degree-2.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 5 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-05b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Cryptography", Bold] :> 
            NotebookLocate[{"NumberTheory-06-16_Cryptography.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"16. Cryptography\"" :> 
            NotebookLocate[{"NumberTheory-06-16_Cryptography.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"17. The RSA Algorithm\"" :> 
            NotebookLocate[{"NumberTheory-06-17_The-RSA-Algorithm.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 6 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-06b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], StyleBox["Additional Topics", Bold] :> 
            NotebookLocate[{
              "NumberTheory-07-18_Primality-Testing-Miller-Rabin.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "\"18. Primality Testing: Miller\[Dash]Rabin\"" :> 
            NotebookLocate[{
              "NumberTheory-07-18_Primality-Testing-Miller-Rabin.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "\"19. Factorization: Pollard\[CloseCurlyQuote]s Rho\"" :> 
            NotebookLocate[{
              "NumberTheory-07-19_Factorization-Pollards-Rho.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], 
            "\"20. Diophantine Equations: Hilbert\[CloseCurlyQuote]s Tenth \
Problem\"" :> NotebookLocate[{
              "NumberTheory-07-20_Diophantine-Equations-Hilberts-Tenth-\
Problem.nb", ""}, FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"21. The Riemann Zeta Function\"" :> 
            NotebookLocate[{
              "NumberTheory-07-21_The-Riemann-Zeta-Function.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"22. Special Numbers\"" :> 
            NotebookLocate[{"NumberTheory-07-22_Special-Numbers.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"23. Numeral Systems\"" :> 
            NotebookLocate[{"NumberTheory-07-23_Numeral-Systems.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}], "\"Part 7 Exercises\"" :> 
            NotebookLocate[{"NumberTheory-07b_Exercises.nb", ""}, 
              FrontEnd`HistoryData :> {
                EvaluationNotebook[]}]}}, "BannerMenuTemplate"], 
         "Table of contents"}, "PrettyTooltipTemplate"]|>, "BannerTemplate"]],
    "DockedCell", "Banner"], 
  Cell[
   BoxData[
    TemplateBox[<|
     "label" -> "Lusine Sukiasyan and Charles Pooh  |  Cite this eTextbook"|>,
      "BannerCitationOpenerTemplate"]], "DockedCell", 
   "BannerCitationOpenerLabel"], 
  Cell[
   BoxData[
    TemplateBox[{
      TemplateBox[{"\"Lusine Sukiasyan and Charles Pooh (2026), \"", 
        StyleBox[
        "\"Introduction to Number Theory: A Computational Approach,\"", 
         Selectable -> True, Copyable -> True, FontSlant -> Italic], 
        "\" Wolfram Media. \
wolfram-media.com/products/introduction-to-number-theory.\""}, "RowDefault"], 
      
      RowBox[{"Lusine Sukiasyan and Charles Pooh (2026), ", 
        StyleBox[
        "Introduction to Number Theory: A Computational Approach,", FontSlant -> 
         "Italic"], 
        " Wolfram Media. \
wolfram-media.com/products/introduction-to-number-theory."}]}, 
     "CitationClickToCopy2", BaseStyle -> {LineBreakWithin -> Automatic}]], 
   "DockedCell", "BannerCitation", CellOpen -> Dynamic[
     TrueQ[
      CurrentValue[
       EvaluationNotebook[], {TaggingRules, "eTextbook", "CitationOpener"}, 
       False]]]]},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
ShowCellBracket->Automatic,
TaggingRules-><|"eTextbook" -> <|"CitationOpener" -> False|>|>,
ShowCellLabel->False,
CellLabelAutoDelete->True,
CellLabelTemplate-><|
 "In" -> "In[`1`]:=", "InExpired" -> "In[`1`]:=", "Out" -> "Out[`1`]=", 
  "OutExpired" -> "Out[`1`]="|>,
ShowCellTags->False,
ShowAutoSpellCheck->False,
ShowPredictiveInterface->False,
AutoStyleOptions->{"HighlightComments"->True},
AutoMultiplicationSymbol->{},
Magnification->1,
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 1, 2025)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell[
      "Style Environments", "Section", 
       CellChangeTimes -> {{3.64661165091824*^9, 3.646611654013329*^9}, 
         3.6485723794335403`*^9, 3.651347081728628*^9, 3.651347179462186*^9, 
         3.651347384135805*^9, 3.651348171662589*^9}], 
      Cell[
       StyleData[All, "Working"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[5]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Appearance -> "PopupMenu",
                Method -> "Queued", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False], 
      Cell[
       StyleData[All, "Printout"], PageWidth :> 700, 
       PrintingOptions -> {"PageSize" -> {504, 720}}, 
       AutoStyleOptions -> {"UndefinedSymbolStyle" -> None}, Magnification -> 
       0.6], 
      Cell[
       StyleData[All, "Invisibles"], CellInsertionPointCell -> 
       FEPrivate`FrontEndResource["FEExpressions", "CellInsertionMenu"], 
       DockedCells -> {
         Cell[
          BoxData[
           GridBox[{{
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]], 
              ActionMenuBox[
              "\"Insert\"", {
               "\"Subsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsectionStyle[]), 
                "\"Subsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsectionStyle[]), 
                "\"Subsubsubsection\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToSubsubsubsectionStyle[]), 
                Delimiter, 
                "\"Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToTextStyle[]), "\"CodeText\"" :> 
                Module[{$CellContext`bn = ButtonNotebook[]}, 
                  If[
                   Developer`CellInformation[$CellContext`bn] =!= $Failed, 
                    While[
                    FreeQ[
                    Developer`CellInformation[$CellContext`bn], 
                    "CellBracket"], 
                    FrontEndExecute[
                    
                    FrontEnd`SelectionMove[$CellContext`bn, All, Cell, 
                    AutoScroll -> False]]]; 
                    SelectionMove[$CellContext`bn, After, Cell]]; 
                  NotebookWrite[$CellContext`bn, 
                    Cell["XXXX", "CodeText"], All]; 
                  SelectionMove[$CellContext`bn, All, CellContents]], 
                "\"Hyperlink\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTGenerateHyperlinkDialog[]), 
                "\"Display Formula\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertDisplayFormulaCell[]), Delimiter, 
                "\"Solved Example\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleAndSolvedExampleNoteCells[]), 
                "\"Solved Example Input\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleInputCell[]), 
                "\"Solved Example Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleNoteCell[]), 
                "\"Solved Example Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolvedExampleDisplayFormulaCell[]),
                 "\"Solved Example Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertSolvedExampleDisplayFormulaNumberedCell[]), Delimiter, 
                "\"Theorem\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremCell[]), 
                "\"Theorem Numbered\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremNumberedCell[]), 
                "\"Theorem Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTheoremTextCell[]), 
                "\"Proof/Theorem Display Formula\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTheoremDisplayCell[]), 
                "\"Proof/Theorem Display Formula Numbered\"" :> (
                 Needs["WolframBookTools`"]; 
                 WolframBookTools`\
WBTInsertProofTheoremDisplayFormulaNumberedCell[]), 
                "\"Proof\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofCell[]), 
                "\"Proof Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertProofTextCell[]), Delimiter, 
                "\"Vocabulary 2Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd2ColTable[]), 
                "\"Vocabulary 3Col\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertVocabularySectionAnd3ColTable[]), 
                "\"Add Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[]), 
                "\"Remove Row\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["RemoveRow" -> True]), 
                "\"Apply Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow["AddDivider" -> True]), 
                "\"Remove Divider\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTVocabTableAddRow[
                  "RemoveDivider" -> True]), Delimiter, 
                "\"Exercises\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSection[]), 
                "\"Exercise Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseNote[]), 
                "\"Solution Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertExerciseSolution[]), 
                "\"Solution Text\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertSolutionAnswer[]), Delimiter, 
                "\"Q&A | Tech Notes | More\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQAndATechNotesMore[]), 
                "\"Question\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertQuestion[]), 
                "\"Answer\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertAnswer[]), 
                "\"Tech Note\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertTechNote[]), 
                "\"More to Explore\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertMoreExplore[]), Delimiter, 
                "\"References Section\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTInsertReferencesSection[]), 
                "\"Add Reference\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTAddReferenceCell[]), Delimiter, 
                "\"Comment\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyComment[])}, Appearance -> 
               "PopupMenu", FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              ActionMenuBox[
              "\"Function Name\"", {
               "\"Link\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTMakeSymbolLink[]), 
                "\"Format\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTFormatSymbol[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ButtonBox[
              "\"Resource Function Link\"", 
               ButtonFunction :> (Needs["WolframBookTools`"]; 
                WolframBookTools`WBTResourceFunctionLink[]), Evaluator -> 
               Automatic, Appearance -> "DialogBox", Method -> "Queued"], 
              ActionMenuBox[
              "\"Inline Format\"", {
               "\"Inline Code\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTConvertToInlineCode[]), 
                "\"Traditional Math\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTTraditionalFormCell[])}, Appearance -> 
               "PopupMenu", Method -> "Queued", FrameMargins -> 2.4], 
              ActionMenuBox[
              "\"Mark Cells\"", {
               "\"Tentative\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyTentative[]), Delimiter, 
                "\"Print Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyPrintOnly[]), 
                "\"Web Only\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyWebOnly[]), Delimiter, 
                "\"Locked\"" :> (Needs["WolframBookTools`"]; 
                 WolframBookTools`WBTApplyLock[])}, Method -> "Queued", 
               FrameMargins -> 2.4], 
              ItemBox["", ItemSize -> Fit], 
              GridBox[{{
                 TooltipBox[
                  ButtonBox[
                  "\"Index Field\"", Appearance -> {"AbuttingRight"}, 
                   ButtonFunction :> (Needs["WolframBookTools`"]; 
                    WolframBookTools`WBTInsertIndexField[]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "First put the cursor in a cell to insert a corresponding \
field above to insert index entries.\nList main index entries corresponding \
to the cell separated by commas. Any associated sub-entries\nshould be put \
immediately after in braces.\nExample: programming{functional, rule based}, \
function, relation, lists{flat, nested}\n If $Language is \"ChineseSimplified\
\", \"ChineseTraditional\", \"Japanese\", \"Korean\" or \"Russian\"\ntwo \
index fields get inserted above a selected cell, the top one for inserting \
entries\nintended for the Englsh index and the bottom for the index in the \
language given by $Language.", TooltipDelay -> 0.3], 
                 TooltipBox[
                  ButtonBox[
                  "\"Toggle\"", Appearance -> {"AbuttingLeft"}, 
                   ButtonFunction :> (CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] = 
                    If[CurrentValue[
                    ButtonNotebook[], ScreenStyleEnvironment] === 
                    "Invisibles", "Working", "Invisibles"]), Evaluator -> 
                   Automatic, Method -> "Queued"], 
                  "Toggles index entry fields.", TooltipDelay -> 0.3]}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "ColumnsIndexed" -> {2 -> 0}, "Rows" -> {{Automatic}}}], 
              InterpretationBox[
               StyleBox[
                
                GraphicsBox[{}, BaselinePosition -> Baseline, 
                 ImageSize -> {4, 0}], CacheGraphics -> False], 
               Spacer[4]]}}]], "DockedCell", 
          CellFrameMargins -> {{0, 0}, {8, 8}}]}, CreateCellID -> True, 
       TrackCellChangeTimes -> False, ShowPredictiveInterface -> False, 
       AutoStyleOptions -> {
        "UndefinedSymbolStyle" -> 
         None}, $CellContext`GhostCellInEmptyNotebook -> False]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Headers and Footers", "Section"], 
      Cell[
       StyleData["Header"], 
       PrintingOptions -> {"PageHeaderMargins" -> {28, 28}}, StyleMenuListing -> 
       None, FontFamily -> "Source Sans Pro", FontSize -> 8, FontWeight -> 
       "Regular", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0.45]], 
      Cell[
       StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       8, FontWeight -> "Bold", FontSlant -> "Plain", 
       PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> 
       GrayLevel[0]]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell[
      "Custom Styles", "Section", 
       CellChangeTimes -> {{3.646611660445352*^9, 3.646611669493331*^9}}], 
      Cell[
       StyleData["Notebook"], WindowToolbars -> {}, PageWidth :> WindowWidth, 
       PrintingOptions -> {
        "FirstPageHeader" -> True, "InnerOuterMargins" -> {30, 30}, 
         "PaperOrientation" -> "Portrait", "PaperSize" -> {504, 720}, 
         "PrintingMargins" -> {{20, 20}, {54, 54}}}, CellLabelAutoDelete -> 
       False, ShowSyntaxStyles -> True, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, MenuSortingValue -> 
       None, GraphicsBoxOptions -> {ImageSize -> 240}, 
       Graphics3DBoxOptions -> {ImageSize -> 240}], 
      Cell[
       StyleData["TOCPage"], CellSize -> {40, Inherited}, TextAlignment -> 
       Right, MenuSortingValue -> 20010, StyleMenuListing -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ContentsTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          MenuSortingValue -> 20000, FontFamily -> "Helvetica", FontSize -> 
          36, FontWeight -> "Bold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ContentsTitle", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCTitle"], CellMargins -> {{66, 66}, {4, 14}}, 
          CellGroupingRules -> {"SectionGrouping", 70}, TabSpacings -> 36, 
          CounterIncrements -> "TOCTitle", MenuSortingValue -> 20020, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontWeight -> 
          "Bold", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TOCTitle", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TOCSection"], CellMargins -> {{95, 95}, {1, 1}}, 
          CellGroupingRules -> {"SectionGrouping", 75}, TabSpacings -> 34, 
          CounterIncrements -> "TOCSection", MenuSortingValue -> 20030, 
          FontFamily -> "Source Sans Pro", FontSize -> 16], 
         Cell[
          StyleData["TOCSection", "Printout"]]}, Closed]], 
      Cell[
       StyleData["Leader"], TabFilling -> ".", MenuSortingValue -> 10000, 
       StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 
       18, FontWeight -> "Plain"], 
      Cell[
       StyleData["LeaderNoDots"], TabFilling -> " ", MenuSortingValue -> 
       10000, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", 
       FontSize -> 18, FontWeight -> "Plain"], 
      Cell[
       StyleData["PageLink"], MenuSortingValue -> 10000, StyleMenuListing -> 
       None, ButtonStyleMenuListing -> Automatic, FontFamily -> 
       "Source Sans Pro", FontSize -> 18, FontColor -> 
       RGBColor[0.269993, 0.308507, 0.6], 
       ButtonBoxOptions -> {
        Active -> True, Appearance -> {Automatic, None}, 
         ButtonFunction :> (FrontEndExecute[{
            FrontEnd`NotebookLocate[#2]}]& )}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], CellMargins -> {{64, Inherited}, {50, 72}}, 
          MenuCommandKey :> None, FontFamily -> "Verdana", FontSize -> 42, 
          FontWeight -> "Bold", FontColor -> GrayLevel[0.4]], 
         Cell[
          StyleData["Title", "Printout"], 
          CellMargins -> {{64, Inherited}, {50, 72}}]}, Closed]], 
      Cell[
       StyleData["Chapter"], MenuCommandKey :> None], 
      Cell[
       StyleData["Subchapter"], MenuCommandKey :> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Section"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{64, Inherited}, {12, 64}}, 
          CellGroupingRules -> {"SectionGrouping", 30}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["Section", "Printout"], 
          CellMargins -> {{62, 4}, {52, 182}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionSingleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{100, 100}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionSingleDigit", "Printout"], 
          CellMargins -> {{100, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionDoubleDigit"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellDingbat -> Cell[
            TextData[
             CounterBox["Section"], 
             StyleBox[
             "|\[NegativeThinSpace]\[VeryThinSpace]", FontColor -> 
              RGBColor[
               0.9019607843137255, 0.4117647058823529, 0.027450980392156862`],
               FontFamily -> "Courier", FontSize -> 36, FontWeight -> Plain]],
             "SectionNumber"], CellMargins -> {{112, Inherited}, {12, 64}}, 
          Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 60}, 
          PageBreakAbove -> True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionDoubleDigit", "Printout"], 
          CellMargins -> {{112, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNumber"], CellBaseline -> Baseline, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 26, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionBar"], FontFamily -> "Source Sans Pro", 
          FontWeight -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionBar", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionInline"], FontFamily -> 
          "Source Sans Pro Semibold", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SectionInline", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SectionNoDingbat"], 
          CellMargins -> {{64, Inherited}, {12, 64}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, ShowCellLabel -> False, 
          CellFrameLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, 
          CellChangeTimes -> {3.652728456208679*^9, 3.652728527108994*^9}, 
          CounterIncrements -> "Section", 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro Semibold", 
          FontSize -> 26, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          InterpretationBoxOptions -> {Editable -> True}], 
         Cell[
          StyleData["SectionNoDingbat", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 2}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumbered"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Subsection"]}], "SubsectionNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{98, Inherited}, {Inherited, 32}}, 
          CounterIncrements -> "Subsection", FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsectionNumbered", "Printout"], 
          CellMargins -> {{102, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionNumber"], FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          GrayLevel[0.25]], 
         Cell[
          StyleData["SubsectionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsectionFirst"], 
          CellMargins -> {{64, Inherited}, {2, 72}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {12, 32}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsection"], CellMargins -> {{64, Inherited}, {2, 32}}, 
          FontFamily -> "Source Sans Pro Semibold", FontSize -> 18, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SubsubsectionTopMargin"], 
          CellMargins -> {{64, Inherited}, {2, 14}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 16, FontSlant -> "Italic", 
          FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["SubsubsectionTopMargin", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsection"], 
          CellMargins -> {{64, Inherited}, {2, 32}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.45]], 
         Cell[
          StyleData["Subsubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubsubsubsection"], 
          CellMargins -> {{66, Inherited}, {2, 10}}, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subsubsubsection", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> 
            "Subsubsubsection"}, CellGroupingRules -> {"SectionGrouping", 70},
           PageBreakBelow -> False, LanguageCategory -> "NaturalLanguage", 
          CounterIncrements -> "Subsubsubsubsection", 
          CounterAssignments -> {{"Item", 0}, {"Subitem", 0}, {
            "Subsubitem", 0}, {"ItemNumbered", 0}, {"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> None, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["Subsubsubsubsection", "Printout"], 
          CellMargins -> {{66, 66}, {2, 10}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesSubsection"], 
          CellMargins -> {{64, Inherited}, {4, 16}}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesSubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["VocabularySection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 24}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularySubsectionSM"], 
          CellFrame -> {{0, 0}, {0.75, 0}}, 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Bold", FontSlant -> 
          "Regular", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["VocabularySubsubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 15}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyTable", StyleDefinitions -> StyleData["Text"]],
           SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"VocabularyCode", Inherited, Inherited}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "VocabularyTable3Column", StyleDefinitions -> StyleData["Text"]], 
          SpanMaxSize -> 1, FontFamily -> "Source Sans Pro Light", FontColor -> 
          GrayLevel[0.8], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False, {
                 Directive[
                  Thickness[0.5], "VocabDivColor"]}, False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {
               "VocabularyCode", Inherited, "VocabularyCode", Inherited, 
                Inherited}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{0, 1, 2, 1, 2}}, "Rows" -> {{1}}}}], 
         Cell[
          StyleData["VocabularyTable3Column", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["VocabularyText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabularyCode", StyleDefinitions -> StyleData["Text"]], 
          Deletable -> False, FontFamily -> "Source Sans Pro", FontSize -> 14,
           FontWeight -> "Bold", FontColor -> GrayLevel[0.25], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["VocabularyCode", "Printout"], FontColor -> 
          GrayLevel[0.25]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["GrayPointSix"], FontColor -> GrayLevel[0.6]], 
         Cell[
          StyleData["GrayPointSix", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["VocabDivColor"], FontColor -> GrayLevel[0.8]], 
         Cell[
          StyleData["VocabDivColor", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummarySection"], PageWidth :> WindowWidth, 
          CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakAbove -> 
          True, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], MenuSortingValue -> 9000, 
          FontFamily -> "Source Sans Pro", FontSize -> 18, FontSlant -> 
          "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["SummarySection", "Printout"], 
          CellMargins -> {{64, 64}, {8, 30}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryNote"], PageWidth :> WindowWidth, 
          CellMargins -> {{64, 64}, {4, 8}}, ReturnCreatesNewCell -> True, 
          PageBreakBelow -> False, MenuSortingValue -> 9010, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryNote", "Printout"], 
          CellMargins -> {{68, 68}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SummaryList"], PageWidth :> WindowWidth, CellDingbat -> 
          Cell[
            TextData[{"\[FilledSmallSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, 78}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 3, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 9020, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SummaryList", "Printout"], 
          CellMargins -> {{82, 82}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, Evaluatable -> True, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, ShowCellLabel -> False, CellFrameMargins -> {{8, 8}, {4, 6}},
           CellFrameColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Exercise", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ExerciseSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsection"], PageWidth :> 500, 
          CellFrame -> {{False, False}, {1, False}}, 
          CellMargins -> {{64, Inherited}, {8, 18}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6], FontFamily -> "Source Sans Pro", FontSize -> 
          18, FontSlant -> "Italic", FontColor -> RGBColor[0.65, 0.6, 0.6]], 
         Cell[
          StyleData["ExerciseSubsection", "Printout"], 
          CellFrame -> {{False, False}, {1, False}}, CellFrameColor -> 
          RGBColor[0.65, 0.6, 0.6]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSubsectionSM"], 
          CellMargins -> {{64, Inherited}, {4, 12}}, 
          CellGroupingRules -> {"SectionGrouping", 61}, FontFamily -> 
          "Source Sans Pro Semibold", FontSize -> 15, FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ExerciseSubsectionSM", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Exercise"], CellDingbat -> Cell[
            TextData[{"  ", 
              CounterBox["Section"], ".", 
              CounterBox["Exercise"]}], "ExerciseNumber", FontColor -> 
            RGBColor[
             0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          ShowGroupOpener -> False, CellMargins -> {{106, Inherited}, {4, 8}},
           CellGroupingRules -> {"SectionGrouping", 62}, DefaultNewCellStyle -> 
          "ExerciseInput", CounterIncrements -> "Exercise", MenuSortingValue -> 
          10020, MenuCommandKey :> "2", FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["Exercise", "Printout"], ShowGroupOpener -> False, 
          CellMargins -> {{108, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSectionNote"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseSectionNote", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseNote"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, LineSpacing -> {1., 1., 2.}, MenuSortingValue -> 10050, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["ExerciseNote", "Printout"], 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseSolution"], ShowGroupOpener -> "Inline", 
          CellMargins -> {{106, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellGroupingRules -> {"SectionGrouping", 62.}, PageBreakBelow -> 
          False, CellChangeTimes -> {3.938884624675207*^9}, 
          LineSpacing -> {1., 1., 2.}, 
          CounterAssignments -> {{"ItemNumbered", 0}}, LineColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          FrontFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          BackFaceColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GraphicsColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro Semibold",
           FontSize -> 14, FontSlant -> "Plain", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["ExerciseSolution", "Printout"], 
          CellMargins -> {{106, Inherited}, {4, 8}}, 
          LineSpacing -> {0.8, 1., 2.}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionAnswer"], CellMargins -> {{106, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["SolutionAnswer", "Printout"], 
          CellMargins -> {{106, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolutionItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], ")"}], FontSize -> 14, FontWeight -> 
            "Regular", FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{122, Inherited}, {2, 4}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["SolutionItem", "Printout"], 
          CellMargins -> {{106, Inherited}, {2, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QASection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
            "Question", 0}}, FontFamily -> "Source Sans Pro", FontSize -> 18, 
          FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["QASection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Question"], CellMargins -> {{64, Inherited}, {2, 12}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          CounterIncrements -> "Question", MenuSortingValue -> 10030, 
          MenuCommandKey :> "3", FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Bold", FontSlant -> 
          "Plain", $CellContext`DefaultReturnCreatedCellStyle -> "Answer"], 
         Cell[
          StyleData["Question", "Printout"], 
          CellMargins -> {{65, Inherited}, {2, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Answer"], CellMargins -> {{66, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, LineSpacing -> {1.125, 1., 2.}, 
          MenuSortingValue -> 10032, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> 
          GrayLevel[0.25], $CellContext`DefaultReturnCreatedCellStyle -> 
          "Question"], 
         Cell[
          StyleData["Answer", "Printout"], 
          CellMargins -> {{66, 10}, {4, 1}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["QuestionNumber"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["QuestionNumber", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["TechNoteSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteSubsection"], 
          CellMargins -> {{64, Inherited}, {2, 10}}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
         Cell[
          StyleData["TechNoteSubsubsection", "Printout"], 
          CellMargins -> {{64, Inherited}, {6, 14}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteItem"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontSize -> 12, FontWeight -> 
            Bold, FontColor -> GrayLevel[0.25]], 
          CellMargins -> {{93, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, 
          CellChangeTimes -> {{3.651515120816633*^9, 3.651515125814807*^9}, 
            3.6515155174947033`*^9}, LineSpacing -> {1.25, 1., 2.}, 
          CounterIncrements -> "ItemNumbered", MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNoteItem", "Printout"], 
          CellMargins -> {{93, Inherited}, {4, 8}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteNoDingbat"], 
          CellMargins -> {{82, Inherited}, {4, 8}}, ReturnCreatesNewCell -> 
          True, CellFrameLabelMargins -> 4, LineSpacing -> {1.25, 1., 2.}, 
          MenuSortingValue -> 10040, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"], 
          CellMargins -> {{82, Inherited}, {4, 8}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNote"], CellDingbat -> Cell[
            TextData[{"\[FilledSquare]"}], FontSize -> 12, FontColor -> 
            GrayLevel[0.5]], CellMargins -> {{78, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, CellFrameLabelMargins -> 4, 
          LineSpacing -> {1.25, 1., 2.}, MenuSortingValue -> 10040, 
          FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
          "Plain", FontSlant -> "Plain", FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["TechNote", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TechNoteInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{99, 10}, {3, 7}}, SpanMaxSize -> 1, FontSize -> 
          14], 
         Cell[
          StyleData["TechNoteInput", "Printout"], 
          CellMargins -> {{99, 10}, {3, 7}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TechNoteOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 14], 
         Cell[
          StyleData["TechNoteOutput", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["MoreExploreSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExplore"], CellMargins -> {{64, Inherited}, {4, 8}}, 
          ReturnCreatesNewCell -> True, PageBreakBelow -> False, 
          MenuSortingValue -> 10050, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExplore", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MoreExploreShortURL"], 
          CellMargins -> {{64, Inherited}, {4, 8}}, PageBreakBelow -> False, 
          FontFamily -> "Source Sans Pro Light", FontSize -> 14, FontSlant -> 
          "Plain", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["MoreExploreShortURL", "Printout"], 
          CellMargins -> {{64, Inherited}, {4, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysSection"], CellFrame -> {{1, 1}, {1, 1}}, 
          CellMargins -> {{52, -12}, {-1, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{16, 8}, {6, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "Bold", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[1], Background -> 
          RGBColor[0.901961, 0.411765, 0.027451]], 
         Cell[
          StyleData["TakeawaysSection", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysHeader"], 
          CellMargins -> {{64, Inherited}, {5, 15}}, 
          CellFrameMargins -> {{8, 8}, {5, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontWeight -> "SemiBold", 
          FontSlant -> "Regular", FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysHeader", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysTable"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{52, -12}, {12, -1}}, ReturnCreatesNewCell -> True, 
          CellFrameMargins -> {{18, 12}, {20, 12}}, CellFrameLabelMargins -> 
          6, LineSpacing -> {1.25, 1., 2.}, SpanMaxSize -> 1, FontFamily -> 
          "Source Sans Pro Light", FontColor -> GrayLevel[0.25], Background -> 
          RGBColor[1., 0.9490196078431372, 0.8509803921568627], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {"Columns" -> {{False}}, "Rows" -> {False}}, 
            GridBoxItemStyle -> {
             "Columns" -> {"TakeawaysDingbat", Inherited}, 
              "Rows" -> {{SpanFromLeft, Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.75}}}}], 
         Cell[
          StyleData["TakeawaysTable", "Printout"], 
          CellMargins -> {{51.5, -12.5}, {12, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TakeawaysText"], FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["TakeawaysText", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TakeawaysDingbat", StyleDefinitions -> StyleData["Text"]], 
          FontFamily -> "Source Sans Pro", FontSize -> 10, FontWeight -> 
          "SemiBold", FontColor -> RGBColor[0.901961, 0.411765, 0.027451], 
          GridBoxOptions -> {
           GridBoxAlignment -> {"Columns" -> {{Left}}}, 
            GridBoxDividers -> {
             "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
              "Rows" -> {True, {True}, True}, "RowsIndexed" -> {}}}], 
         Cell[
          StyleData["TakeawaysDingbat", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeText", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 10}, {3, 15}}, LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 1540, 
          MenuCommandKey :> $CellContext`MenuKey[
           "7", $CellContext`Modifiers -> {"Shift"}], FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeText", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeCaption"], CellFrame -> {{0, 0}, {0, 0}}, 
          CellMargins -> {{66, 10}, {4, 12}}, PageBreakBelow -> False, 
          CellFrameColor -> GrayLevel[0.4], LineSpacing -> {1, 1, 1}, 
          MenuSortingValue -> 10010, MenuCommandKey :> "1", FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontColor -> GrayLevel[0.25]], 
         Cell[
          StyleData["CodeCaption", "Printout"], 
          CellMargins -> {{66, 10}, {4, 12}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DisplayFormula"], CellMargins -> {{99, 15}, {2, 12}}, 
          StripStyleOnPaste -> True, DefaultFormatType -> 
          DefaultInputFormatType, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           LanguageCategory -> "Formula", ScriptLevel -> 0, 
          SingleLetterItalics -> True, MenuSortingValue -> 1700, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> GrayLevel[0.2], 
          UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
         Cell[
          StyleData["DisplayFormula", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "DisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["DisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Inherited}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, 6}, {Inherited, Inherited}}, 
          TextAlignment -> Left, CounterIncrements -> 
          "DisplayFormulaNumbered", MenuSortingValue -> 1710, FontFamily -> 
          "Baskerville", FontSize -> 16, FontWeight -> "Regular", FontSlant -> 
          "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}], 
         Cell[
          StyleData["DisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{99, 19}, {Inherited, Inherited}}, 
          CellFrameMargins -> {{Inherited, Inherited}, {
            Inherited, Inherited}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Print"], CellMargins -> {{99, 10}, {4, 4}}, FontSize -> 
          15], 
         Cell[
          StyleData["Print", "Presentation"], 
          CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}], 
         
         Cell[
          StyleData["Print", "SlideShow"], 
          CellMargins -> {{
            0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.01 
             FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, {8, 15}}, 
          FontSize -> 18], 
         Cell[
          StyleData["Print", "Condensed"], 
          CellMargins -> {{18, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "Printout"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Print", "PrintoutGray"], 
          CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Item"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontFamily -> Automatic, FontSize -> 
            18, FontWeight -> GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{81, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "Subitem", "*" -> "Subitem"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
          CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15], 
         Cell[
          StyleData["Item", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{80, Inherited}, {Inherited, Inherited}}, 
          CellDingbatMargin -> 2, 
          CellGroupingRules -> {
           "GroupTogetherNestedGrouping", 1.073741821*^9}, 
          CellChangeTimes -> {{3.8855684925344043`*^9, 
           3.885568495926271*^9}, {3.885643888233819*^9, 
           3.885643900721007*^9}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemParagraph"], CellMargins -> {{81, 10}, {4, 1}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          MenuSortingValue -> 1600, FontFamily -> "Source Sans Pro", FontSize -> 
          15, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["ItemParagraph", "Printout"], 
          CellMargins -> {{80, Inherited}, {Inherited, 0.5 Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ItemNumbered"], CellDingbat -> Cell[
            TextData[{
              CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold"], 
          CellMargins -> {{85, 10}, {4, 8}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemNumbered"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameLabelMargins -> 4, CounterIncrements -> "ItemNumbered", 
          CounterAssignments -> {{"SubitemNumbered", 0}, {
            "SubsubitemNumbered", 0}}, MenuSortingValue -> 1630, FontFamily -> 
          "Source Sans Pro", FontSize -> 15], 
         Cell[
          StyleData["ItemNumbered", "Printout"], 
          CellMargins -> {{90, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Tab" -> "Subsubitem", "*" -> "Subsubitem", "Backspace" -> 
            "Item", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Item"}, 
          CellGroupingRules -> {"ItemGrouping", 80}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subitem", 
          CounterAssignments -> {{"Subsubitem", 0}}, MenuSortingValue -> 1610,
           FontFamily -> "Source Sans Pro", FontSize -> 14], 
         Cell[
          StyleData["Subitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 17, FontFamily -> 
            "Automatic", FontWeight -> "Black", 
            RGBColor[
            0.9019607843137255, 0.4117647058823529, 0.027450980392156862`]], 
          CellMargins -> {{105, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subsubitem"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            RGBColor[0.6, 0.6, 0.6]], CellMargins -> {{129, 12}, {4, 4}}, 
          ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {
           "Backspace" -> 
            "Subitem", $CellContext`KeyEvent[
             "Tab", $CellContext`Modifiers -> {"Shift"}] -> "Subitem"}, 
          CellGroupingRules -> {"ItemGrouping", 90}, CellFrameLabelMargins -> 
          4, CounterIncrements -> "Subsubitem", MenuSortingValue -> 1620, 
          FontFamily -> "Source Sans Pro", FontSize -> 13], 
         Cell[
          StyleData["Subsubitem", "Printout"], CellDingbat -> 
          StyleBox[
           "\:203a", Alignment -> Baseline, FontSize -> 18, FontWeight -> 
            GrayLevel[0], 
            GrayLevel[0.65]], 
          CellMargins -> {{129, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Note"], CellFrame -> {{0, 0}, {0, 1}}, 
          CellMargins -> {{66, 0}, {8, 6}}, ReturnCreatesNewCell -> True, 
          StyleKeyMapping -> {"Tab" -> "SubitemParagraph"}, 
          CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
          CellFrameMargins -> {{14, 14}, {12, 12}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], 
          LineSpacing -> {1.2, 1., 2.}, MenuSortingValue -> 1600, FontFamily -> 
          "Source Sans Pro", FontSize -> 15, FontColor -> GrayLevel[0.2], 
          Background -> RGBColor[1., 0.9647058823529412, 0.9411764705882353]], 
         Cell[
          StyleData["Note", "Printout"], CellMargins -> {{66, 0}, {10, 8}}, 
          FontSize -> 14]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Echo"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["Echo", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EchoTiming"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}], 
         Cell[
          StyleData["EchoTiming", "Printout"], 
          CellMargins -> {{99, Inherited}, {Inherited, Inherited}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Epigraph"], CellMargins -> {{100, 78}, {6, 24}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, TextAlignment -> Left, Hyphenation -> 
          True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 5}}, 
          LineSpacing -> {1, 2}, TabSpacings -> {1.2, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontWeight -> "Plain", FontSlant -> 
          "Plain"], 
         Cell[
          StyleData["Epigraph", "Printout", StyleDefinitions -> None]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EpigraphAuthor"], CellMargins -> {{125, 100}, {12, 12}}, 
          TextAlignment -> Left, LineSpacing -> {1, 2}, 
          ParagraphIndent -> -17, TabSpacings -> {1.5, 2.5}, FontFamily -> 
          "Source Sans Pro", FontSize -> 16, FontWeight -> "Plain", FontSlant -> 
          "Plain", FontTracking -> -0.05], 
         Cell[
          StyleData["EpigraphAuthor", "Printout", StyleDefinitions -> None]]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ReferenceSection"], CellFrame -> {{0, 0}, {0, 3}}, 
          CellMargins -> {{64, Inherited}, {8, 30}}, 
          CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> 
          False, CellFrameMargins -> {{8, 8}, {4, 6}}, CellFrameColor -> 
          RGBColor[0.901961, 0.411765, 0.027451], FontFamily -> 
          "Source Sans Pro", FontSize -> 18, FontSlant -> "Italic", FontColor -> 
          RGBColor[
           0.9019607843137255, 0.4117647058823529, 0.027450980392156862`], 
          GridBoxOptions -> {GridBoxAlignment -> {}}], 
         Cell[
          StyleData["ReferenceSection", "Printout"], 
          CellMargins -> {{64, Inherited}, {8, 30}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Reference"], CellDingbat -> Cell[
            TextData[{
              CounterBox["Reference"]}], "SR", FontSize -> 13, 
            CellSize -> {30, Inherited}, TextAlignment -> Right], 
          CellMargins -> {{80, 10}, {3, 4}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, 
          CellFrameLabelMargins -> 8, 
          CellChangeTimes -> {{3.738599543211059*^9, 3.738599549834622*^9}}, 
          LineSpacing -> {1, 2}, ParagraphIndent -> -8, 
          TabSpacings -> {0.7, 2.5}, CounterIncrements -> "Reference", 
          MenuSortingValue -> 1870, FontFamily -> "Source Sans Pro", FontSize -> 
          14, FontWeight -> "Plain", FontSlant -> "Plain"], 
         Cell[
          StyleData["Reference", "Printout", StyleDefinitions -> None], 
          CellMargins -> {{66, 10}, {3, 4}}, TabSpacings -> {1.2, 2.5}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["TextFirst"], CellMargins -> {{66, 10}, {4, 72}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Baskerville", FontSize -> 
          18, FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["Text", "Printout"], CellMargins -> {{66, 10}, {7, 7}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], CellMargins -> {{66, 10}, {4, 12}}, 
          ReturnCreatesNewCell -> True, 
          CellChangeTimes -> {{3.968834509197134*^9, 3.968834509700926*^9}}, 
          FontFamily -> "Baskerville", FontSize -> 18, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`]], 
         Cell[
          StyleData["Text", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SmallText"], CellMargins -> {{66, 10}, {6, 6}}, 
          LineSpacing -> {1, 3}, TabSpacings -> {2.5}, LanguageCategory -> 
          "NaturalLanguage", CounterIncrements -> "SmallText", 
          MenuSortingValue -> 1750, StyleMenuListing -> None, FontFamily -> 
          "Source Sans Pro", FontSize -> 14, FontColor -> GrayLevel[0.2]], 
         Cell[
          StyleData["SmallText", "Printout"], 
          CellMargins -> {{66, 10}, {7, 7}}, Hyphenation -> True]}, Closed]], 
      
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesText"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesText", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ResourcesLink"], CellMargins -> {{66, 10}, {2, 0}}, 
          ReturnCreatesNewCell -> True, FontFamily -> "Source Sans Pro", 
          FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Italic", 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourcesLink", "Printout"], 
          CellMargins -> {{66, 10}, {2, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], CellMargins -> {{99, 10}, {3, 7}}, CellEpilog :> 
          Quiet[Needs["WolframBookTools`"]; 
            WolframBookTools`AddCaptionsToRegeneratedOutput[]], SpanMaxSize -> 
          1, FontSize -> 15], 
         Cell[
          StyleData["Input", "Printout"], CellMargins -> {{99, 10}, {3, 7}}]},
         Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], CellMargins -> {{99, 10}, {14, 7}}, FontSize -> 
          15], 
         Cell[
          StyleData["Output", "Printout"], 
          CellMargins -> {{99, 10}, {14, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputOnly"], CellMargins -> {{99, 10}, {25, 10}}, 
          SpanMaxSize -> 1, MenuSortingValue -> 1500, FontSize -> 15], 
         Cell[
          StyleData["InputOnly", "Printout"], 
          CellMargins -> {{99, 10}, {15, 10}}]}, Closed]], 
      Cell[
       StyleData["InitializationCell"], Background -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CellLabel"], 
          CellLabelMargins -> {{18, Inherited}, {Inherited, Inherited}}, 
          LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> 
          "Roboto", FontSize -> 9, FontWeight -> "Regular", FontSlant -> 
          "Plain", FontColor -> GrayLevel[0.5]], 
         Cell[
          StyleData["CellLabel", "Printout"], FontSize -> 8, FontColor -> 
          GrayLevel[0.3]]}, Closed]], 
      Cell[
       StyleData[
       "CellLabelExpired", StyleDefinitions -> StyleData["CellLabel"]], 
       CellLabelMargins -> 6, FontSlant -> Italic, FontTracking -> 0.4, 
       FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["IconizedDefaultName"], FontSize -> 12, 
       PrivateFontOptions -> {"OperatorSubstitution" -> False}, FontColor -> 
       GrayLevel[0.15]], 
      Cell[
       StyleData["IconizedFrame"], 
       TemplateBoxOptions -> {
        DisplayFunction -> (
          FrameBox[#, BaselinePosition -> Baseline, 
           FrameMargins -> {{0, 0}, {1, 1}}, FrameStyle -> GrayLevel[0.65], 
           Background -> GrayLevel[0.96], RoundingRadius -> 4, 
           DefaultBaseStyle -> {
            "DialogStyle", FontFamily -> "Roboto", FontSize -> 11}]& ), 
         Tooltip -> None}], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Message"], Editable -> False, 
          CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, 
          CellGroupingRules -> "OutputGrouping", TextClipboardType -> 
          "PlainText", StripStyleOnPaste -> True, PageBreakWithin -> False, 
          GroupPageBreakWithin -> False, GeneratedCell -> True, 
          CellAutoOverwrite -> True, ShowCellLabel -> False, 
          DefaultFormatType -> DefaultOutputFormatType, ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Output"], 
          ShowAutoStyles -> False, ShowSyntaxStyles -> False, 
          AutoStyleOptions -> {
           "StringStyle" -> None, "SyntaxErrorStyle" -> None}, 
          HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
           AutoItalicWords -> {}, AutoQuoteCharacters -> {}, 
          PasteAutoQuoteCharacters -> {}, LanguageCategory -> None, 
          FormatType -> InputForm, ShowStringCharacters -> False, 
          CounterIncrements -> "Message", MenuSortingValue -> 1600, 
          StyleMenuListing -> None, FontFamily :> 
          CurrentValue["PanelFontFamily"], FontSize -> 11, FontColor -> 
          RGBColor[0.5072, 0.16933, 0.15221]], 
         Cell[
          StyleData["Message", "Printout"], 
          CellMargins -> {{100, Inherited}, {Inherited, Inherited}}, 
          CellFrameLabels -> {{None, None}, {None, None}}, FontColor -> 
          GrayLevel[0]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExerciseInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{106, 10}, {4, 7}}, 
          GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, 
          ShowCellLabel -> False, SpanMaxSize -> 1, FontSize -> 14], 
         Cell[
          StyleData["ExerciseInput", "Printout"], 
          CellMargins -> {{106, 10}, {4, 7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ExerciseOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{106, 10}, {10, 4}}, ShowCellLabel -> False, 
          FontSize -> 14], 
         Cell[
          StyleData["ExerciseOutput", "Printout"], 
          CellMargins -> {{106, 10}, {10, 4}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Picture"], CellMargins -> {{66, 10}, {10, 10}}, 
          CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
         
         Cell[
          StyleData["Picture", "Printout"], 
          CellMargins -> {{66, 10}, {8, 8}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Comment"], FontFamily -> "Verdana", FontSize -> 13, 
          FontColor -> RGBColor[0.3, 0.3, 0.2], Background -> 
          RGBColor[1, 0.9, 0.8]], 
         Cell[
          StyleData["Comment", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Suggestion"], 
          CellFrameLabels -> {{Inherited, Inherited}, {Inherited, 
             Cell[
              BoxData[
               TagBox[
                GridBox[{{
                   ButtonBox[
                   "\"  Insert  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`ReplaceWithSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    ContentPadding -> False, Appearance -> Automatic, Method -> 
                    "Queued"], 
                   ButtonBox[
                   "\"  Stet  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; DocuTools`StetSuggestion[]), 
                    Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "    ", 
                   ButtonBox[
                   "\"  Next  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindNextSuggestion[]), Evaluator -> Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], 
                   ButtonBox[
                   "\"  Previous  \"", 
                    ButtonFunction :> (Needs["DocuTools`"]; 
                    DocuTools`DocuToolsLoader[]; 
                    DocuTools`FindPreviousSuggestion[]), Evaluator -> 
                    Automatic, 
                    BaseStyle -> {FontSize -> 10, FontFamily -> "Verdana"}, 
                    Appearance -> Automatic, Method -> "Queued"], "\"\""}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                "Grid"]], ShowStringCharacters -> False, Background -> 
              None]}}, Background -> RGBColor[1, 0.8, 0.8]], 
         Cell[
          StyleData["Suggestion", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Tentative"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[
          0.30000000000000016`, 0.6000000000000003, 0.7000000000000003], 
         "Thickness" -> 5}, Evaluatable -> False, CellFrameMargins -> 4, 
       StyleMenuListing -> None, Background -> 
       RGBColor[0.8500000000000003, 0.9500000000000003, 1]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PrintOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.89, 0.867, 0.99], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.89, 0.867, 0.99]], 
         Cell[
          StyleData["PrintOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01], 
         Cell[
          StyleData["Tentative", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["WebOnly"], 
          CellBracketOptions -> {
           "Color" -> RGBColor[0.91, 0.92, 0.9], "Thickness" -> 5}, 
          CellFrameMargins -> 4, StyleMenuListing -> None, Background -> 
          RGBColor[0.91, 0.92, 0.86]], 
         Cell[
          StyleData["WebOnly", "Printout"], 
          CellElementSpacings -> {"CellMinHeight" -> 0.1}, CellOpen -> False, 
          CellFrameMargins -> 0, FontSize -> 0.1, Magnification -> 0.01]}, 
        Open]], 
      Cell[
       StyleData["Lockdown"], 
       CellBracketOptions -> {
        "Color" -> RGBColor[0.8, 0.5, 0.4], "Thickness" -> 3}, Evaluatable -> 
       False, StyleMenuListing -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["IndexField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["IndexField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ExplanationField"], CellFrame -> True, CellFrameColor -> 
          GrayLevel[0.7], FontFamily -> "Verdana", FontSize -> 12], 
         Cell[
          StyleData["ExplanationField", "Invisibles"], CellFrame -> False, 
          ShowCellBracket -> False, CellOpen -> False, FontSize -> 1]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EnglishHighlight"], FontFamily -> "WolframCodeSans"], 
         Cell[
          StyleData["EnglishHighlight", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExample"], CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 25}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExample", FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExample", "Printout"], 
          CellMargins -> {{66, 0}, {0, 16}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleNote", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleNote", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, TextAlignment -> 
          Left, LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 
          14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["SolvedExampleDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -46}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "SolvedExampleDisplayFormulaNumbered", 
          FontSize -> 14, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleInput", StyleDefinitions -> StyleData["Input"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          GeneratedCellStyles -> {
           "Message" -> "SolvedExampleMessage", "Output" -> 
            "SolvedExampleOutput"}, 
          CellFrameMargins -> {{32, Inherited}, {3, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleInput", "Printout"], 
          CellMargins -> {{66, 0}, {0, -7}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "SolvedExampleOutput", StyleDefinitions -> StyleData["Output"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {14, 7}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleOutput", "Printout"], 
          CellMargins -> {{66, 0}, {6, -6}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["SolvedExampleMessage"], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontColor -> 
          RGBColor[
           0.050002574846150734`, 0.050002574846150734`, 
            0.050002574846150734`], Background -> Hue[0.085, 0.07, 0.95]], 
         Cell[
          StyleData["SolvedExampleMessage", "Printout"], 
          CellMargins -> {{66, 0}, {0, -6}}]}, Closed]], 
      Cell[
       StyleData["SolvedExampleEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, 
       LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 2, 
       FontColor -> 
       RGBColor[
        0.050002574846150734`, 0.050002574846150734`, 0.050002574846150734`], 
       Background -> Hue[0.085, 0.07, 0.95]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Theorem"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 16}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 25}}, 
          CellChangeTimes -> {3.968922600990673*^9}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "Subsection", FontFamily -> "Source Sans Pro", 
          FontSize -> 16.5, FontWeight -> "SemiBold", FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Theorem", "Printout"], CellMargins -> {{66, 0}, {0, 16}},
           CellChangeTimes -> {{3.965900023638689*^9, 
           3.965900023829352*^9}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "TheoremStatement", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["TheoremStatement", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormula", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, Inherited}, {12, 8}}, 
          CellFrameLabelMargins -> {{Inherited, -26}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormula", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ProofTheoremDisplayFormulaNumbered", StyleDefinitions -> 
           StyleData["DisplayFormula"]], CellMargins -> {{66, 40}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{32, 46}, {12, 8}}, 
          CellFrameLabels -> {{None, 
             Cell[
              TextData[{"(", 
                CounterBox["ProofTheoremDisplayFormulaNumbered"], ")"}], 
              "DisplayFormulaEquationNumber", CellSize -> {36, Automatic}]}, {
            None, None}}, 
          CellFrameLabelMargins -> {{Inherited, -46}, {Inherited, Inherited}},
           TextAlignment -> Left, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, 
          CounterIncrements -> "ProofTheoremDisplayFormulaNumbered", 
          MenuSortingValue -> 1710, FontFamily -> "Baskerville", FontSize -> 
          14, FontWeight -> "Regular", FontSlant -> "Plain", 
          PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofTheoremDisplayFormulaNumbered", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Proof"], Editable -> False, 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {0, 20}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontFamily -> 
          "Source Sans Pro", FontSize -> 16.5, FontWeight -> "SemiBold", 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996], 
          GridBoxOptions -> {
           GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {
             "Columns" -> {{Automatic}}, "RowsIndexed" -> {2 -> 0}}}, 
          GraphicsBoxOptions -> {
           ImagePadding -> None, ImageSize -> {900, 1}, PlotRangePadding -> 
            0}], 
         Cell[
          StyleData["Proof", "Printout"], CellMargins -> {{66, 0}, {0, 0}}]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["ProofContent", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{66, 30}, {0, 0}}, 
          CellBracketOptions -> {"OverlapContent" -> True}, 
          CellFrameMargins -> {{25, 13}, {10, 10}}, 
          LightDarkAutoColorRules -> <|"AllColors" -> True|>, FontSize -> 17, 
          FontColor -> 
          RGBColor[
           0.00010000076130382223`, 0.007800042619928998, 
            0.13000297516585294`], Background -> Hue[0.57, 0.098, 0.996]], 
         Cell[
          StyleData["ProofContent", "Printout"], 
          CellMargins -> {{66, 0}, {0, 0}}]}, Closed]], 
      Cell[
       StyleData["ProofTheoremEndCap"], CellMargins -> {{66, 30}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellElementSpacings -> {"CellMinHeight" -> 20}, 
       CellFrameMargins -> {{10, 13}, {0, 0}}, FontSize -> 2, FontColor -> 
       RGBColor[
        0.00010000076130382223`, 0.007800042619928998, 0.13000297516585294`], 
       Background -> Hue[0.57, 0.098, 0.996]], 
      Cell[
       StyleData["Banner", StyleDefinitions -> StyleData["Text"]], Editable -> 
       False, WindowToolbars -> {}, PageWidth :> WindowWidth, 
       Alignment -> {{Left, Right}, {Center, Center}}, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellBracketOptions -> {"OverlapContent" -> True}, 
       CellGroupingRules -> {"SectionGrouping", 0}, CellContext -> CellGroup, 
       CellFrameMargins -> {{0, 20}, {5, 0}}, CellFrameColor -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 20, FontWeight -> "SemiBold", FontColor -> GrayLevel[1], 
       Background -> 
       RGBColor[
        0.00009999889888604668, 0.1607913972623736, 0.4000129703059972]], 
      Cell[
       StyleData[
       "BannerCitationOpenerLabel", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, 0}}, 
       CellGroupingRules -> {"SectionGrouping", 70}, CellContext -> CellGroup,
        CellFrameMargins -> {{28, 0}, {4, 5}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData["BannerCitation", StyleDefinitions -> StyleData["Text"]], 
       WindowToolbars -> {}, Selectable -> True, PageWidth :> WindowWidth, 
       CellFrame -> {{0, 1}, {0, 0}}, ShowCellBracket -> False, 
       CellMargins -> {{0, 0}, {0, -1}}, 
       CellElementSpacings -> {"CellMinHeight" -> 2, "ClosedCellHeight" -> 1},
        Copyable -> True, CellContext -> CellGroup, 
       CellFrameMargins -> {{28, 0}, {8, 0}}, CellFrameColor -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761], 
       ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", 
       FontSize -> 11, FontWeight -> "Bold", FontColor -> 
       RGBColor[
        0.27843797333540327`, 0.40392625458540327`, 0.5137851263583065], 
       Background -> 
       RGBColor[0.8627719122171761, 0.9333285528421761, 0.9999789434671761]], 
      
      Cell[
       StyleData[
       "BannerPreReleaseLabel", StyleDefinitions -> 
        StyleData["BannerCitationOpenerLabel"]], 
       CellFrameMargins -> {{0, 30}, {2, 0}}, 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["BannerHeading"], MenuSortingValue -> None, FontFamily -> 
       "Source Sans Pro", FontSize -> 11, FontWeight -> "Regular", FontColor -> 
       RGBColor[
        0.9999903558940054, 0.5650486394018294, 0.14501301402226988`]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell[
      "Inline and special formatting", "Section", 
       CellChangeTimes -> {{3.646681732592888*^9, 3.646681749414035*^9}}], 
      Cell[
       StyleData["DateObject"], ContextMenu -> 
       FEPrivate`FrontEndResource["ContextMenus", "DateObject"], 
       TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
           
           StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontSize -> 
            13, FontWeight -> "Plain", FontColor -> 
            RGBColor[
             0.12941176470588237`, 0.34509803921568627`, 
              0.43529411764705883`], ShowStringCharacters -> False], 
           Background -> Hue[0.11, 0, 0.97], FrameMargins -> {{5, 5}, {2, 2}},
            FrameStyle -> GrayLevel[0.65], RoundingRadius -> 2, 
           BaselinePosition -> Baseline, 
           BaseStyle -> {FontFamily -> "Courier"}]& ), 
         InterpretationFunction -> (#2& )}], 
      Cell[
       StyleData["DateObjectLabel"], FontWeight -> "Plain", FontColor -> 
       GrayLevel[0.2]], 
      Cell[
       StyleData["SummaryItemAnnotation"], FontColor -> GrayLevel[0.3]], 
      Cell[
       StyleData["Caption"], FontFamily :> CurrentValue["PanelFontFamily"], 
       FontSize :> 0.8 Inherited, FontWeight -> "Plain", FontSlant -> "Plain",
        FontColor :> CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["GraphicsEmbeddedCaption"], LineIndent -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 14], 
      Cell[
       StyleData["SummaryPanel"], FontFamily :> 
       CurrentValue["PanelFontFamily"], FontSize :> 0.8 Inherited, FontWeight -> 
       "Plain", FontSlant -> "Plain", FontColor :> 
       CurrentValue[{"SystemColors", "DialogText"}], 
       TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
           
           FrameBox[#, FrameStyle -> GrayLevel[0.5], Background -> 
            GrayLevel[0.969], FrameMargins -> 7, RoundingRadius -> 3, 
            BaselinePosition -> Baseline], Active -> False, Alignment -> Left,
            Appearance -> None, BaseStyle -> {Deployed -> False}, 
           DefaultBaseStyle -> {"Pane", Background -> None}, BaselinePosition -> 
           Baseline]& ), Tooltip -> None}, 
       GraphicsBoxOptions -> {
        Axes -> False, 
         DefaultBaseStyle -> {
          "GraphicsNoFontsOrMenu", CacheGraphics -> False}, ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}, 
       Graphics3DBoxOptions -> {
        Axes -> False, DefaultBaseStyle -> {"Graphics3DNoFontsOrMenu"}, 
         ImageSize -> 
         Dynamic[{
           Automatic, 
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification])}]}], 
      Cell[
       StyleData["Graphics"], MenuSortingValue -> None], 
      Cell[
       StyleData["Graphics3D"], MenuSortingValue -> None], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["StandardForm"], LineSpacing -> {1.25, 0, 2}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["StandardForm", "Printout"], LineSpacing -> {1.25, 0, 2}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["OutputForm"], LineSpacing -> {0.6, 1}, FontFamily -> 
          "Source Sans Code"], 
         Cell[
          StyleData["OutputForm", "Printout"], LineSpacing -> {0.6, 1}, 
          FontFamily -> "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["InputForm"], FontFamily -> "Source Sans Code"], 
         Cell[
          StyleData["InputForm", "Printout"], FontFamily -> 
          "Source Sans Code"]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FormattedFunction"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]]], 
         Cell[
          StyleData["FormattedFunction", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Link"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}], 
         Cell[
          StyleData["Link", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {#}]]& ), ButtonNote -> 
            ButtonData, Evaluator -> None, ImageSize -> Full, Method -> 
            "Preemptive"}]}, Open]], 
      Cell[
       StyleData[
       "CaptionFunctionLink", StyleDefinitions -> StyleData["Link"]], 
       FontFamily -> "Source Sans Pro", FontSize -> 14, FontColor -> 
       GrayLevel[0]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["DetailsLink"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {
           ButtonFunction :> (
             Function[$CellContext`t, 
              NotebookFind[$CellContext`t, "Notes", All, CellStyle]; 
              NotebookFind[$CellContext`t, "NotesSection", All, CellStyle, 
                AutoScroll -> Top]][
              Documentation`HelpLookup["ref/" <> #]]& ), ButtonSource -> 
            ButtonContents, Evaluator -> Automatic}], 
         Cell[
          StyleData["DetailsLink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["LinkAlt"], FontFamily -> "Source Sans Pro", FontSize :> 
          If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["LinkAlt", "Printout"], FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Hyperlink"], MenuSortingValue -> None, FontColor -> 
          RGBColor[0.3, 0.35, 0.5]], 
         Cell[
          StyleData["Hyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["FunctionLink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["FunctionLink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "FunctionHyperlink", StyleDefinitions -> StyleData["Link"]], 
          FontColor -> GrayLevel[0], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["FunctionHyperlink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "ResourceFunctionlink", StyleDefinitions -> StyleData["Hyperlink"]],
           MenuSortingValue -> None, FontFamily -> "Source Sans Pro", 
          FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.9]], FontColor -> GrayLevel[0]], 
         Cell[
          StyleData["ResourceFunctionlink", "Printout"], FontFamily -> 
          "Source Sans Pro", FontSize :> If[CurrentValue[
              EvaluationCell[], "FontFamily"] === "Source Sans Pro", 
            Inherited, 
            If[CurrentValue[
               EvaluationCell[], "FontFamily"] === "WolframCodeSans", 
             Inherited, Inherited 0.88]], FontColor -> GrayLevel[0]]}, 
        Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Crosslink"], 
          ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
               
               NotebookLocate[#2, "OpenInNewWindow" -> 
                CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None,
             Method -> "Queued"}], 
         Cell[
          StyleData["Crosslink", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeLink"], 
          ButtonBoxOptions -> {
           Active -> True, Appearance -> {Automatic, None}, 
            ButtonFunction :> (FEPrivate`FrontEndExecute[
              FrontEndToken["OpenHelpLink", {
                Part[#, 1]}]]& ), ButtonNote -> ButtonData, Evaluator -> None,
             ImageSize -> Full, Method -> "Preemptive"}], 
         Cell[
          StyleData["CodeLink", "Printout"]]}, Open]], 
      Cell[
       StyleData["VocabularyLink"], FontColor -> GrayLevel[0], 
       ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
            
            NotebookLocate[#2, "OpenInNewWindow" -> 
             CurrentValue["HyperlinkModifierKey"]]}]& ), Evaluator -> None, 
         Method -> "Queued"}], 
      Cell[
       StyleData["InlineMath"], SpanMaxSize -> 0, CellID -> 644119144], 
      Cell[
       StyleData["InlineCode"], AutoSpacing -> True, SpanMaxSize -> 0, 
       FontColor -> GrayLevel[0]], 
      Cell[
       StyleData["InlineCodeText"], SpanMaxSize -> 0, FontFamily -> 
       "Source Sans Pro", FontSize -> 0.94 Inherited], 
      Cell[
       StyleData["InlineFormula"]], 
      Cell[
       StyleData["NoLabel"], 
       GeneratedCellStyles -> {"Output" -> "ExerciseOutput"}, ShowCellLabel -> 
       False], 
      Cell[
       StyleData["MenuName"], FontFamily -> "Verdana", FontWeight -> "Bold", 
       FontColor -> GrayLevel[0.286275]], 
      Cell[
       StyleData["DialogElementName"], 
       CellChangeTimes -> {3.642251807158844*^9, 3.8358753610849867`*^9, 
        3.835875471581566*^9}, FontFamily -> "Source Sans Pro SemiBold", 
       FontSize -> 0.95 Inherited, FontWeight -> "Regular"], 
      Cell[
       StyleData["KeyEvent"], CellFrame -> {{0.5, 0.5}, {0.5, 0.5}}, 
       CellFrameMargins -> {{2, 2}, {2, 2}}, CellFrameColor -> GrayLevel[0.7],
        FontFamily -> "Verdana", FontColor -> GrayLevel[0.4]], 
      Cell[
       StyleData["KeyEventDelimiter"], FontColor -> GrayLevel[0.5]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariable"], FontFamily -> "Times", FontSize -> 
          1.05 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariable", "Printout"]]}, Closed]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["CodeVariableLrg"], FontFamily -> "Times", FontSize -> 
          1.1 Inherited, FontWeight -> "Plain", FontSlant -> "Italic"], 
         Cell[
          StyleData["CodeVariableLrg", "Printout"]]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Key Styles", "Subsubsection"], 
         Cell[
          StyleData["Key0"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {"Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key1"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {2 -> GrayLevel[0.8352941176470589]}, 
                  "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key2"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}], 
         Cell[
          StyleData["Key3"], 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              TagBox[
               GridBox[{{
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #2, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #3, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> 
                   GrayLevel[0.9333333333333333], StripOnInput -> False], 
                  ItemBox[
                   
                   TemplateBox[{"\[ThickSpace]", #4, "\[ThickSpace]"}, 
                    "RowDefault"], Background -> GrayLevel[1], StripOnInput -> 
                   False]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "ColumnsIndexed" -> {
                   2 -> GrayLevel[0.8352941176470589], 3 -> 
                    GrayLevel[0.8352941176470589], 4 -> 
                    GrayLevel[0.8352941176470589]}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{1.45}}},
                 GridBoxSpacings -> {"Columns" -> {{0}}}, 
                BaselinePosition -> {{1, 1}, Baseline}], "Grid"], 
              RoundingRadius -> 4, Background -> 
              GrayLevel[0.9333333333333333], 
              FrameMargins -> {{0, 0}, {-1, -1}}, FrameStyle -> {
                GrayLevel[0.8352941176470589], 
                AbsoluteThickness[1]}, BaselinePosition -> Baseline, 
              StripOnInput -> False]& )}]}, Open]], 
      Cell[
       CellGroupData[{
         Cell["Entity styles", "Subsubsection"], 
         Cell[
          StyleData["Entity"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontSize -> 0.85 Inherited, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    PaneBox[
                    StyleBox[#4, "EntityTypeLabel"], BaselinePosition -> 
                    Baseline, ContentPadding -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 1}], False -> 
                 PaneBox[#, 
                   BaseStyle -> {
                    FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                   BaselinePosition -> Baseline]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               Directive[
                 RGBColor[1., 0.504768, 0.], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontFamily -> "Source Sans Pro", 
                    FontWeight -> "Plain", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 1}], False -> 
                PaneBox[#, 
                  BaseStyle -> {
                   FontColor -> RGBColor[0.395437, 0.20595, 0.061158]}, 
                  BaselinePosition -> Baseline]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {
                 FontWeight -> "Plain", "OperatorSubstitution" -> False}}]& ),
             Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityFramelessHot"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 1}], False -> 
               PaneBox[#, BaseStyle -> {FontColor -> GrayLevel[0]}, 
                 BaselinePosition -> Baseline]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                   GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                   GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}},
                    BaselinePosition -> {1, 2}]}, 
                Dynamic[
                 CurrentValue[Evaluatable]], ImageSize -> Automatic, 
                BaselinePosition -> Baseline, 
                BaseStyle -> {FontFamily -> "Helvetica"}], FrameStyle -> 
               RGBColor[1., 0.504768, 0.], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFrameless"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              PaneSelectorBox[{True -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]], 
                    StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0.65], 
                    Selectable -> False]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}], False -> GridBox[{{
                    PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                    
                    StyleBox[#, FontColor -> 
                    RGBColor[0.395437, 0.20595, 0.061158]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                  BaselinePosition -> {1, 2}]}, 
               Dynamic[
                CurrentValue[Evaluatable]], ImageSize -> Automatic, 
               BaselinePosition -> Baseline, 
               BaseStyle -> {FontFamily -> "Helvetica"}], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityClassFramelessHot"], ShowStringCharacters -> False,
           TemplateBoxOptions -> {
           DisplayFunction -> (PaneSelectorBox[{True -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   
                   StyleBox[#, FontWeight -> "Bold", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0]], 
                   StyleBox[
                    RowBox[{"(", #4, ")"}], FontWeight -> "Plain", FontFamily -> 
                    "Source Sans Pro", FontColor -> GrayLevel[0], Selectable -> 
                    False]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], False -> GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], 
                   StyleBox[#, FontColor -> GrayLevel[0]]}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}]}, 
              Dynamic[
               CurrentValue[Evaluatable]], ImageSize -> Automatic, 
              BaselinePosition -> Baseline, 
              BaseStyle -> {
               FontWeight -> "Plain", FontFamily -> "Helvetica", 
                ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityProperty"], ContextMenu -> 
          FEPrivate`FrontEndResource["ContextMenus", "Entity"], 
          AutoStyleOptions -> {"HighlightSyntaxErrors" -> False}, 
          ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               
               PaneBox[#, 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Helvetica", FontSize -> 0.85 Inherited, FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> Directive[
                 RGBColor[0.94227, 0.703639, 0.033387], 
                 AbsoluteThickness[1]], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4, 
               BaseStyle -> {FontFamily -> "Courier"}], #3, 
              BaseStyle -> {
               ShowStringCharacters -> False, LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}, 
              TooltipDelay -> 0.4]& ), Editable -> False, 
            InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityPropertyClass"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[
              FrameBox[
               PaneBox[
                GridBox[{{
                   PaneBox[
                    DynamicBox[
                    FEPrivate`ImportImage[
                    
                    FrontEnd`ToFileName[{"Typeset", "Entity"}, 
                    "EntityClass.png"]], ImageSizeCache -> {8., {2., 6.}}], 
                    BaselinePosition -> Bottom], #}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0}}}, 
                 BaselinePosition -> {1, 2}], 
                BaseStyle -> {
                 FontSlant -> Italic, FontWeight -> Plain, FontFamily -> 
                  "Source Sans Pro", FontColor -> 
                  RGBColor[0.395437, 0.20595, 0.061158]}, BaselinePosition -> 
                Baseline], FrameStyle -> 
               RGBColor[0.94227, 0.703639, 0.033387], Background -> 
               RGBColor[1., 0.980392, 0.921569], 
               FrameMargins -> {{5, 5}, {1.5, 1.5}}, 
               ImageMargins -> {{2, 2}, {2, 2}}, BaselinePosition -> Baseline,
                RoundingRadius -> 4], #3, 
              BaseStyle -> {
               FontWeight -> "Plain", ShowStringCharacters -> False, 
                LineIndent -> 0, 
                PrivateFontOptions -> {"OperatorSubstitution" -> False}}]& ), 
            Editable -> False, InterpretationFunction -> (#2& )}], 
         Cell[
          StyleData["EntityValue"], ShowStringCharacters -> False, 
          TemplateBoxOptions -> {DisplayFunction -> (FrameBox[
              
              GridBox[{{#, #2}}, GridBoxAlignment -> {"Rows" -> {{Baseline}}},
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
               GridBoxSpacings -> {"Columns" -> {{0}}}, 
               BaselinePosition -> {1, 1}], Background -> 
              RGBColor[{0.9921568627450981, 0.9529411764705882, 
                0.8509803921568627}], BaselinePosition -> Baseline, 
              FrameMargins -> {{1, 1}, {1, 1}}, ImageMargins -> 2, FrameStyle -> 
              RGBColor[{0.9333333333333333, 0.8470588235294118, 
                0.5529411764705883}], RoundingRadius -> 5]& )}]}, Open]]}, 
     Open]], 
   Cell[
    CellGroupData[{
      Cell["Template Boxes", "Section"], 
      Cell[
       StyleData["BannerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              Slot["label"], 
              Slot["previous"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["next"], 
              TemplateBox[{10}, "Spacer1"], 
              Slot["menu"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}], 
      Cell[
       StyleData["BannerHeadingTitleTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (PanelBox[
           TagBox[
            GridBox[{{
               StyleBox[
                Slot["heading"], "BannerHeading", StripOnInput -> False]}, {
               Slot["title"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
             DefaultBaseStyle -> "Column", 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{0.2}}}], "Column"], 
           Appearance -> None, ContentPadding -> False, BaseStyle -> "Banner",
            FrameMargins -> {{18, 20}, {6, 6}}, 
           ImageSize -> {Full, Automatic}]& )}], 
      Cell[
       StyleData["BannerButtonTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           
           PanelBox[#, ContentPadding -> False, 
            FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {
               Background -> 
                RGBColor[
                 0.08808648687787803, 0.3397116701677621, 
                  0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
           ButtonFunction -> #2, Appearance -> None, 
           FrameMargins -> {{0, 0}, {-1, -1}}, Enabled -> True, Evaluator -> 
           Automatic, Method -> "Preemptive"]& )}], 
      Cell[
       StyleData["BannerLeftArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{25, 180}, {-25, 0}, {25, -180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["BannerRightArrowTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
            CapForm["Round"], 
            JoinForm["Round"], 
            Thickness[0.1], 
            GrayLevel[1], 
            LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
           Method -> {"ShrinkWrap" -> True}, ImageSize -> 12, 
            PlotRange -> {{-75, 100}, {-275, 400}}, AspectRatio -> 1}]& )}], 
      Cell[
       StyleData["PrettyTooltipTemplate"], 
       TemplateBoxOptions -> {DisplayFunction -> (TooltipBox[#, 
           FrameBox[
            
            StyleBox[#2, FontFamily -> "Source Sans Pro", FontColor -> 
             RGBColor[0.53725, 0.53725, 0.53725], FontSize -> 12, FontWeight -> 
             "Plain", FontTracking -> "Plain", StripOnInput -> False], 
            Background -> RGBColor[0.96078, 0.96078, 0.96078], FrameStyle -> 
            RGBColor[0.89804, 0.89804, 0.89804], FrameMargins -> 8, 
            StripOnInput -> False], TooltipDelay -> 0.1, 
           TooltipStyle -> {Background -> None, CellFrame -> 0}]& )}], 
      Cell[
       StyleData["BannerMenuTemplate"], 
       LightDarkAutoColorRules -> <|"MarkedColors" -> True|>, 
       TemplateBoxOptions -> {DisplayFunction :> (ActionMenuBox[
           TagBox[
            PanelBox[
             GraphicsBox[{
               CapForm["Round"], 
               GrayLevel[1], 
               AbsoluteThickness[3.2], 
               LineBox[{{0, 0}, {2, 0}}], 
               LineBox[{{0, 1}, {2, 1}}], 
               LineBox[{{0, 2}, {2, 2}}]}, ImageSize -> {27, Automatic}, 
              AspectRatio -> 0.62], ContentPadding -> False, 
             FrameMargins -> {{10, 10}, {7, 7}}, Appearance -> None, 
             BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {
                Background -> 
                 RGBColor[
                  0.08808648687787803, 0.3397116701677621, 
                   0.5610151372105242]}, "Banner"], Evaluator -> "System"]], 
            MouseAppearanceTag["LinkHand"]], #, Appearance -> None]& )}], 
      Cell[
       StyleData["BannerCitationOpenerTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (ButtonBox[
           TagBox[
            GridBox[{{
               Slot["label"], 
               PaneSelectorBox[{True -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-180, 25}, {0, -25}, {180, 25}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 11, 
                    PlotRange -> {{-275, 400}, {-75, 100}}, AspectRatio -> 
                    1}], False -> GraphicsBox[{
                    CapForm["Round"], 
                    JoinForm["Round"], 
                    Thickness[0.18], 
                    GrayLevel[0.7], 
                    LineBox[{{-25, -180}, {25, 0}, {-25, 180}}]}, {
                   Method -> {"ShrinkWrap" -> True}, ImageSize -> 8, 
                    PlotRange -> {{-75, 100}, {-475, 200}}, AspectRatio -> 
                    1}]}, 
                Dynamic[
                 CurrentValue[
                  EvaluationNotebook[], {
                  TaggingRules, "eTextbook", "CitationOpener"}]]]}}, 
             GridBoxAlignment -> {"Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           ButtonFunction :> (CurrentValue[
              EvaluationNotebook[], {
              TaggingRules, "eTextbook", "CitationOpener"}] = Not[
              TrueQ[
               CurrentValue[
                EvaluationNotebook[], {
                TaggingRules, "eTextbook", "CitationOpener"}]]]), Appearance -> 
           None, Evaluator -> Automatic, Method -> "Preemptive", BaseStyle -> 
           "BannerCitationOpenerLabel"]& )}], 
      Cell[
       StyleData["CitationClickToCopy2"], 
       TemplateBoxOptions -> {DisplayFunction -> (TagBox[
           DynamicModuleBox[{Typeset`boxobj$$, Typeset`cellobj$$}, 
            TagBox[
             TagBox[
              ButtonBox[
               
               TagBox[#, BoxForm`Undeploy, 
                DefaultBaseStyle -> {Deployed -> False}], ButtonFunction :> 
               FrontEndExecute[{
                  CopyToClipboard[
                   Cell[
                    TextData[#2], "Text", 
                    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, 
                    DefaultFormatType -> DefaultTextFormatType, 
                    TextClipboardType -> "PlainText", StripStyleOnPaste -> 
                    True, PageBreakWithin -> False, GroupPageBreakWithin -> 
                    False, LanguageCategory -> None, 
                    HyphenationOptions -> {"HyphenationCharacter" -> ""}]], 
                  NotebookDelete[Typeset`cellobj$$], 
                  FrontEnd`AttachCell[Typeset`boxobj$$, 
                   Cell[
                    BoxData[
                    TemplateBox[{"Copied"}, "ClickToCopyTooltip"]]], {
                   1, {Center, Bottom}}, {Center, Top}, 
                   "ClosingActions" -> {"ParentChanged", "MouseExit"}]}], 
               Evaluator -> None, 
               Appearance -> {
                "Default" -> None, "Hover" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, "Hover.9.png"],
                  "Pressed" -> 
                 FrontEnd`FileName[{"Typeset", "ClickToCopy"}, 
                   "Pressed.9.png"]}, BaseStyle -> {}, DefaultBaseStyle -> {},
                BaselinePosition -> Baseline, FrameMargins -> 2, Method -> 
               "Preemptive"], 
              
              EventHandlerTag[{
               "MouseEntered" :> (Typeset`cellobj$$ = MathLink`CallFrontEnd[
                   FrontEnd`AttachCell[Typeset`boxobj$$, 
                    Cell[
                    BoxData[
                    TemplateBox[{"Copy"}, "ClickToCopyTooltip"]]], {
                    1, {Center, Bottom}}, {Center, Top}, 
                    "ClosingActions" -> {"ParentChanged"}]]), "MouseExited" :> 
                NotebookDelete[Typeset`cellobj$$], PassEventsDown -> True, 
                Method -> "Preemptive", PassEventsUp -> True}]], 
             MouseAppearanceTag["LinkHand"]], 
            Initialization :> (Typeset`boxobj$$ = EvaluationBox[]), 
            DynamicModuleValues :> {}, 
            UnsavedVariables :> {Typeset`boxobj$$, Typeset`cellobj$$}, 
            BaseStyle -> {Editable -> False}], Deploy, DefaultBaseStyle -> 
           "Deploy"]& ), 
         InterpretationFunction -> (RowBox[{"ClickToCopy", "[", 
            RowBox[{#, ",", #2}], "]"}]& ), Tooltip -> None}], 
      Cell[
       StyleData["BannerPreReleaseTemplate"], 
       TemplateBoxOptions -> {DisplayFunction :> (TagBox[
           GridBox[{{
              PanelBox[
               StyleBox[
                Slot["author"], FontWeight -> "SemiBold"], BaseStyle -> 
               "BannerPreReleaseLabel", Appearance -> None, ContentPadding -> 
               False, FrameMargins -> {{18, 20}, {6, 6}}, 
               ImageSize -> {Full, Automatic}], 
              TemplateBox[{"Provide Feedback \[RightGuillemet]", {
                 URL[
                  Slot["url"]], None}, 
                Slot["url"], "BannerPreReleaseLabel", {"HyperlinkActive"}, {
                Appearance -> None}}, "HyperlinkTemplate"]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left, Right}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxFrame -> {"Columns" -> None, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0}}}], 
           "Grid"]& )}]}, Open]]}, Visible -> False, FrontEndVersion -> 
  "14.3 for Mac OS X ARM (64-bit) (July 1, 2025)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ETextbookTools`CreateNotebookCollection`Private`FileChangeProtection -> None,
ExpressionUUID->"4812c205-82df-4e56-8d29-030fd47b52b8"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Close"->{
  Cell[26433, 551, 386, 8, 25, "Input",ExpressionUUID->"cf810ae7-22be-4297-9dd2-f8bd5491e491",
   CellTags->"Close",
   CellID->1310613674],
  Cell[26822, 561, 18684, 349, 200, "Output",ExpressionUUID->"65378612-22e8-4cdd-9831-6d81c60a1e06",
   CellTags->"Close",
   CellID->193744530]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Close", 237086, 5079}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[647, 23, 314, 9, 108, "Section",ExpressionUUID->"53e190f7-78a8-444f-838a-e564c0e6d74b",
 CounterAssignments->{{"Section", 7}},
 CellID->1337320108],
Cell[964, 34, 18635, 347, 200, "Output",ExpressionUUID->"4366af39-1ab8-4348-bbe1-0c2b9475bd24",
 CellID->334209093],
Cell[19602, 383, 339, 8, 36, "Text",ExpressionUUID->"0764f9ed-784a-4f89-972c-8c78778311c9",
 CellID->531015943],
Cell[19944, 393, 652, 13, 107, "Text",ExpressionUUID->"34f8bc56-8057-47d5-9afa-d1d99c23b830",
 CellID->1793865390],
Cell[20599, 408, 416, 8, 36, "Text",ExpressionUUID->"59237c14-b9a9-4238-afcc-cc05ba0bffb3",
 CellID->1902745531],
Cell[21018, 418, 561, 9, 60, "Text",ExpressionUUID->"f1ab7516-0590-4cbb-87a7-448d6f6e2fcb",
 CellID->1990400716],
Cell[21582, 429, 430, 9, 60, "Text",ExpressionUUID->"6c9b9133-bf21-4754-a03a-21f5d80e56e7",
 CellID->1312064493],
Cell[CellGroupData[{
Cell[22037, 442, 448, 6, 56, "Subsection",ExpressionUUID->"d04e9db9-57cc-45fc-b775-7efcd2644359",
 CellID->666589290],
Cell[22488, 450, 264, 5, 36, "Text",ExpressionUUID->"5c4f9fb6-7567-4032-838f-eff8f6a11954",
 CellID->2091494278],
Cell[22755, 457, 271, 6, 36, "Text",ExpressionUUID->"b1e371aa-278f-46bd-b300-3b8ad733420f",
 CellID->1731996250],
Cell[23029, 465, 360, 4, 36, "Text",ExpressionUUID->"c105eb62-6f2b-4bba-accf-a9b5b9f525fc",
 CellID->520138665],
Cell[CellGroupData[{
Cell[23414, 473, 256, 7, 30, "Item",ExpressionUUID->"0dfbb4a8-3c5b-4816-bfc5-34af1992dc54",
 CellID->1712099365],
Cell[23673, 482, 255, 7, 30, "Item",ExpressionUUID->"d9ea196e-2d17-4b6c-839d-d21cb6c20899",
 CellID->1120641402],
Cell[23931, 491, 232, 3, 30, "Item",ExpressionUUID->"8015d45f-c6a0-4239-971f-634d147505c6",
 CellID->1188459224],
Cell[24166, 496, 223, 3, 30, "Item",ExpressionUUID->"04eadce2-ebb6-4c5c-991b-ed15724a7a3e",
 CellID->688777021]
}, Open  ]],
Cell[24404, 502, 426, 9, 60, "Text",ExpressionUUID->"4fbdb166-4178-4296-9de2-10aaf3a3d6e1",
 CellID->505522827],
Cell[24833, 513, 227, 5, 36, "Text",ExpressionUUID->"9a912030-d1f4-4c9d-8f01-b7175a6c835b",
 CellID->105653557]
}, Open  ]],
Cell[CellGroupData[{
Cell[25097, 523, 431, 6, 56, "Subsection",ExpressionUUID->"053ad6b7-e08a-4eb0-8205-07941bd1b560",
 CellID->1175726681],
Cell[25531, 531, 318, 6, 36, "Text",ExpressionUUID->"4a947d91-7c69-4d19-b2ca-9299d0a058ec",
 CellID->1441291520],
Cell[25852, 539, 556, 8, 36, "Text",ExpressionUUID->"a3f9af57-7677-425c-83c3-43396d0fcf4d",
 CellID->171038480],
Cell[CellGroupData[{
Cell[26433, 551, 386, 8, 25, "Input",ExpressionUUID->"cf810ae7-22be-4297-9dd2-f8bd5491e491",
 CellTags->"Close",
 CellID->1310613674],
Cell[26822, 561, 18684, 349, 200, "Output",ExpressionUUID->"65378612-22e8-4cdd-9831-6d81c60a1e06",
 CellTags->"Close",
 CellID->193744530]
}, {2}]],
Cell[45518, 913, 387, 11, 36, "Text",ExpressionUUID->"cde0f8db-1618-4a7a-ae06-1eada1c9402c",
 CellID->1692536545],
Cell[45908, 926, 302, 7, 32, "DisplayFormula",ExpressionUUID->"72ee61d2-d624-49a4-afab-39ec24c5689a",
 CellID->1090677795],
Cell[46213, 935, 794, 19, 60, "Text",ExpressionUUID->"90ff61bd-d9e5-4384-ba83-6fb31319ed97",
 CellID->1032459794],
Cell[47010, 956, 1606, 45, 60, "Text",ExpressionUUID->"84e9df7f-0272-4d6c-bde7-dcb368bb10be",
 CellID->883889998],
Cell[48619, 1003, 804, 19, 36, "Text",ExpressionUUID->"385ca467-b1ef-4671-9c5a-5eda6711e1a2",
 CellID->1394810087]
}, Open  ]],
Cell[CellGroupData[{
Cell[49460, 1027, 674, 9, 56, "Subsection",ExpressionUUID->"05f86396-d450-4afb-a8b4-3915456a43d5",
 CellID->1554256912],
Cell[50137, 1038, 648, 12, 60, "Text",ExpressionUUID->"7e8977c7-68a6-4e5d-abe8-da590f78cd6b",
 CellID->404837876],
Cell[50788, 1052, 259, 4, 36, "Text",ExpressionUUID->"4d0968d5-8496-4857-a9f1-498df03c93e8",
 CellID->881988236],
Cell[51050, 1058, 252, 7, 32, "DisplayFormula",ExpressionUUID->"a4d3514e-b6c7-4284-85f2-c7e0cd06ae01",
 CellID->700163226],
Cell[51305, 1067, 252, 7, 32, "DisplayFormula",ExpressionUUID->"c99fa52e-8301-4be9-9dcb-b442a12939fc",
 CellID->187311740],
Cell[51560, 1076, 235, 3, 36, "Text",ExpressionUUID->"d39d1c4f-9fee-468f-baff-b0d2dfcefc30",
 CellID->504677993],
Cell[51798, 1081, 326, 9, 32, "DisplayFormula",ExpressionUUID->"2576326d-587e-4913-a1a0-4f24515e4722",
 CellID->386759258],
Cell[52127, 1092, 312, 4, 36, "Text",ExpressionUUID->"8d3dfc4b-7290-4110-bad0-dc3984e61fdd",
 CellID->1983743035],
Cell[52442, 1098, 320, 4, 36, "Text",ExpressionUUID->"9a649f66-b6ee-4652-9c3c-461749da1ccf",
 CellID->1085569570],
Cell[52765, 1104, 254, 7, 32, "DisplayFormula",ExpressionUUID->"cc9e024f-b1f3-46af-9b48-077b039e4bd5",
 CellID->1512505716],
Cell[53022, 1113, 253, 7, 32, "DisplayFormula",ExpressionUUID->"26205b0b-9226-4840-9577-728a2c9b0e73",
 CellID->919639273],
Cell[53278, 1122, 287, 4, 36, "Text",ExpressionUUID->"a8ba6198-6184-4248-b261-6c15df82f14e",
 CellID->1513919442],
Cell[53568, 1128, 307, 9, 32, "DisplayFormula",ExpressionUUID->"47b4deb0-4233-468b-ad6b-f72ccad5ccaa",
 CellID->1582188683],
Cell[53878, 1139, 255, 7, 32, "DisplayFormula",ExpressionUUID->"f916b50e-14af-41b1-9426-2dd7c9685b68",
 CellID->1702678027],
Cell[54136, 1148, 165, 2, 36, "Text",ExpressionUUID->"38d6f0cd-065f-4426-9458-47185ac77754",
 CellID->1610043477],
Cell[54304, 1152, 307, 9, 32, "DisplayFormula",ExpressionUUID->"baa6395c-6e3b-4a5b-a681-8331df4c615d",
 CellID->2023195850],
Cell[54614, 1163, 253, 7, 32, "DisplayFormula",ExpressionUUID->"b8eaf360-a61b-4450-8a58-e5b8b36b60b7",
 CellID->596584352]
}, Open  ]],
Cell[CellGroupData[{
Cell[54904, 1175, 575, 7, 56, "Subsection",ExpressionUUID->"e2aa970e-e9ec-4bb1-811c-14f6d5ae0213",
 CellID->276035375],
Cell[55482, 1184, 279, 3, 36, "Text",ExpressionUUID->"80d5819c-db01-4839-ace4-57af78307317",
 CellID->761870105],
Cell[55764, 1189, 212, 3, 36, "Text",ExpressionUUID->"cd93b255-5adf-4fe7-9a72-ce5c28b7337a",
 CellID->1453351321],
Cell[55979, 1194, 252, 7, 32, "DisplayFormula",ExpressionUUID->"20fdc07f-8d56-4153-b193-561f1c014505",
 CellID->335647324],
Cell[56234, 1203, 252, 7, 32, "DisplayFormula",ExpressionUUID->"87a62ef2-04bf-4f95-a5ed-adaa92a75401",
 CellID->848085764],
Cell[56489, 1212, 215, 3, 36, "Text",ExpressionUUID->"e016554b-d520-4762-8f25-318d0b0f0a54",
 CellID->358161962],
Cell[56707, 1217, 287, 8, 32, "DisplayFormula",ExpressionUUID->"18ec22ff-075f-43c4-b5f9-8e4c5c22bd90",
 CellID->1630690190],
Cell[56997, 1227, 427, 5, 36, "Text",ExpressionUUID->"31582909-388f-46bb-8961-846e4b522e7f",
 CellID->598067234],
Cell[57427, 1234, 253, 7, 32, "DisplayFormula",ExpressionUUID->"5bfc2e96-1815-4f67-945e-df8e032d3352",
 CellID->214796075],
Cell[57683, 1243, 253, 7, 32, "DisplayFormula",ExpressionUUID->"c3336cc4-924f-4112-a96b-4888c45c9f86",
 CellID->157621918],
Cell[57939, 1252, 280, 4, 36, "Text",ExpressionUUID->"1c56e1f7-15d3-46a9-93d1-0dc468f4b0ef",
 CellID->87751187],
Cell[58222, 1258, 288, 8, 32, "DisplayFormula",ExpressionUUID->"aa3a2b2f-bc43-4433-bccb-f697e5467b77",
 CellID->565227750],
Cell[58513, 1268, 255, 7, 32, "DisplayFormula",ExpressionUUID->"c85e6d66-0c37-4772-bdd5-2c3beca1d3b8",
 CellID->1462623569]
}, Open  ]],
Cell[CellGroupData[{
Cell[58805, 1280, 630, 8, 56, "Subsection",ExpressionUUID->"b8944763-0a5b-4dd2-98f2-3bcb6459ad20",
 CellID->1060833875],
Cell[59438, 1290, 193, 2, 36, "Text",ExpressionUUID->"5e3788d6-4e59-42a0-9a75-daf02ccbba88",
 CellID->1025699731],
Cell[59634, 1294, 214, 3, 36, "Text",ExpressionUUID->"5557d7a1-439f-429b-92c1-bf5564ae17a5",
 CellID->1084144448],
Cell[59851, 1299, 252, 7, 32, "DisplayFormula",ExpressionUUID->"fbe32276-45c4-4b1e-a5c3-7be0fb00d77f",
 CellID->605356374],
Cell[60106, 1308, 214, 3, 36, "Text",ExpressionUUID->"200261b2-afeb-4def-86c3-be4a7ac1bd70",
 CellID->1541064138],
Cell[60323, 1313, 304, 9, 32, "DisplayFormula",ExpressionUUID->"a45693e6-cbf9-4db1-869a-8a5f4322f3e8",
 CellID->1594541979],
Cell[60630, 1324, 447, 6, 36, "Text",ExpressionUUID->"327b1bd9-0789-4149-88ec-5a596d75c539",
 CellID->213191666],
Cell[61080, 1332, 252, 7, 32, "DisplayFormula",ExpressionUUID->"e9e650ab-33b8-4d97-86bc-fcbd5535b01c",
 CellID->232967579],
Cell[61335, 1341, 281, 4, 36, "Text",ExpressionUUID->"6b0e2085-be91-4ed3-9a32-4b68114e29aa",
 CellID->421329114],
Cell[61619, 1347, 304, 9, 32, "DisplayFormula",ExpressionUUID->"628439cc-d895-4087-beca-6bd00421c717",
 CellID->1489568957],
Cell[61926, 1358, 304, 9, 32, "DisplayFormula",ExpressionUUID->"82faff6b-59f1-4de6-8582-8e7fad107c63",
 CellID->1968587220],
Cell[62233, 1369, 304, 9, 32, "DisplayFormula",ExpressionUUID->"8e76dc92-fb25-40f4-a43f-44d2bace2049",
 CellID->1912340858],
Cell[62540, 1380, 170, 2, 36, "Text",ExpressionUUID->"0bb43d3c-e678-4fd9-be71-ddc7d7c02ec2",
 CellID->1544663521],
Cell[62713, 1384, 213, 2, 36, "Text",ExpressionUUID->"699b02c1-729a-4c7f-a72e-d959fab0b3a2",
 CellID->229988864]
}, Open  ]],
Cell[CellGroupData[{
Cell[62963, 1391, 764, 10, 56, "Subsection",ExpressionUUID->"be6f7a32-61bf-4ff6-9b47-936768f3688a",
 CellID->1005278914],
Cell[63730, 1403, 517, 9, 36, "Text",ExpressionUUID->"a8101340-e826-404f-8f00-f0b56e30373a",
 CellID->1468856649],
Cell[64250, 1414, 378, 10, 36, "Text",ExpressionUUID->"b2376ae5-a297-40ff-b13a-5a3abae57b20",
 CellID->1437395609],
Cell[64631, 1426, 752, 20, 36, "Text",ExpressionUUID->"449ab763-17bc-48d6-84c6-9cc52a9acd57",
 CellID->1438578300],
Cell[65386, 1448, 255, 7, 32, "DisplayFormula",ExpressionUUID->"de49ce52-94f9-45d3-9e60-615a3f4d341a",
 CellID->506229308],
Cell[65644, 1457, 673, 19, 36, "Text",ExpressionUUID->"256bd844-55af-4a33-a36d-a8fc75151137",
 CellID->1804929177],
Cell[CellGroupData[{
Cell[66342, 1480, 465, 11, 30, "Item",ExpressionUUID->"7b52fa3a-5160-4b95-a19c-8dbd2841427b",
 CellID->90680317],
Cell[66810, 1493, 527, 14, 30, "Item",ExpressionUUID->"6429d267-b556-4dbd-b8a7-7a1bebb55b0d",
 CellID->1498182096]
}, Open  ]],
Cell[67352, 1510, 554, 15, 36, "Text",ExpressionUUID->"1aedd3e2-b4ce-46c1-ae6e-c121f0eeed0d",
 CellID->928356629],
Cell[67909, 1527, 301, 7, 32, "DisplayFormula",ExpressionUUID->"d643068c-62e3-454a-ab40-891245d11649",
 CellID->1033782009],
Cell[68213, 1536, 547, 10, 83, "Text",ExpressionUUID->"9b496677-b095-4228-9b9b-0b7f1ad5b9c6",
 CellID->690371069],
Cell[68763, 1548, 252, 5, 32, "DisplayFormula",ExpressionUUID->"e83f0a88-9c48-4c9c-b35f-c1e0ae11bf81",
 CellID->1544980513],
Cell[69018, 1555, 419, 11, 36, "Text",ExpressionUUID->"75db033b-2202-4995-a3d2-4ef9d083919f",
 CellID->473339881],
Cell[69440, 1568, 301, 7, 32, "DisplayFormula",ExpressionUUID->"c27dd70c-5f3c-41ec-80cf-203a3a6838a4",
 CellID->522683621],
Cell[69744, 1577, 173, 2, 36, "Text",ExpressionUUID->"04b2bc25-37fe-44a0-aa9f-520525f356c7",
 CellID->1558502777],
Cell[CellGroupData[{
Cell[69942, 1583, 110, 1, 69, "TechNoteSection",ExpressionUUID->"870ddb18-cbc5-42d8-829f-4850158d3df0",
 CellID->1259673378],
Cell[70055, 1586, 318, 8, 29, "SummaryList",ExpressionUUID->"567ad53a-cd8b-4384-ad89-6bb044aed664",
 CellID->647278937],
Cell[70376, 1596, 447, 5, 29, "SummaryList",ExpressionUUID->"4d162a68-7ad2-4a2c-b5e0-efb2cbe99b9d",
 CellID->1812422104],
Cell[70826, 1603, 1510, 48, 29, "SummaryList",ExpressionUUID->"85863d82-866a-4aa6-8d91-918a1e400aad",
 CellID->1470252880],
Cell[72339, 1653, 476, 8, 29, "SummaryList",ExpressionUUID->"a97ef51f-1827-44db-aa80-a5d6cbcc645c",
 CellID->1593311778],
Cell[72818, 1663, 339, 10, 29, "SummaryList",ExpressionUUID->"63365dda-bf2a-47d6-a41e-2319cc511adc",
 CellID->1817458403]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[73196, 1678, 293, 6, 135, "SmallText",ExpressionUUID->"71fc6a3c-fa1c-44be-9ad8-b390ffad0d24",
 CellGroupingRules->"SectionGrouping"]
}
]
*)

(* NotebookSignature yTsdCwCuHjm0EkYB5Og949pb *)
