Electron_self_energy_2loops_reno_OVERLAPPEDDIAGRAM_REVISED.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    367856,      10614]
NotebookOptionsPosition[    345750,      10250]
NotebookOutlinePosition[    346113,      10266]
CellTagsIndexPosition[    346070,      10263]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["2-loop electron self-enegery with IREG", "Title",
 CellChangeTimes->{{3.8296427207099524`*^9, 3.8296427317905097`*^9}, {
  3.82964544446428*^9, 
  3.829645450835099*^9}},ExpressionUUID->"47096605-55bc-4fbc-8908-\
e512206016c0"],

Cell[CellGroupData[{

Cell["Overlapping Diagram", "Chapter",
 CellChangeTimes->{{3.83162906973405*^9, 3.8316290732405496`*^9}, {
  3.831633011811122*^9, 
  3.8316330131218214`*^9}},ExpressionUUID->"449b9db2-0735-4842-836b-\
ac05e14e6dea"],

Cell[CellGroupData[{

Cell["FeynCalc with FeynArts and TARCER", "Section",
 CellChangeTimes->{
  3.829645485737245*^9},ExpressionUUID->"4efc7c9f-0e54-41e8-870a-\
59e93b6e51e2"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Load", " ", "FeynCalc", " ", "with", " ", "FeynArts", " ", "and", " ", 
   "the", " ", "package", " ", "TARCER"}], "*)"}]], "Input",ExpressionUUID->\
"dada9494-4f41-43b0-93f0-04ffbbaccd85"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "description", "=", 
   "\"\<Electron self-energy at 2-loop with IREG-Overlapping Diagram\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"$FrontEnd", "===", "Null"}], ",", 
    RowBox[{
     RowBox[{"$FeynCalcStartupMessages", "=", "False"}], ";", 
     RowBox[{"Print", "[", "description", "]"}], ";"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"$Notebooks", "===", "False"}], ",", 
    RowBox[{"$FeynCalcStartupMessages", "=", "False"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$LoadAddOns", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<TARCER\>\"", ",", "\"\<FeynArts\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "\"\<FeynCalc`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$FAVerbose", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FCCheckVersion", "[", 
   RowBox[{"9", ",", "3", ",", "0"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$Comment", "=", "True"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8296462880150623`*^9, 3.8296463004706297`*^9}, {
  3.831629097510166*^9, 3.83162910064437*^9}, {3.8316330429446087`*^9, 
  3.8316330452569847`*^9}},ExpressionUUID->"0356312e-0902-4a62-8a43-\
380f38bfb66f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"FeynCalc \"\>", "Text",
    StripOnInput->False,
    FontWeight->Bold], "\[InvisibleSpace]", 
   StyleBox["\<\"9.3.1 (stable version). For help, use the \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox[
      RowBox[{"documentation", " ", "center"}],
      BaseStyle->"Link",
      ButtonData:>"paclet:FeynCalc/",
      ButtonNote->"paclet:FeynCalc/"],
     DisplayForm], "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox["\<\", check out the \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox["wiki",
      BaseStyle->"Hyperlink",
      ButtonData:>{
        URL["https://github.com/FeynCalc/feyncalc/wiki"], None},
      ButtonNote->"https://github.com/FeynCalc/feyncalc/wiki"],
     DisplayForm], "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox["\<\" or visit the \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox[
      RowBox[{"forum", "."}],
      BaseStyle->"Hyperlink",
      ButtonData:>{
        URL["https://github.com/FeynCalc/feyncalc/discussions"], None},
      ButtonNote->"http://www.feyncalc.org/forum/"],
     DisplayForm], "Text",
    StripOnInput->False]}],
  SequenceForm[
   Style["FeynCalc ", "Text", Bold], 
   Style["9.3.1 (stable version). For help, use the ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox[
     "documentation center", BaseStyle -> "Link", ButtonData :> 
      "paclet:FeynCalc/", ButtonNote -> "paclet:FeynCalc/"]], "Text"], 
   Style[", check out the ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox["wiki", ButtonData :> {
        URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, BaseStyle -> 
      "Hyperlink", ButtonNote -> 
      "https://github.com/FeynCalc/feyncalc/wiki"]], "Text"], 
   Style[" or visit the ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox["forum.", ButtonData :> {
        URL["https://github.com/FeynCalc/feyncalc/discussions"], None}, 
      BaseStyle -> "Hyperlink", ButtonNote -> 
      "http://www.feyncalc.org/forum/"]], "Text"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.842011952970787*^9},ExpressionUUID->"44258424-3dd6-417c-b7ea-\
5816daa3a7ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"To save your and our time, please check our \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox["FAQ",
      BaseStyle->"Hyperlink",
      ButtonData:>{
        URL["https://github.com/FeynCalc/feyncalc/wiki/FAQ"], None},
      ButtonNote->"https://github.com/FeynCalc/feyncalc/wiki"],
     DisplayForm], "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox["\<\" for answers to some common FeynCalc questions.\"\>", "Text",
    StripOnInput->False]}],
  SequenceForm[
   Style["To save your and our time, please check our ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox["FAQ", ButtonData :> {
        URL["https://github.com/FeynCalc/feyncalc/wiki/FAQ"], None}, 
      BaseStyle -> "Hyperlink", ButtonNote -> 
      "https://github.com/FeynCalc/feyncalc/wiki"]], "Text"], 
   Style[" for answers to some common FeynCalc questions.", "Text"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.8420119529997883`*^9},ExpressionUUID->"3044bf1b-ae88-43ae-a887-\
65d38de8fe80"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"See also the supplied \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox[
      RowBox[{"examples", "."}],
      BaseStyle->"Hyperlink",
      ButtonFunction:>SystemOpen[
        FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]],
      Evaluator->Automatic,
      Method->"Preemptive"],
     DisplayForm], "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox["\<\" If you use FeynCalc in your research, please cite\"\>", 
    "Text",
    StripOnInput->False]}],
  SequenceForm[
   Style["See also the supplied ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox[
     "examples.", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[
        FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator -> 
      Automatic, Method -> "Preemptive"]], "Text"], 
   Style[" If you use FeynCalc in your research, please cite", "Text"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.842011953005788*^9},ExpressionUUID->"f51c115b-3e43-4c60-8467-\
3b9853264bc9"],

Cell[BoxData[
 StyleBox["\<\" \[Bullet] V. Shtabovenko, R. Mertig and F. Orellana, \
Comput.Phys.Commun. 256 (2020) 107478, arXiv:2001.04407.\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.842011953010789*^9},ExpressionUUID->"e6e6e8a9-f6cb-4e83-9600-\
cc542ca215b0"],

Cell[BoxData[
 StyleBox["\<\" \[Bullet] V. Shtabovenko, R. Mertig and F. Orellana, \
Comput.Phys.Commun. 207 (2016) 432-444, arXiv:1601.01167.\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.8420119530187902`*^9},ExpressionUUID->"d124ba31-3dcf-4483-abb6-\
ac554ad52a23"],

Cell[BoxData[
 StyleBox["\<\" \[Bullet] R. Mertig, M. B\[ODoubleDot]hm, and A. Denner, \
Comput. Phys. Commun. 64 (1991) 345-359.\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.84201195302379*^9},ExpressionUUID->"fa2ed705-d61d-4a48-9e7e-ea0d03eea1b6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"TARCER \"\>", "Text",
    StripOnInput->False,
    FontWeight->Bold], "\[InvisibleSpace]", 
   StyleBox["\<\"2.0, for more information see the accompanying \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox[
      RowBox[{"publication", "."}],
      BaseStyle->"Hyperlink",
      ButtonFunction:>SystemOpen[
        ToFileName[{FeynCalc`$TARCERDirectory}, "9801383.pdf"]],
      Evaluator->Automatic,
      Method->"Preemptive"],
     DisplayForm], "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox["\<\" If you use TARCER in your research, please cite\"\>", "Text",
    StripOnInput->False]}],
  SequenceForm[
   Style["TARCER ", "Text", Bold], 
   Style["2.0, for more information see the accompanying ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox[
     "publication.", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[
        ToFileName[{FeynCalc`$TARCERDirectory}, "9801383.pdf"]], Evaluator -> 
      Automatic, Method -> "Preemptive"]], "Text"], 
   Style[" If you use TARCER in your research, please cite", "Text"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.842011953029791*^9},ExpressionUUID->"2e619bbd-a491-4f30-b471-\
dbd79cf787d3"],

Cell[BoxData[
 StyleBox["\<\" \[Bullet] R. Mertig and R. Scharf, Comput. Phys. Commun., \
111, 265-273, 1998, arXiv:hep-ph/9801383\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.8420119530357914`*^9},ExpressionUUID->"7255a083-ee1e-43fb-86d9-\
99277b6a9e61"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   StyleBox["\<\"FeynArts \"\>", "Text",
    StripOnInput->False,
    FontWeight->Bold], "\[InvisibleSpace]", 
   StyleBox["\<\"3.11 (3 Aug 2020) patched for use with FeynCalc, for \
documentation see the \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox["manual",
      BaseStyle->"Hyperlink",
      ButtonFunction:>SystemOpen[
        First[
         FileNames[{"*.pdf", "*.PDF"}, 
          FileNameJoin[{FeynCalc`$FeynArtsDirectory, "manual"}]]]],
      Evaluator->Automatic,
      Method->"Preemptive"],
     DisplayForm], "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox["\<\" or visit \"\>", "Text",
    StripOnInput->False], "\[InvisibleSpace]", 
   StyleBox[
    TagBox[
     ButtonBox[
      RowBox[{"www", ".", "feynarts", ".", "de", "."}],
      BaseStyle->"Hyperlink",
      ButtonData:>{
        URL["http://www.feynarts.de/"], None},
      ButtonNote->"www.feynarts.de/"],
     DisplayForm], "Text",
    StripOnInput->False]}],
  SequenceForm[
   Style["FeynArts ", "Text", Bold], 
   Style["3.11 (3 Aug 2020) patched for use with FeynCalc, for documentation \
see the ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox[
     "manual", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[
        First[
         FileNames[{"*.pdf", "*.PDF"}, 
          FileNameJoin[{FeynCalc`$FeynArtsDirectory, "manual"}]]]], Evaluator -> 
      Automatic, Method -> "Preemptive"]], "Text"], 
   Style[" or visit ", "Text"], 
   Style[
    DisplayForm[
     ButtonBox["www.feynarts.de.", ButtonData :> {
        URL["http://www.feynarts.de/"], None}, BaseStyle -> "Hyperlink", 
      ButtonNote -> "www.feynarts.de/"]], "Text"]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.8420119532458363`*^9},ExpressionUUID->"2bc14d85-bfca-4f4e-9f90-\
278b610a7e9a"],

Cell[BoxData[
 StyleBox["\<\"If you use FeynArts in your research, please cite\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.842011953253838*^9},ExpressionUUID->"5a8c526b-e639-4782-bc85-\
bdbfb4cb795e"],

Cell[BoxData[
 StyleBox["\<\" \[Bullet] T. Hahn, Comput. Phys. Commun., 140, 418-431, 2001, \
arXiv:hep-ph/0012260\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8316330568964567`*^9, 3.8339168568814554`*^9, 
  3.8418291598159857`*^9, 3.841831511191086*^9, 3.842000746150014*^9, 
  3.8420041449610577`*^9, 3.8420053008108873`*^9, 
  3.842011953259838*^9},ExpressionUUID->"9de65890-f7ff-4d87-968d-\
11c5d33de92a"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Fermion to Fermion process defined", "Section",
 CellChangeTimes->{
  3.8296463181009827`*^9},ExpressionUUID->"98a2d4e0-3f1e-4755-a15a-\
09bc54a6e0b8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Processee", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"F", "[", 
      RowBox[{"2", ",", 
       RowBox[{"{", "1", "}"}]}], "]"}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"F", "[", 
      RowBox[{"2", ",", 
       RowBox[{"{", "1", "}"}]}], "]"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"InsertFields", ",", 
    RowBox[{"InsertionLevel", "\[Rule]", 
     RowBox[{"{", "Particles", "}"}]}], ",", 
    RowBox[{"Model", "\[Rule]", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<QED\>\"", ",", "\"\<QED\>\""}], "}"}], "]"}]}], ",", 
    RowBox[{"GenericModel", "\[Rule]", 
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{"\"\<QED\>\"", ",", "\"\<QED\>\""}], "}"}], "]"}]}], ",", 
    RowBox[{"ExcludeParticles", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"F", "[", 
       RowBox[{"2", ",", 
        RowBox[{"{", 
         RowBox[{"2", "|", "3"}], "}"}]}], "]"}], "}"}]}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8296463258095856`*^9, 3.8296463433967075`*^9}, {
   3.8296477348760386`*^9, 3.829647735014821*^9}, {3.829647915016507*^9, 
   3.829647934928266*^9}, {3.829648441859126*^9, 3.829648442782248*^9}, {
   3.8296485004906063`*^9, 3.829648504525466*^9}, 3.8296489842602377`*^9, {
   3.8296490979408283`*^9, 3.829649137275426*^9}, {3.82965690483154*^9, 
   3.8296569146965075`*^9}, {3.8296569857405505`*^9, 3.829656988563285*^9}, {
   3.82965745637949*^9, 3.8296574745558476`*^9}, 3.8296575587735*^9, {
   3.8296595740193815`*^9, 3.8296596048550158`*^9}, {3.8296600333046675`*^9, 
   3.8296600436415677`*^9}, 
   3.841829202444545*^9},ExpressionUUID->"5bf57088-3bf9-42b4-930a-\
cae31b7e38cf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Topology Generation with FeynArts", "Section",
 CellChangeTimes->{
  3.829647759335925*^9},ExpressionUUID->"28771d26-6747-4ddc-a158-\
883c01280a57"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "Topology", " ", "creation", " ", "with", " ", "FeynArts", " ", 
     "function", " ", 
     RowBox[{
      RowBox[{"CreateTopologies", "[", "]"}], ".", " ", "1"}], "PI", " ", 
     "2"}], "-", 
    RowBox[{"loop", " ", "topology", " ", "for", " ", "a", " ", "1"}]}], 
   "\[Rule]", 
   RowBox[{"1", " ", "fermion", " ", 
    RowBox[{"(", 
     RowBox[{"F", "[", 
      RowBox[{"2", ",", 
       RowBox[{"{", "1", "}"}]}], "]"}], ")"}], " ", "process", " ", "is", 
    " ", 
    RowBox[{"generated", ".", " ", "Default"}], " ", "options", " ", "for", 
    " ", "FeynArts", " ", "function", " ", 
    RowBox[{"InsertFields", "[", "]"}], " ", "are", " ", "set"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.8296477836338544`*^9, 3.8296477842864246`*^9}, 
   3.829648211205718*^9, 
   3.8316333037729588`*^9},ExpressionUUID->"281419b5-1b56-486c-9860-\
f832a4246c6e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Topologiesfermions", "=", 
   RowBox[{"CreateTopologies", "[", 
    RowBox[{"2", ",", 
     RowBox[{"1", "\[Rule]", "1"}], ",", 
     RowBox[{"ExcludeTopologies", "\[Rule]", 
      RowBox[{"{", "Tadpoles", "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", "Topologiesfermions", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.829647891005805*^9, 3.8296479004333115`*^9}, 
   3.8296480686143446`*^9, {3.8296600479155664`*^9, 3.82966005012149*^9}, 
   3.8418315263779716`*^9},ExpressionUUID->"de9ed13f-69d3-4d68-baa7-\
548451a72c29"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 9.}, {6.00000000000067, 9.}}], 
         LineBox[{{20.000000000000668`, 9.}, {13.999999999999329`, 9.}}], 
         CircleBox[{10., 9.}, 4., {-3.141592653589793, 0.}], 
         CircleBox[{9.826573696145124, 9.173426303854875}, 
          3.830501655775458, {1.5255057556517604`, 3.1868832247329295`}], 
         CircleBox[{10.078582159624412, 9.078582159624412}, 
          3.922205123986655, {-0.02003653948656492, 1.5908328662814615`}], 
         CircleBox[{10., 15.}, 2., {-1.5707963267948966`, 4.71238898038469}], 
         {PointSize[0.04], PointBox[{6., 9.}], PointBox[{14., 9.}], 
          PointBox[{10., 13.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cdcedeee.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cdcedeee.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.2887468869848817`*^-12, 10.}, {5.499999999996848, 
          10.}}], LineBox[{{20.000000000001286`, 10.}, {14.500000000003151`, 
          10.}}], CircleBox[{9.800940476190476, 10.265935185185185}, 
          4.309154267655434, {-4.5254322417572475`, -3.0798394031237133`}], 
         CircleBox[{13.646229838709676, 14.567614247311827}, 
          4.646721790741909, {-3.12704118341746, -1.3860104919849057`}], 
         CircleBox[{10.233838345864662, 10.396913533834587}, 
          4.28458581575347, {-0.0927705627501072, 1.8629041945273277`}], 
         CircleBox[{10., 10.}, 4.5, {-3.141592653589793, 0.}], 
         {PointSize[0.04], PointBox[{9., 14.5}], PointBox[{5.5, 10.}], 
          PointBox[{14.5, 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T2",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\b1\\\\2c2121c1.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\b1\\2c2121c1.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.2887468869848817`*^-12, 10.}, {5.499999999996848, 
          10.}}], LineBox[{{20.000000000001286`, 10.}, {14.500000000003151`, 
          10.}}], CircleBox[{10.199059523809524, 10.265935185185185}, 
          4.309154267655434, {-0.06175325046608027, 1.383839588167454}], 
         CircleBox[{9.9375, 10.187500000000002}, 
          4.441459501109967, {-4.9539546874800156`, -3.099364251476791}], 
         CircleBox[{6.073698113207548, 14.909924528301888}, 
          4.9433276645108615, {-1.6871134831459234`, -0.08302014863129759}], 
         CircleBox[{10., 10.}, 4.5, {3.141592653589793, 6.283185307179586}], 
         {PointSize[0.04], PointBox[{11., 14.5}], PointBox[{14.5, 10.}], 
          PointBox[{5.5, 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T3",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"a1\\\\bc\\\\2c2121c1.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "a1\\bc\\2c2121c1.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{9.863850574712645, 9.863850574712643}, 
          3.866248560260101, {3.1063705051953523`, 4.74761112877913}], 
         CircleBox[{9.991692493946733, 10.008307506053267}, 
          4.008316114996395, {-1.5687237577253734`, -0.0020725690695229115`}],
          LineBox[{{10., 13.999999999996009`}, {10., 5.99999999999511}}], 
         CircleBox[{9.921417840375588, 10.078582159624412}, 
          3.922205123986655, {-4.732425519871255, -3.121556114103228}], 
         CircleBox[{9.991692493946733, 9.991692493946733}, 
          4.008316114996395, {0.0020725690695229115`, 1.5687237577253734`}], 
         {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}], 
          PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T4",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\1c1d212c2d.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\1c1d212c2d.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{10., 10.}, 4., {-3.141592653589793, 0.}], 
         CircleBox[{9.49248734177215, 10.325721518987342}, 
          3.5076434169353834, {-4.2728793590333805`, -3.048598176639251}], 
         CircleBox[{10., 13.049999999999999}, 2.0500000000000003, {
          0.2213144423477913, 2.9202782112420023`}], 
         CircleBox[{10., 13.950000000000001}, 2.0500000000000003, {
          3.3629070959375844`, 6.061870864831795}], 
         CircleBox[{10.44866935483871, 10.29209677419355}, 
          3.563322870125016, {-0.08206522583826792, 1.1203574543313137`}], 
         {PointSize[0.04], PointBox[{12., 13.5}], PointBox[{8., 13.5}], 
          PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T5",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cd1c21212d.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cd1c21212d.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         LineBox[{{14.000000000000451`, 10.}, {5.999999999999551, 10.}}], 
         CircleBox[{14., 12.5}, 2.5, {-1.5707963267948966`, 
          4.71238898038469}], 
         CircleBox[{6., 12.5}, 2.5, {-1.5707963267948966`, 4.71238898038469}], 
         {PointSize[0.04], PointBox[{14., 10.}], PointBox[{6., 10.}]}, 
         InsetBox[
          TagBox[
           StyleBox[
            TagBox["T6",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"a1\\\\b2\\\\212211.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "a1\\b2\\212211.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 6.999999999996362}, {
          9.999999999996676, 6.999999999996362}}], 
         LineBox[{{20.00000000000112, 7.000000000003638}, {
          10.000000000003325`, 7.000000000003638}}], 
         CircleBox[{10., 9.5}, 2.5, {1.5707963267948966`, 4.71238898038469}], 
         CircleBox[{10., 9.5}, 2.5, {-1.5707963267948966`, 
          1.5707963267948966`}], 
         CircleBox[{10., 14.5}, 2.5, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 7.}], PointBox[{10., 12.}]}, 
         InsetBox[
          TagBox[
           StyleBox[
            TagBox["T7",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\cdcddd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\cdcddd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.5563106359195444`*^-12, 10.}, {3.9999999999971156`, 
          10.}}], LineBox[{{20.000000000001556`, 10.}, {16.000000000002885`, 
          10.}}], CircleBox[{7., 10.}, 3., {-3.141592653589793, 0.}], 
         CircleBox[{7., 10.}, 3., {0., 3.141592653589793}], 
         CircleBox[{13., 10.}, 3., {0., 3.141592653589793}], 
         CircleBox[{13., 10.}, 3., {3.141592653589793, 6.283185307179586}], 
         {PointSize[0.04], PointBox[{4., 10.}], PointBox[{16., 10.}], 
          PointBox[{10., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T8",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cecedede.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cecedede.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.5563106359195444`*^-12, 10.}, {3.9999999999971156`, 
          10.}}], LineBox[{{19.999999999998543`, 10.}, {14.999999999997012`, 
          10.}}], LineBox[{{10.000000000001455`, 10.}, {15.000000000002988`, 
          10.}}], CircleBox[{7., 10.}, 3., {0., 3.141592653589793}], 
         CircleBox[{7., 10.}, 3., {3.141592653589793, 6.283185307179586}], 
         CircleBox[{15., 12.5}, 2.5, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 10.}], PointBox[{4., 10.}], 
          PointBox[{15., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T9",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\b1\\\\212c2c11.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\b1\\212c2c11.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.8316333221806183`*^9, 3.833916858198202*^9, 
  3.84182921353506*^9, 3.841831527745431*^9, 3.8420007471502733`*^9, 
  3.842004256464015*^9, 3.842005301808504*^9, 
  3.8420119538300433`*^9},ExpressionUUID->"87f8226a-3bcd-4390-b09e-\
65605d7da1a5"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{1.454392162258955*^-12, 10.}, {5.000000000002986, 10.}}], 
         LineBox[{{20.000000000001556`, 10.}, {16.000000000002885`, 10.}}], 
         LineBox[{{9.999999999998545, 10.}, {4.999999999997014, 10.}}], 
         CircleBox[{13., 10.}, 3., {-3.141592653589793, 0.}], 
         CircleBox[{13., 10.}, 3., {0., 3.141592653589793}], 
         CircleBox[{5., 12.5}, 2.5, {-1.5707963267948966`, 4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 10.}], PointBox[{16., 10.}], 
          PointBox[{5., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T10",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"a1\\\\bc\\\\212c2c11.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "a1\\bc\\212c2c11.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 7.999999999996362}, {
          9.999999999996676, 7.999999999996362}}], 
         LineBox[{{20.00000000000112, 8.000000000003638}, {
          10.000000000003325`, 8.000000000003638}}], 
         CircleBox[{10., 12.}, 4., {0., 3.141592653589793}], 
         LineBox[{{5.999999999999551, 12.}, {14.000000000000451`, 12.}}], 
         CircleBox[{9.882814814814814, 11.882814814814814}, 
          3.884582764438453, {-3.1717639675471245`, -1.5406250128375651`}], 
         CircleBox[{10.23370509977827, 11.76629490022173}, 
          3.773538836304535, {-1.6327685947724406`, 0.06197226797754429}], 
         {PointSize[0.04], PointBox[{6., 12.}], PointBox[{14., 12.}], 
          PointBox[{10., 8.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T11",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\21212c1c.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\21212c1c.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{1.9830803665854546`*^-12, 10.}, {3.0000000000024576`, 
          10.}}], LineBox[{{19.999999999998018`, 10.}, {16.99999999999754, 
          10.}}], LineBox[{{12.000000000001556`, 10.}, {8.000000000002885, 
          10.}}], CircleBox[{14.5, 10.}, 2.5, {0., 3.141592653589793}], 
         CircleBox[{14.5, 10.}, 2.5, {-3.141592653589793, 0.}], 
         CircleBox[{5.5, 10.}, 2.5, {3.141592653589793, 6.283185307179586}], 
         CircleBox[{5.5, 10.}, 2.5, {0., 3.141592653589793}], 
         {PointSize[0.04], PointBox[{12., 10.}], PointBox[{8., 10.}], 
          PointBox[{3., 10.}], PointBox[{17., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T12",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\212d2d1c1c.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\212d2d1c1c.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{10., 10.}, 4., {3.141592653589793, 6.283185307179586}], 
         LineBox[{{14.000000000000451`, 10.}, {5.999999999999551, 10.}}], 
         CircleBox[{10., 10.}, 4., {0., 3.141592653589793}], 
         {PointSize[0.04], PointBox[{14., 10.}], PointBox[{6., 10.}]}, 
         InsetBox[
          TagBox[
           StyleBox[
            TagBox["T13",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"a1\\\\b2\\\\212121.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "a1\\b2\\212121.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.8316333221806183`*^9, 3.833916858198202*^9, 
  3.84182921353506*^9, 3.841831527745431*^9, 3.8420007471502733`*^9, 
  3.842004256464015*^9, 3.842005301808504*^9, 
  3.842011953876047*^9},ExpressionUUID->"b1235a5f-0555-4b79-8d7a-\
ee8236a56ada"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"overlappedtopology", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"Topologiesfermions", ",", 
     RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "overlappedtopology", "]"}]}], "Input",
 CellChangeTimes->{{3.829648100842901*^9, 3.829648107764325*^9}, {
  3.83163335975496*^9, 
  3.831633376187234*^9}},ExpressionUUID->"afa19377-54da-4128-8d2b-\
e9831ed94b49"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{9.863850574712645, 9.863850574712643}, 
          3.866248560260101, {3.1063705051953523`, 4.74761112877913}], 
         CircleBox[{9.991692493946733, 10.008307506053267}, 
          4.008316114996395, {-1.5687237577253734`, -0.0020725690695229115`}],
          LineBox[{{10., 13.999999999996009`}, {10., 5.99999999999511}}], 
         CircleBox[{9.921417840375588, 10.078582159624412}, 
          3.922205123986655, {-4.732425519871255, -3.121556114103228}], 
         CircleBox[{9.991692493946733, 9.991692493946733}, 
          4.008316114996395, {0.0020725690695229115`, 1.5687237577253734`}], 
         {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}], 
          PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\1c1d212c2d.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\1c1d212c2d.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{705.9999999999989, 706.},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.8316333784422507`*^9, 3.8339168582739716`*^9, 
  3.841829217711545*^9, 3.841831533687256*^9, 3.842000747283351*^9, 
  3.84200425950397*^9, 3.8420053018945*^9, 
  3.84201195390105*^9},ExpressionUUID->"0b6ab32c-2b7f-45d8-a086-a3b49de81e22"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"FeynArtsGraphics", "(", 
    RowBox[{"1", "\[Rule]", "1"}], ")"}], "\[InvisibleApplication]", 
   RowBox[{"(", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         FormBox[
          InterpretationBox[
           
           RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>", 
            "\[InvisibleSpace]", "\<\"]\"\>"}],
           SequenceForm["[", "T1", "]"],
           Editable->False],
          TraditionalForm], "Null", "Null"},
        {"Null", "Null", "Null"},
        {"Null", "Null", "Null"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.831633378454258*^9, 3.8339168582819824`*^9, 
  3.84182921771472*^9, 3.841831533747682*^9, 3.842000747305731*^9, 
  3.8420042595317287`*^9, 3.842005301901897*^9, 
  3.8420119539150505`*^9},ExpressionUUID->"63b7a8d4-6b95-4e8c-ac26-\
04d898b34e33"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Diagram generation with fields", "Section",
 CellChangeTimes->{
  3.8296481908252287`*^9},ExpressionUUID->"c6dcd27d-d2f4-4625-b311-\
f84b583fd0a8"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "substitute", " ", "the", " ", "propagators", " ", "and", " ", 
   "external", " ", "fields", " ", "from", " ", "QED", " ", "in", " ", 
   "previous", " ", "selected", " ", "topology"}], "*)"}]], "Input",
 CellChangeTimes->{{3.829648221090498*^9, 
  3.829648221838745*^9}},ExpressionUUID->"d0ae30c3-a2b8-45cf-a317-\
b64cad36592d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"overlappedWITHfields", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"overlappedtopology", ",", "Processee", ",", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "_", "]"}], ",", 
        RowBox[{"V", "[", 
         RowBox[{"2", "|", "3"}], "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"S", "|", "U"}], ")"}], "[", "_", "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", "|", "4"}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"2", "|", "3"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", 
   RowBox[{"overlappedWITHfields", ",", 
    RowBox[{"ColumnsXRows", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}]}], ",", 
    RowBox[{"Numbering", "\[Rule]", "Simple"}], ",", 
    RowBox[{"SheetHeader", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"256", ",", "256"}], "}"}]}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.829648240057266*^9, 3.8296482775184774`*^9}, {
   3.8296483816406736`*^9, 3.829648382627054*^9}, 3.8296488435456057`*^9, {
   3.8296598203744564`*^9, 3.829659830678954*^9}, 3.8296601009404335`*^9, {
   3.8296616405674725`*^9, 3.8296616499071627`*^9}, {3.8316334178067007`*^9, 
   3.831633445339216*^9}, {3.8418292910629187`*^9, 
   3.84182932213865*^9}},ExpressionUUID->"e965ed74-a143-4324-b6ee-\
32d57e1d0abb"],

Cell[BoxData[
 FormBox[
  GraphicsBox[InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
        PolygonBox[{{3.6, 10.}, {2.4, 9.6}, {2.4, 10.4}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {3., 9.0548}, 
         ImageScaled[{Rational[1, 2], 1}]], 
        LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
        PolygonBox[{{17.6, 10.}, {16.4, 10.4}, {16.4, 9.6}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {17., 10.9452}, 
         ImageScaled[{Rational[1, 2], 0}]], 
        CircleBox[{9.863850574712645, 9.863850574712643}, 3.866248560260101, {
         3.1063705051953523`, 4.74761112877913}], 
        PolygonBox[{{7.5542640687119285`, 6.705735931288071}, {
         6.422893218813452, 7.271421356237309}, {6.988578643762691, 
         7.837106781186548}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {6.638784489160852, 6.638784489160852}, 
         ImageScaled[{1, 1}]], LineBox[CompressedData["
1:eJwtk4sv3AcAxz0WSndMyvzOr+Xud0+/3zFbVcdw385zqByKoWfKalu9Oo1V
Uo/jGqaVBjO6RLvOVNl0TVNCETUbVtOr2rVe54ZiHiPtafWsxrp1n+STz1/w
4SZmhB81MjAwkL7w375EgpflQ+t6tmhwmMHglChOfocHq+ZzVX80MlBOnTJv
q+Ehlr76zPUMg6BB9xvBaTxErFWqvE8yiP2Sr9F78TAwbYCeTAbrMcxmLouH
WacHYdk5DFjLjy1vjlP4eaHcmKpg4NbmJp+vozD/7dT1+9cYOEVpfO6lUDhf
oJQqhxjssvU2XX2DgrXV88gLqwwKopJ2Ruu4eHVq8+C9VySY/rr+XFMzF8kp
DeUtFhJk53C6xrO5MChR9UWbScAWjnygAheBMw2l59cYbHhcz+NZcLFdTmW9
p2JwtiTDcGKaAw/9XYl5DYOS3PpqXicHabNR8qUEBqoc6KQ1HCilwZWTXAbm
fuZUmYKDu1LPSOtZGuNaq4GuZA5k6RstsiYarwsuRLFCOOj/ib3rYB6NwsLt
9BYnDo50B1UFHqah5zUJws04aB+y0fb708jiCV2U7Q4YIIYnyzxpUM6l9FSY
A0YXPU2mPWhsbfWYGI7bY2jOmnXfi0Z1cUhZZZQ9fLU2/mug8U1rflPknT2Y
s/EL7JXS6Ps8tCPebw86yBWbVDca3224U+/27Ub+ZSKMpGjISuPeNonejdm/
0nUphjTczSlS/DeJMffhhzlqRxi1qOS3O0hIjB+uamscUfqLQC36gsTFjvdr
ZXJHuKmzMrIUJFz43Y6RbEec9FGfYOeRcOsca21Ri3HE9cFc5GkShYqLOdsV
YsgkRWteZ0g8Wri5ZBktRqoqzldbRMJ/9c+PuigxSuPVPsczSezQRIxfXRfB
O//Yb+kBJPJzDcqDhkU4kT04dtSYxNJ4YqPuhgiJPFZl/BU7CLmr+w58JUKS
ojhyZL8dnrU/nczIF+G54pMR30429ipvsbqTRBDvD/djvNnILoz5WOMjQqll
Qv1yP4Gsz8q2+PYiGGnabdKSCOzoDS3QPBbi+Ds/zKsIAgtj4ktv3hJieyUx
U7ZiixLl7wcExULsc7ymqZyxBSch5tOIYCEWpSYfytdtoWisedLAEmJ00uxQ
L0VgdeFHvdWQAMObesVGPAF1I6/TuVIA1zbvmkOXCPwacLuWHSdAtrNG3zFB
4Im1xSN/gQDudRGHLU3Z2FmvNi7U8ZHquZV/yo6NK8cmeKY9fMSyHyQWWrHR
urcvpLmCj9DvL79WtUwgz+H004CkF99Wzwy7NBFwdRitq32LD5+qRV1yLAHD
/7/e/g9b/AOAZqjc
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {13.317215510839148, 6.682784489160851}, 
         ImageScaled[{0, 1}]], 
        LineBox[{{10., 13.999999999996009`}, {10., 5.99999999999511}}], 
        PolygonBox[{{10., 10.6}, {9.6, 9.4}, {10.4, 9.4}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {10.9452, 10.}, 
         ImageScaled[{0, Rational[1, 2]}]], LineBox[CompressedData["
1:eJwtk3s01QcAx/Xg2sHGPO7vPt33vX4/8zhhZZavmuOtZUVrxtj1mleWlriT
Dqkj5FUhkkYxdBZySh55jHkcjzPHM2eYS9IhoiOjra19zvmez5+fv758/0iP
gJ0qKip4u3/9DgJ//4cQTbUapf2eBCKrAu2Ze0SokzTZFJQSGPRarjGUi9AA
8fbWDAF7box7TbYIGPbaUFNnYH/ddNloqwi+HUe7ZDoMnMryzHu8KoImrTot
7w2BpHETu1SRGCUeZ+RuQwQWgg7UaH8pRvVscGhUHoGDbz7JLM0Qoy/KoCTB
i8BXhXtCaD1imLa0OWozCHxzSVD8BU2Cq8vD5nFP6ShO1Ok0/EyCi/KFkWt9
dBAZOm3lZyWoSrBuuTVIxxFt+yPMBxJMGc+pJ6zRwTkxrT+wKMGT8g5hqBUB
/4j75+8wpAhTjBVysgkMKQLOWNhJof6qnArcxUA1Z7/sT38p5F7JDFY8A6E8
1b2bZ6VQa6A/dHjNQMH24+K4fClSP9/tFx7KBHtD1Wi+VooQwVjj3V4mVveZ
9isHpTiW8n5LM52FboRFLbyUoqdoflLhzILq5e9ofWwZUrhh7kQgC4p8pU+K
mwyjLBPZeAQLN5X3rm2dlyEnjvlxfCgLVjHrlhPtMvj+Yq3mIGch2r63p49m
hF/LU3Ln/Fh48F52abWLERyr4tf9wlj4qaHy8HqqETC2fVgvhQVu5hJd6zcj
jOcknVhpYsFRM81s5bURIuaVNziabGTdb3S4wCPRPikYUEay4au7Y2TdmsTD
5Nve+nNseJdDtd+JRPrzsdr8YA44FfU1modIGJwKCvZ/wcHAnRnFEzcSmR/o
5zj9wIVV6/ezcCbRZFEwoLbGhd7q08UsRxJqPRYHFuWGePSia/SlK4lX0+TK
tx2GYJppZrYcJ2HZnJ1uoMnD7/UxhrxoElodA2ZMEx56InSLy/JIzNI2hwkX
HupHfjzk1E1CvtPWJymAhy1+tNB7F4Urf2x2qibw4D5kc3IVFNxmWkbYhTxs
7qaeucZTIBPzk3uaeOiy0zWPqqNQmOkce2yOhw8r2BHdsxRmLnOfmerxkbGQ
+lezqjEql+srlA58/NzsX2RCN8Zc5JKNZwIfDW4aerWEMb5WLO2desSH5UW9
oFYNYxRFT/pUbvARYnhj4vRLCiX+vVc3LARgdK5V2Q5RaNzRHnE8UoCyNBdn
hxoKBrmNrsu3Bbjr2eY2doWCQjzYdHJCgNgtyb6aBAqXwssDbbWEGGAfvR56
mkKLE9dL+qkQU3pDiVtxFBqmL9xzDRPilm/4uXPpFEzKtF2nrgtR8vzmtHkV
hQyPvHplrxDF4tiPct/23/1d9L+N8Q8k3K/y
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {6.656784489160851, 13.343215510839148}, 
         ImageScaled[{1, 0}]], 
        CircleBox[{9.991692493946733, 9.991692493946733}, 4.008316114996395, {
         0.0020725690695229115`, 1.5687237577253734`}], 
        PolygonBox[{{13.250264068711928`, 12.401735931288073`}, {
         12.684578643762691`, 13.533106781186547`}, {12.118893218813454`, 
         12.96742135623731}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {13.317215510839148, 13.317215510839148}, 
         ImageScaled[{0, 0}]], 
        {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}], 
         PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["1",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->11.729454545454546`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           11.729454545454546`]& ], {10., -0.5}, 
         ImageScaled[{Rational[1, 2], 0}]]},
       "\"ac\\\\bd\\\\1c1d212c2d.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "ac\\bd\\1c1d212c2d.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}],
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   ImageSize->{256, 256},
   PlotRange->{{0, 44}, {0, 22}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.841831542988813*^9, 3.842000747668354*^9, 
  3.842004266375011*^9, 3.8420053021793947`*^9, 
  3.8420119540450783`*^9},ExpressionUUID->"b771f0f0-6284-4492-a9e3-\
403680b03753"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"theoverlappedcontribution", "=", 
   RowBox[{"DiagramExtract", "[", 
    RowBox[{"overlappedWITHfields", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "theoverlappedcontribution", "]"}]}], "Input",
 CellChangeTimes->{{3.829648416171129*^9, 3.8296484362485924`*^9}, {
   3.829648854814249*^9, 3.8296488563738422`*^9}, {3.829648974816259*^9, 
   3.8296489781174808`*^9}, 3.8296597972976522`*^9, {3.829661109926646*^9, 
   3.829661164402973*^9}, {3.829661280174787*^9, 3.829661306637289*^9}, {
   3.8296615399536777`*^9, 3.8296615447878017`*^9}, {3.8316335290948806`*^9, 
   3.831633543925293*^9}},ExpressionUUID->"75c0edea-c594-45f3-aaae-\
94865946206a"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         PolygonBox[{{3.6, 10.}, {2.4, 9.6}, {2.4, 10.4}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {3., 9.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         PolygonBox[{{17.6, 10.}, {16.4, 10.4}, {16.4, 9.6}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {17., 10.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         CircleBox[{9.863850574712645, 9.863850574712643}, 
          3.866248560260101, {3.1063705051953523`, 4.74761112877913}], 
         PolygonBox[{{7.5542640687119285`, 6.705735931288071}, {
          6.422893218813452, 7.271421356237309}, {6.988578643762691, 
          7.837106781186548}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {6.638784489160852, 6.638784489160852}, 
          ImageScaled[{1, 1}]], LineBox[CompressedData["
1:eJwtk4sv3AcAxz0WSndMyvzOr+Xud0+/3zFbVcdw385zqByKoWfKalu9Oo1V
Uo/jGqaVBjO6RLvOVNl0TVNCETUbVtOr2rVe54ZiHiPtafWsxrp1n+STz1/w
4SZmhB81MjAwkL7w375EgpflQ+t6tmhwmMHglChOfocHq+ZzVX80MlBOnTJv
q+Ehlr76zPUMg6BB9xvBaTxErFWqvE8yiP2Sr9F78TAwbYCeTAbrMcxmLouH
WacHYdk5DFjLjy1vjlP4eaHcmKpg4NbmJp+vozD/7dT1+9cYOEVpfO6lUDhf
oJQqhxjssvU2XX2DgrXV88gLqwwKopJ2Ruu4eHVq8+C9VySY/rr+XFMzF8kp
DeUtFhJk53C6xrO5MChR9UWbScAWjnygAheBMw2l59cYbHhcz+NZcLFdTmW9
p2JwtiTDcGKaAw/9XYl5DYOS3PpqXicHabNR8qUEBqoc6KQ1HCilwZWTXAbm
fuZUmYKDu1LPSOtZGuNaq4GuZA5k6RstsiYarwsuRLFCOOj/ib3rYB6NwsLt
9BYnDo50B1UFHqah5zUJws04aB+y0fb708jiCV2U7Q4YIIYnyzxpUM6l9FSY
A0YXPU2mPWhsbfWYGI7bY2jOmnXfi0Z1cUhZZZQ9fLU2/mug8U1rflPknT2Y
s/EL7JXS6Ps8tCPebw86yBWbVDca3224U+/27Ub+ZSKMpGjISuPeNonejdm/
0nUphjTczSlS/DeJMffhhzlqRxi1qOS3O0hIjB+uamscUfqLQC36gsTFjvdr
ZXJHuKmzMrIUJFz43Y6RbEec9FGfYOeRcOsca21Ri3HE9cFc5GkShYqLOdsV
YsgkRWteZ0g8Wri5ZBktRqoqzldbRMJ/9c+PuigxSuPVPsczSezQRIxfXRfB
O//Yb+kBJPJzDcqDhkU4kT04dtSYxNJ4YqPuhgiJPFZl/BU7CLmr+w58JUKS
ojhyZL8dnrU/nczIF+G54pMR30429ipvsbqTRBDvD/djvNnILoz5WOMjQqll
Qv1yP4Gsz8q2+PYiGGnabdKSCOzoDS3QPBbi+Ds/zKsIAgtj4ktv3hJieyUx
U7ZiixLl7wcExULsc7ymqZyxBSch5tOIYCEWpSYfytdtoWisedLAEmJ00uxQ
L0VgdeFHvdWQAMObesVGPAF1I6/TuVIA1zbvmkOXCPwacLuWHSdAtrNG3zFB
4Im1xSN/gQDudRGHLU3Z2FmvNi7U8ZHquZV/yo6NK8cmeKY9fMSyHyQWWrHR
urcvpLmCj9DvL79WtUwgz+H004CkF99Wzwy7NBFwdRitq32LD5+qRV1yLAHD
/7/e/g9b/AOAZqjc
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {13.317215510839148, 6.682784489160851}, 
          ImageScaled[{0, 1}]], 
         LineBox[{{10., 13.999999999996009`}, {10., 5.99999999999511}}], 
         PolygonBox[{{10., 10.6}, {9.6, 9.4}, {10.4, 9.4}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {10.9452, 10.}, 
          ImageScaled[{0, Rational[1, 2]}]], LineBox[CompressedData["
1:eJwtk3s01QcAx/Xg2sHGPO7vPt33vX4/8zhhZZavmuOtZUVrxtj1mleWlriT
Dqkj5FUhkkYxdBZySh55jHkcjzPHM2eYS9IhoiOjra19zvmez5+fv758/0iP
gJ0qKip4u3/9DgJ//4cQTbUapf2eBCKrAu2Ze0SokzTZFJQSGPRarjGUi9AA
8fbWDAF7box7TbYIGPbaUFNnYH/ddNloqwi+HUe7ZDoMnMryzHu8KoImrTot
7w2BpHETu1SRGCUeZ+RuQwQWgg7UaH8pRvVscGhUHoGDbz7JLM0Qoy/KoCTB
i8BXhXtCaD1imLa0OWozCHxzSVD8BU2Cq8vD5nFP6ShO1Ok0/EyCi/KFkWt9
dBAZOm3lZyWoSrBuuTVIxxFt+yPMBxJMGc+pJ6zRwTkxrT+wKMGT8g5hqBUB
/4j75+8wpAhTjBVysgkMKQLOWNhJof6qnArcxUA1Z7/sT38p5F7JDFY8A6E8
1b2bZ6VQa6A/dHjNQMH24+K4fClSP9/tFx7KBHtD1Wi+VooQwVjj3V4mVveZ
9isHpTiW8n5LM52FboRFLbyUoqdoflLhzILq5e9ofWwZUrhh7kQgC4p8pU+K
mwyjLBPZeAQLN5X3rm2dlyEnjvlxfCgLVjHrlhPtMvj+Yq3mIGch2r63p49m
hF/LU3Ln/Fh48F52abWLERyr4tf9wlj4qaHy8HqqETC2fVgvhQVu5hJd6zcj
jOcknVhpYsFRM81s5bURIuaVNziabGTdb3S4wCPRPikYUEay4au7Y2TdmsTD
5Nve+nNseJdDtd+JRPrzsdr8YA44FfU1modIGJwKCvZ/wcHAnRnFEzcSmR/o
5zj9wIVV6/ezcCbRZFEwoLbGhd7q08UsRxJqPRYHFuWGePSia/SlK4lX0+TK
tx2GYJppZrYcJ2HZnJ1uoMnD7/UxhrxoElodA2ZMEx56InSLy/JIzNI2hwkX
HupHfjzk1E1CvtPWJymAhy1+tNB7F4Urf2x2qibw4D5kc3IVFNxmWkbYhTxs
7qaeucZTIBPzk3uaeOiy0zWPqqNQmOkce2yOhw8r2BHdsxRmLnOfmerxkbGQ
+lezqjEql+srlA58/NzsX2RCN8Zc5JKNZwIfDW4aerWEMb5WLO2desSH5UW9
oFYNYxRFT/pUbvARYnhj4vRLCiX+vVc3LARgdK5V2Q5RaNzRHnE8UoCyNBdn
hxoKBrmNrsu3Bbjr2eY2doWCQjzYdHJCgNgtyb6aBAqXwssDbbWEGGAfvR56
mkKLE9dL+qkQU3pDiVtxFBqmL9xzDRPilm/4uXPpFEzKtF2nrgtR8vzmtHkV
hQyPvHplrxDF4tiPct/23/1d9L+N8Q8k3K/y
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {6.656784489160851, 13.343215510839148}, 
          ImageScaled[{1, 0}]], 
         CircleBox[{9.991692493946733, 9.991692493946733}, 
          4.008316114996395, {0.0020725690695229115`, 1.5687237577253734`}], 
         PolygonBox[{{13.250264068711928`, 12.401735931288073`}, {
          12.684578643762691`, 13.533106781186547`}, {12.118893218813454`, 
          12.96742135623731}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {13.317215510839148, 13.317215510839148}, 
          ImageScaled[{0, 0}]], 
         {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}], 
          PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox[
             RowBox[{"T1", " ", "P1", " ", "N1"}],
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\1c1d212c2d.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\1c1d212c2d.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["e",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["e",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{696.6666666666658, 696.6666666666666},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.831633547060773*^9, 3.8339168593989964`*^9, 
  3.8418315512707*^9, 3.842000747858603*^9, 3.842004270628408*^9, 
  3.842005302444027*^9, 
  3.842011954135086*^9},ExpressionUUID->"eccdd0f5-792f-4cc2-853c-\
769862c10a47"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"FeynArtsGraphics", "(", 
    RowBox[{
     RowBox[{"{", "\<\"e\"\>", "}"}], "\[Rule]", 
     RowBox[{"{", "\<\"e\"\>", "}"}]}], ")"}], "\[InvisibleApplication]", 
   RowBox[{"(", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         FormBox[
          InterpretationBox[
           
           RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N1\"\>", 
            "\[InvisibleSpace]", "\<\"]\"\>"}],
           SequenceForm["[", "T1 P1 N1", "]"],
           Editable->False],
          TraditionalForm], "Null", "Null"},
        {"Null", "Null", "Null"},
        {"Null", "Null", "Null"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8316335471191864`*^9, 3.8339168594073925`*^9, 
  3.841831551274229*^9, 3.842000747915688*^9, 3.8420042706314173`*^9, 
  3.842005302500799*^9, 
  3.8420119541670885`*^9},ExpressionUUID->"7f5db168-2fca-4411-9ffc-\
c44225d8c102"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Amplitude (no regularized)", "Section",
 CellChangeTimes->{
  3.8296617308171396`*^9},ExpressionUUID->"335b5f06-77bc-4a0f-9b00-\
921f1b2b0c79"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Amplitude", " ", "is", " ", "generated", " ", "in", " ", "FeynArts", " ", 
    "with", " ", "function", " ", 
    RowBox[{
     RowBox[{"CreateFeynAmp", "[", "]"}], ".", " ", "This"}], " ", 
    "expression", " ", "is", " ", "later", " ", "conver", " ", "to", " ", 
    "FeynCalc", " ", "using", " ", 
    RowBox[{
     RowBox[{"FCFAConvert", "[", "]"}], ".", " ", "Feynman"}], " ", "gauge", 
    " ", 
    SubscriptBox["\[Xi]", 
     FormBox["g",
      TraditionalForm]]}], "=", 
   RowBox[{"1", " ", "is", " ", "chose", " ", "later"}]}], "*)"}]], "Input",Ex\
pressionUUID->"e602782d-d7dd-4d4f-bc54-a6080c728557"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FAamplElectronB", "=", 
   RowBox[{"CreateFeynAmp", "[", 
    RowBox[{"theoverlappedcontribution", ",", 
     RowBox[{"Truncated", "\[Rule]", "True"}], ",", 
     RowBox[{"GaugeRules", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"PreFactor", "\[Rule]", "1"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8296617516965747`*^9, 3.829661761423785*^9}, 
   3.83163359346677*^9},ExpressionUUID->"903c16af-3209-4811-9ab7-\
dab3e582241c"],

Cell[CellGroupData[{

Cell["In 4-dim (for IREG integrals)", "Subsection",
 CellChangeTimes->{
  3.829661791659417*^9},ExpressionUUID->"7630bd6f-531a-4b0a-8637-\
95ff32849ad5"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Notice", " ", "that", " ", "we", " ", "set", " ", "in", " ", 
    "FCFAConvert", " ", "options", " ", "that", " ", "ChangeDimensions"}], 
   "\[Rule]", "4"}], "*)"}]], "Input",
 CellChangeTimes->{
  3.831633613173277*^9},ExpressionUUID->"c37bb423-727a-49c7-b686-\
887d28ad1ca9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"convertamplElectronB2", "=", 
   RowBox[{"FCFAConvert", "[", 
    RowBox[{"FAamplElectronB", ",", 
     RowBox[{"IncomingMomenta", "\[Rule]", 
      RowBox[{"{", "p", "}"}]}], ",", 
     RowBox[{"OutgoingMomenta", "\[Rule]", 
      RowBox[{"{", "p", "}"}]}], ",", 
     RowBox[{"LoopMomenta", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"l", ",", "k"}], "}"}]}], ",", 
     RowBox[{"LorentzIndexNames", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], 
       "}"}]}], ",", 
     RowBox[{"UndoChiralSplittings", "\[Rule]", "True"}], ",", 
     RowBox[{"ChangeDimension", "\[Rule]", "4"}], ",", 
     RowBox[{"List", "\[Rule]", "False"}], ",", 
     RowBox[{"SMP", "\[Rule]", "True"}], ",", 
     RowBox[{"DropSumOver", "\[Rule]", "True"}], ",", 
     RowBox[{"Contract", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.8296618118517704`*^9, {3.8296618560935087`*^9, 3.8296618649105377`*^9}, 
   3.841831560025943*^9},ExpressionUUID->"607242fc-c072-4d80-806b-\
6dccff79b378"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "work", " ", "now", " ", "in", " ", "Feynman", " ", "gauge"}], 
  "*)"}]], "Input",ExpressionUUID->"193c6c91-9f64-4a25-a75e-3482d4b77251"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynmangaugeamplElectronB2", "=", 
  RowBox[{"convertamplElectronB2", "/.", " ", 
   RowBox[{
    RowBox[{"GaugeXi", "[", 
     RowBox[{"V", "[", "1", "]"}], "]"}], " ", "->", " ", "1"}]}]}]], "Input",
 CellChangeTimes->{{3.829661952529189*^9, 3.82966196063943*^9}, {
   3.829661999145668*^9, 3.8296619995400143`*^9}, 
   3.841831581365622*^9},ExpressionUUID->"13061075-8e51-487a-95fc-\
b21f5fdd9abe"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
        FormBox[
         FormBox[
          RowBox[{
           OverscriptBox[
            FormBox["p",
             TraditionalForm], "_"], "-", 
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"]}],
          TraditionalForm],
         TraditionalForm], ")"}], "+", 
       SubscriptBox["m", "e"]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
        FormBox[
         FormBox[
          RowBox[{
           RowBox[{"-", 
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"]}], "-", 
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"]}],
          TraditionalForm],
         TraditionalForm], ")"}], "+", 
       SubscriptBox["m", "e"]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["m", "e"], "-", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]]}]}], 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`l], 
        FeynCalc`Momentum[$CellContext`l]], "-", FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "+", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k + $CellContext`l], 
        FeynCalc`Momentum[$CellContext`k + $CellContext`l]], "-", 
       FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
        FeynCalc`Momentum[$CellContext`k - $CellContext`p]], "-", 
       FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "+", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l + $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l + $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.831633642775158*^9, 3.833916860587759*^9, 
  3.841831583323331*^9, 3.842000748587748*^9, 3.84200428134901*^9, 
  3.842005303238052*^9, 
  3.8420119543020983`*^9},ExpressionUUID->"82123c3a-ef84-4967-8dfa-\
e712ba4adf49"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Working in the massless regime", "Section",
 CellChangeTimes->{{3.829825289019966*^9, 
  3.82982529340946*^9}},ExpressionUUID->"b2cc5f4b-8a24-4397-8722-\
66c3f145075c"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "To", " ", "compute", " ", "the", " ", "counterterm", " ", "of", " ", 
    "the", " ", "electron", " ", "field"}], ",", " ", 
   RowBox[{
   "we", " ", "set", " ", "the", " ", "mass", " ", "zero", " ", "in", " ", 
    "the", " ", "amplitude", " ", "before", " ", "doing", " ", "the", " ", 
    "simplification", " ", "of", " ", "Dirac", " ", "matrices"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.829825297341672*^9, 
  3.829825319735389*^9}},ExpressionUUID->"76519527-1ee7-445b-8805-\
ea8fc2a167d3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MasslessOverlapped", "=", 
  RowBox[{"FeynmangaugeamplElectronB2", "//.", 
   RowBox[{
    RowBox[{"SMP", "[", "\"\<m_e\>\"", "]"}], "\[Rule]", "0"}]}]}]], "Input",
 CellChangeTimes->{{3.829825369404157*^9, 3.829825406015504*^9}, {
  3.8420042919022903`*^9, 
  3.8420043070375338`*^9}},ExpressionUUID->"4d5c16f1-fc6c-41e5-9df6-\
201b069d2406"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          RowBox[{"-", 
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"]}], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]]}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "+", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k + $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k + $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "+", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l + $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l + $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.831633978101082*^9, 3.833916862500451*^9, 
  3.8418317385994787`*^9, 3.8420007490321093`*^9, 3.842004310836483*^9, 
  3.842005303680833*^9, 
  3.8420119543791065`*^9},ExpressionUUID->"b89032ef-6beb-47ac-8dad-\
724b01ce6c4b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=", "FeynCalcForm"}], ";"}]], "Input",ExpressionUUID->\
"dbde8cff-ee05-4658-87c6-9b6c90792f2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"$FrontEndSession", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Options", "[", 
         RowBox[{
         "$FrontEndSession", ",", "\"\<CommonDefaultFormatTypes\>\""}], "]"}],
         "/.", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "_"}], ")"}], "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "OutputForm"}], ")"}]}]}], 
       ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ";"}]], "Input",Expressi\
onUUID->"de50f4cd-3144-4d86-bdd5-61a96b5e302f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "MasslessOverlapped", "]"}]], "Input",
 CellChangeTimes->{
  3.842004529246643*^9},ExpressionUUID->"75bac765-f332-4386-a6c5-\
9bbb1cebf837"],

Cell["\<\
I DiracGamma[LorentzIndex[\[Nu]]] . DiracGamma[Momentum[-k + p]] . 
 
      DiracGamma[LorentzIndex[\[Beta]]] . DiracGamma[Momentum[-k - l]] . 
 
      DiracGamma[LorentzIndex[\[Nu]]] . (-DiracGamma[Momentum[l]]) . 
 
      DiracGamma[LorentzIndex[\[Beta]]] 
 
     FeynAmpDenominator[PropagatorDenominator[Momentum[l], 0], 
 
      PropagatorDenominator[Momentum[k], 0], 
 
      PropagatorDenominator[Momentum[k + l], 0], 
 
      PropagatorDenominator[Momentum[k - p], 0], 
 
                                                       4
      PropagatorDenominator[Momentum[l + p], 0]] SMP[e]\
\>", "Print",
 CellChangeTimes->{3.842005303991138*^9, 
  3.8420119545200195`*^9},ExpressionUUID->"0b6a442d-caca-4834-9f7b-\
96b2ba5ac614"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=."}], ";"}]], "Input",ExpressionUUID->"c7fd099d-8ae0-4b41-b759-826cb4f1ec3a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"$FrontEndSession", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Options", "[", 
         RowBox[{
         "$FrontEndSession", ",", "\"\<CommonDefaultFormatTypes\>\""}], "]"}],
         "/.", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "_"}], ")"}], "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "TraditionalForm"}], ")"}]}]}],
        ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ";"}]], "Input",Expressi\
onUUID->"f03667ec-e0e7-4597-8dba-d67ad4dc5a49"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"Let", "'"}], "s", " ", "define", " ", "then", " ", "the", " ", 
    "general", " ", "shift", " ", "l"}], "\[Rule]", 
   RowBox[{
    RowBox[{"-", "l"}], " ", "for", " ", "each", " ", "part"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.842003626152718*^9, 
  3.842003626463619*^9}},ExpressionUUID->"c4f64879-e0c0-4e56-bab0-\
667cccab2ffc"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "This", " ", "is", " ", "to", " ", "have", " ", "same", " ", "denominator", 
   " ", "as", " ", "Dias", " ", "and", " ", "Adriano", " ", "in", " ", "the", 
   " ", "beta", " ", "paper"}], "*)"}]], "Input",
 CellChangeTimes->{{3.842003631317227*^9, 
  3.842003644046773*^9}},ExpressionUUID->"cfbfa582-bbbc-42d3-afe7-\
d1c3b87cb505"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "MasslessOverlapped", "]"}]], "Input",ExpressionUUID->"252811fb-fd6a-4385-b019-ce1acf52d8c0"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          RowBox[{"-", 
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"]}], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]]}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "+", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k + $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k + $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "+", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l + $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l + $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Print",
 CellChangeTimes->{3.842004559558279*^9, 3.842005304529051*^9, 
  3.8420119546680346`*^9},ExpressionUUID->"c9c96a8f-b0c8-4071-a9e4-\
1a0e22e27fbf"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Shift1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", 
       RowBox[{
        RowBox[{"-", "k"}], "-", "l"}], "]"}], "]"}], "->", 
     RowBox[{"(", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", 
        RowBox[{
         RowBox[{"-", "k"}], "+", "l"}], "]"}], "]"}], ")"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Shift2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "l", "]"}], "]"}]}], "->", 
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "l", "]"}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Shift3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", 
      RowBox[{"k", "+", "l"}], "]"}], "->", 
     RowBox[{"Momentum", "[", 
      RowBox[{"k", "-", "l"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Shift4", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", 
      RowBox[{"l", "+", "p"}], "]"}], "->", 
     RowBox[{"Momentum", "[", 
      RowBox[{"l", "-", "p"}], "]"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8411847526335073`*^9, 3.841184810940138*^9}, {
  3.841184846626646*^9, 3.841184864531533*^9}, {3.841185183935088*^9, 
  3.841185200317313*^9}, {3.84183220940215*^9, 3.8418322140902452`*^9}, {
  3.842003665103777*^9, 3.842003680274434*^9}, {3.842003831006308*^9, 
  3.842003835214361*^9}, {3.842004086013856*^9, 3.8420041146701612`*^9}, {
  3.842004408654439*^9, 3.842004412685704*^9}, {3.84200458022283*^9, 
  3.842004616205132*^9}, {3.842004671738576*^9, 3.842004686413765*^9}, {
  3.8420047270699*^9, 3.842004731742014*^9}, {3.842004773390911*^9, 
  3.8420048152137403`*^9}, {3.842004845582768*^9, 
  3.842004914573723*^9}},ExpressionUUID->"1ec8e9ef-96ef-44a9-8876-\
0521cd67cfb1"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Sadly", ",", " ", 
   RowBox[{
    RowBox[{
    "in", " ", "a", " ", "define", " ", "the", " ", "general", " ", "shift", 
     " ", "l"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "l"}], " ", "in", " ", "separated", " ", "parts", " ", 
     "because", " ", "if", " ", "not", " ", "I", " ", "have", " ", 
     "conflicts", " ", "with", " ", "the", " ", "substitution", " ", 
     "after"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.851610684556107*^9, 
  3.851610686077969*^9}},ExpressionUUID->"c6d2aea5-f02d-46bb-9676-\
6796cc2d2a53"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Test", "=", 
   RowBox[{"MasslessOverlapped", "//.", "Shift1"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Test2", "=", 
   RowBox[{"Test", "//.", "Shift2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Test3", "=", 
   RowBox[{"Test2", "//.", "Shift3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Test4", "=", 
  RowBox[{"Test3", "//.", "Shift4"}]}]}], "Input",
 CellChangeTimes->{
  3.8411850730759087`*^9, {3.842003963855043*^9, 3.8420040077105017`*^9}, {
   3.842004319230328*^9, 3.842004335645335*^9}, {3.842004602269733*^9, 
   3.842004620013015*^9}, {3.842004737630292*^9, 3.842004754893551*^9}, 
   3.84200478759791*^9, {3.8420048179339046`*^9, 3.842004829373836*^9}, 
   3.8420048650538588`*^9, {3.84200492649402*^9, 
   3.84200493594985*^9}},ExpressionUUID->"c63defbb-cde8-45d1-90da-\
b587c982d1dd"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]]}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8420048667605886`*^9, 3.8420049370179863`*^9, 
  3.842005304811758*^9, 
  3.842011954721035*^9},ExpressionUUID->"a1689ae2-4f59-46b3-b509-\
81ea7876dfd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronB2Amassless", "=", 
  RowBox[{"DiracSimplify", "[", "Test4", "]"}]}]], "Input",
 CellChangeTimes->{{3.8298254333568277`*^9, 3.829825447199935*^9}, {
  3.8420052548133287`*^9, 
  3.842005256125318*^9}},ExpressionUUID->"057474eb-c261-41ae-b637-\
eea307bd1c33"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
          FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
          FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
          FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
        Editable->False]}]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8316339886758103`*^9, 3.833916862784524*^9, 
  3.8418322215678596`*^9, 3.842000749359934*^9, 3.842005257272887*^9, 
  3.8420053050019207`*^9, 
  3.842011954809444*^9},ExpressionUUID->"6de9104d-0096-4b01-a23b-\
e13af4f1345a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronC2Amassless", "=", 
  RowBox[{
  "DiracSimplify", "[", "AlgebraDiracElectronB2Amassless", "]"}]}]], "Input",
 CellChangeTimes->{{3.833916828772567*^9, 
  3.833916836021831*^9}},ExpressionUUID->"2d15a3cd-bfe1-4a61-bf0d-\
a2d1c11b24eb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
          FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
          FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
          FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
        Editable->False]}]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8339168632048903`*^9, 3.841832226051272*^9, 
  3.842000749533875*^9, 3.8420052659042883`*^9, 3.84200530517771*^9, 
  3.842011954879449*^9},ExpressionUUID->"98f21c61-588a-46c3-90aa-\
3372d342e57a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrals for massless amplitude", "Subsection",
 CellChangeTimes->{{3.8298256702477865`*^9, 
  3.829825674649082*^9}},ExpressionUUID->"94854dbe-5428-430c-b11e-\
e62f751c0c4c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "irrelevantmasslessIREG", ",", "loopsmassless", ",", 
     "THEUNIQUEIREGINTEGRALSmassless"}], "}"}], "=", 
   RowBox[{"FCLoopExtract", "[", 
    RowBox[{"AlgebraDiracElectronC2Amassless", ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "k"}], "}"}], ",", "loopHeadIREGmassless"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"IREGINTEGRALSEBmassless", "=", 
  RowBox[{"THEUNIQUEIREGINTEGRALSmassless", "/.", 
   RowBox[{"loopHeadIREGmassless", "\[Rule]", "Identity"}]}]}]}], "Input",
 CellChangeTimes->{{3.8298256797212152`*^9, 3.829825727851469*^9}, 
   3.833916843064571*^9},ExpressionUUID->"8207220c-298f-4c3b-aab8-\
2325311606d2"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`l] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`k] - 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False]}]],
     TraditionalForm]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.831634004784526*^9, 3.833916863568981*^9, 
  3.841832228308868*^9, 3.842000749744714*^9, 3.84200527406859*^9, 
  3.842005305388493*^9, 
  3.842011954931452*^9},ExpressionUUID->"ff1dac25-cd3c-453a-88c0-\
d7e70237dad4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Replacements", "Section",
 CellChangeTimes->{{3.8418322706556597`*^9, 
  3.841832276060143*^9}},ExpressionUUID->"8a05ec30-ad2e-417e-94e7-\
e7b4358e76ac"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"First", ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "we", " ", "want", " ", "to", " ", "change", " ", "the", " ", "printed", 
      " ", "output", " ", "to", " ", "a", " ", "an", " ", "easy"}], "-", "to",
      "-", 
     RowBox[{"read", " ", 
      RowBox[{"form", ".", " ", "$PrePrint"}]}]}], "=", 
    RowBox[{
    "FeynCalcForm", " ", "forces", " ", "displaying", " ", "everything", " ", 
     "after", " ", "applying", " ", "FeynCalcForm"}]}]}], "*)"}]], "Input",Exp\
ressionUUID->"d2802d67-d03a-451c-bba9-71c2d3f7951f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=", "FeynCalcForm"}], ";"}]], "Input",ExpressionUUID->\
"e1909699-0adc-4050-9a35-0a3e3ce185a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"$FrontEndSession", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Options", "[", 
         RowBox[{
         "$FrontEndSession", ",", "\"\<CommonDefaultFormatTypes\>\""}], "]"}],
         "/.", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "_"}], ")"}], "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "OutputForm"}], ")"}]}]}], 
       ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ";"}]], "Input",Expressi\
onUUID->"d1d00aeb-2349-4372-b960-ca0a376cb603"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "AlgebraDiracElectronC2Amassless", "]"}]], "Input",
 CellChangeTimes->{3.834690649580695*^9, 3.8412677721202636`*^9, 
  3.841832528891673*^9},ExpressionUUID->"9678f42f-466a-449e-b289-\
58d5513638c0"],

Cell["\<\
(-8 I) DiracGamma[Momentum[k]] FeynAmpDenominator[PropagatorDenominator[
 
        Momentum[l], 0], PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[k - l], 0], 
 
       PropagatorDenominator[Momentum[k - p], 0], 
 
       PropagatorDenominator[Momentum[l - p], 0]] Pair[Momentum[k], \
Momentum[l]] 
 
            4
      SMP[e]  + (8 I) DiracGamma[Momentum[l]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[k - l], 0], 
 
       PropagatorDenominator[Momentum[k - p], 0], 
 
       PropagatorDenominator[Momentum[l - p], 0]] Pair[Momentum[k], \
Momentum[l]] 
 
            4
      SMP[e]  + (8 I) DiracGamma[Momentum[k]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[k - l], 0], 
 
       PropagatorDenominator[Momentum[k - p], 0], 
 
       PropagatorDenominator[Momentum[l - p], 0]] Pair[Momentum[l], \
Momentum[p]] 
 
            4
      SMP[e]  - (8 I) DiracGamma[Momentum[l]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[k - l], 0], 
 
       PropagatorDenominator[Momentum[k - p], 0], 
 
       PropagatorDenominator[Momentum[l - p], 0]] Pair[Momentum[l], \
Momentum[p]] 
 
            4
      SMP[e]\
\>", "Print",
 CellChangeTimes->{3.8420053059439993`*^9, 
  3.842011955077463*^9},ExpressionUUID->"f637579b-ed6d-4340-bbee-\
450b3dc82ac9"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "In", " ", "order", " ", "to", " ", "change", " ", "to", " ", "the", " ", 
    "normal", " ", 
    RowBox[{"(", "internal", ")"}], " ", "Mathematica", " ", "OutputForm"}], 
   ",", " ", 
   RowBox[{"we", " ", 
    RowBox[{"do", ":", 
     RowBox[{"(", 
      RowBox[{"$PrePrint", "=."}], ")"}]}]}]}], "*)"}]], "Input",ExpressionUUI\
D->"ef6e4d64-481b-4e47-ad2f-a93f8667a667"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=."}], ";"}]], "Input",ExpressionUUID->"f3c261f9-56c5-4d85-8fbd-96c63967b83a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"$FrontEndSession", ",", 
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Options", "[", 
         RowBox[{
         "$FrontEndSession", ",", "\"\<CommonDefaultFormatTypes\>\""}], "]"}],
         "/.", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "_"}], ")"}], "\[Rule]", 
         RowBox[{"(", 
          RowBox[{"\"\<Output\>\"", "\[Rule]", "TraditionalForm"}], ")"}]}]}],
        ")"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ";"}]], "Input",Expressi\
onUUID->"da8f58ca-513f-4528-b689-4fceba429d27"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "AlgebraDiracElectronC2Amassless", "]"}]], "Input",Expr\
essionUUID->"cf3bf982-fa8f-4134-8d94-8934619d8952"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
          FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
          FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
        Editable->False], ".", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
          FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
        Editable->False]}]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Print",
 CellChangeTimes->{3.841832575507783*^9, 3.842000750779978*^9, 
  3.842005306475665*^9, 
  3.842011955218313*^9},ExpressionUUID->"bd2ae6cc-49d0-4462-a67a-\
67c3b6e75d1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\[OpenCurlyDoubleQuote]Integral\[CloseCurlyDoubleQuote] list for the 2-loop \
overlapped diagram (massless case)\
\>", "Subsubsection",
 CellChangeTimes->{{3.8418326578570232`*^9, 
  3.841832681929534*^9}},ExpressionUUID->"ab8fb736-7c53-4aa0-aed2-\
f723fd0a1aa2"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "All", " ", "the", " ", "next", " ", "terms", " ", "corresponds", " ", 
    "to", " ", "the", " ", "integrals", " ", "to", " ", "be", " ", "resolved",
     " ", "in", " ", "each", " ", "of", " ", "the", " ", "previous", " ", 
    "un"}], "-", 
   RowBox[{"regularized", " ", "amplitudes"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.835699459479349*^9, 
  3.835699504382785*^9}},ExpressionUUID->"324a75b6-ef48-48a2-8bbc-\
a6b1db64d626"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"The", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    SuperscriptBox[
     SubscriptBox["\[Integral]", 
      RowBox[{"-", "\[Infinity]"}]], 
     RowBox[{"+", "\[Infinity]"}]], 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["d", "4"], "k"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "\[Pi]"}], ")"}], "4"]], 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["\[Integral]", 
        RowBox[{"-", "\[Infinity]"}]], 
       RowBox[{"+", "\[Infinity]"}]], 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["d", "4"], "l"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "\[Pi]"}], ")"}], "4"]], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", " ", "is", " ", "implicit"}]}]}]}]}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.835699507568904*^9, 3.8356995735622516`*^9}, {
  3.835699637777347*^9, 3.835699700534376*^9}, {3.8356997436238923`*^9, 
  3.835699846212849*^9}},ExpressionUUID->"9c53ed73-12ca-49bc-b2ee-\
048bb02fd780"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermC", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "k", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "l"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "-", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8420134983704495`*^9, 
  3.8420134996587934`*^9}},ExpressionUUID->"df6d5b13-6593-4c62-887d-\
aadfcfe157fb"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.841832746659746*^9, 3.842000751267861*^9, 
  3.8420053068993*^9, 3.842011955275318*^9, 
  3.8420135007841034`*^9},ExpressionUUID->"8e4f6e4f-3e2a-42de-adc4-\
fba9b8f2529a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermE", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "l"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "-", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8420134933379507`*^9, 
  3.842013494648569*^9}},ExpressionUUID->"7d26b874-efd4-46d8-8f94-\
d331907fbeb1"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["l",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8418328223620358`*^9, 3.842000751382719*^9, 
  3.842005307019479*^9, 3.842011955294319*^9, 
  3.84201349551693*^9},ExpressionUUID->"354e7fbf-aa41-4cab-9086-f23eff79eb8b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermG", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "l"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "-", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8420134881771617`*^9, 
  3.842013489586655*^9}},ExpressionUUID->"4a124bcd-bba3-4303-8340-\
06b56970eeb0"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["l",
        TraditionalForm], "_"],
      TraditionalForm]}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.841832769782251*^9, 3.842000751503098*^9, 
  3.842005307144517*^9, 3.842011955318017*^9, 
  3.8420134908548875`*^9},ExpressionUUID->"e8a89ae5-ea35-49ea-bc7d-\
9dbc3a15f2e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermG2", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "k", "]"}], "]"}], " ", 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "l"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"k", "-", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "-", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.842013470741746*^9, 
  3.842013472537834*^9}},ExpressionUUID->"203e3388-5904-4585-bd8b-\
423ee46ae77f"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8418327932431183`*^9, 3.842000751619685*^9, 
  3.842005307263733*^9, 3.8420119553380175`*^9, 
  3.842013479521903*^9},ExpressionUUID->"6bee3cf4-9a91-4790-910a-\
74530a1d2032"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integral results (massless case)", "Subsection",
 CellChangeTimes->{
  3.842006957936483*^9},ExpressionUUID->"0b5eba88-c758-4a7d-882e-\
4f3fd2a43722"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"What", " ", "I", " ", "computed", " ", "by", " ", "hand"}], 
  "*)"}]], "Input",ExpressionUUID->"b9ad2c97-de85-407e-9963-87e7cf3e14ac"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CRevisedReplace", "=", 
  RowBox[{"b", "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "/", "4"}], ")"}], 
   "Ilog\[Lambda]2"}]}]], "Input",
 CellChangeTimes->{{3.8346912198621893`*^9, 3.8346912216676664`*^9}, {
   3.834691326683504*^9, 3.834691357163343*^9}, {3.834698653134968*^9, 
   3.8346986625439615`*^9}, {3.8346987378642683`*^9, 
   3.8346988610759926`*^9}, {3.8346990328365307`*^9, 3.834699055463611*^9}, {
   3.834699093130989*^9, 3.834699158356166*^9}, {3.834699834541683*^9, 
   3.8346998466008577`*^9}, {3.8346998767130127`*^9, 3.83469988219363*^9}, {
   3.8346999257640676`*^9, 3.834699954430481*^9}, {3.834700082445238*^9, 
   3.834700180789064*^9}, {3.8347002589590673`*^9, 3.834700337817088*^9}, 
   3.834787918696347*^9, {3.8347879566101613`*^9, 3.834788549026678*^9}, {
   3.8347885872609186`*^9, 3.8347886329215994`*^9}, 3.8394219205012913`*^9, {
   3.8412678280312185`*^9, 3.841267830261624*^9}, {3.841267939325573*^9, 
   3.8412679421446157`*^9}, {3.8412680711108956`*^9, 3.841268201378989*^9}, {
   3.84200748292519*^9, 3.8420074857249804`*^9}, 3.842007551753138*^9, {
   3.8420138014681635`*^9, 
   3.8420138026109943`*^9}},ExpressionUUID->"74a6521f-ac24-4ce7-96ff-\
ad4f034d5050"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", "4"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.842007564212184*^9, 3.8420119554120245`*^9, 
  3.8420138032970715`*^9},ExpressionUUID->"5f20ddfa-e0fd-4342-9a36-\
f410e04a815d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ERevisedReplace", "=", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog2\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"9", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], "b", "*", 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.83579215413118*^9, 3.8357921590841303`*^9}, {
  3.842007586413245*^9, 
  3.842007691518252*^9}},ExpressionUUID->"999e23dc-eeed-4203-834b-\
39758601e3e0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     FractionBox["1", "4"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}]}]}], "-", 
   RowBox[{
    FractionBox["1", "4"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{"log", "(", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["p", "2"], 
       SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FractionBox["9", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8420076943635187`*^9, 
  3.842011955442681*^9},ExpressionUUID->"acff7637-d80f-4818-ba13-\
bb7c254ea3d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GRevisedReplace", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"+", 
     FractionBox[
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"]}], 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], 
    "Ilog2\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"19", "*", "b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "16"], "*", 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], "*", 
    "Ilog\[Lambda]2", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8420077285887613`*^9, 3.842007746175552*^9}, {
  3.8420077776615953`*^9, 3.8420077781095057`*^9}, {3.842007841613509*^9, 
  3.8420079312292223`*^9}},ExpressionUUID->"2e619316-8063-489e-b2e7-\
5b32933732c2"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     FractionBox["1", "8"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}]}]}], "-", 
   RowBox[{
    FractionBox["1", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{"log", "(", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["p", "2"], 
       SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FractionBox["19", "16"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.842007932265601*^9, 
  3.842011955476218*^9},ExpressionUUID->"3ad0ba21-0b18-4557-b809-\
bc52540d7bcf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G2RevisedReplace", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"+", 
     FractionBox[
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"]}], 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], 
    "Ilog2\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"19", "*", "b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "16"], "*", 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], "*", 
    "Ilog\[Lambda]2", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}]}]}]], "Input",
 CellChangeTimes->{
  3.8420079599013033`*^9},ExpressionUUID->"c1212fbc-aa7c-4c43-9ca4-\
a77c1341eabc"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     FractionBox["1", "8"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}]}]}], "-", 
   RowBox[{
    FractionBox["1", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{"log", "(", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox["p", "2"], 
       SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FractionBox["19", "16"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "+", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.842007961417577*^9, 
  3.842011955508222*^9},ExpressionUUID->"ac1974f2-2009-4e2f-b9fe-\
89fc3c7dff60"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Substitution rule for Mathematica", "Subsection",
 CellChangeTimes->{
  3.842007502449061*^9},ExpressionUUID->"a4889220-35c3-4f06-9a08-\
e5e74302a717"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SubRule", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"TermG2", "\[Rule]", "G2RevisedReplace"}], ",", 
    RowBox[{"TermG", "\[Rule]", "GRevisedReplace"}], ",", 
    RowBox[{"TermC", "\[Rule]", "CRevisedReplace"}], ",", 
    RowBox[{"TermE", "\[Rule]", "ERevisedReplace"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8420131999848194`*^9, 3.842013261845848*^9}, {
  3.8420133559021225`*^9, 
  3.8420134279256887`*^9}},ExpressionUUID->"1d55ed77-e6fa-4796-b35b-\
ac123677e87a"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}], 
       RowBox[{
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
         Editable->False]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", "8"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}]}]}], "-", 
      RowBox[{
       FractionBox["1", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{"log", "(", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["p", "2"], 
          SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["19", "16"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["1", "8"], " ", 
       SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}]}], ",", 
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}]}], 
       RowBox[{
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
         Editable->False]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", "8"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}]}]}], "-", 
      RowBox[{
       FractionBox["1", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{"log", "(", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["p", "2"], 
          SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["19", "16"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["1", "8"], " ", 
       SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}]}], ",", 
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           OverscriptBox[
            FormBox["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}], 
       RowBox[{
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
         Editable->False]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}]}], ",", 
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           OverscriptBox[
            FormBox["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}], 
       RowBox[{
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`l], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`l]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`k - $CellContext`p]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
           FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
         Editable->False]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", "4"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}]}]}], "-", 
      RowBox[{
       FractionBox["1", "4"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{"log", "(", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["p", "2"], 
          SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["9", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420132656737657`*^9, 3.842013347154295*^9, {3.8420133840624757`*^9, 
   3.8420134285722246`*^9}, 3.84201350506345*^9, 
   3.8420138072530313`*^9},ExpressionUUID->"023ef291-df3d-461c-849d-\
2e6144264686"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Regulated Amplitud with IREG (massless case)", "Subsection",
 CellChangeTimes->{
  3.842013287018012*^9},ExpressionUUID->"2c616649-430c-402e-a5d8-\
26656a88d0d1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegulatedAmplitude", "=", 
  RowBox[{"AlgebraDiracElectronC2Amassless", "//.", "SubRule"}]}]], "Input",
 CellChangeTimes->{3.842013304593968*^9, 
  3.8420133420609026`*^9},ExpressionUUID->"f2c24f06-956a-4fb9-9785-\
84cc9481a4df"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}], "-", 
   RowBox[{"8", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", "4"], " ", "b", " ", "Ilog2\[Lambda]2", " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}]}]}], "-", 
      RowBox[{
       FractionBox["1", "4"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{"log", "(", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["p", "2"], 
          SuperscriptBox["\[Lambda]", "2"]]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["9", "8"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], "+", 
      RowBox[{
       FractionBox["1", "4"], " ", 
       SuperscriptBox["Ilog\[Lambda]2", "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420133064397955`*^9, {3.8420133451354713`*^9, 3.842013348561224*^9}, {
   3.8420133893085117`*^9, 3.842013438246385*^9}, 3.842013506963332*^9, 
   3.8420138092110004`*^9},ExpressionUUID->"2626eab0-932c-4b11-b79c-\
0fa4017fce92"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegulatedEOverlappedAmplitudeIREG", "=", 
  RowBox[{"Simplify", "[", "RegulatedAmplitude", "]"}]}]], "Input",
 CellChangeTimes->{{3.8420138605146*^9, 
  3.8420138670422306`*^9}},ExpressionUUID->"e7d3bc26-6cc7-4b49-84a1-\
d3dd9b705692"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "b", " ", "Ilog2\[Lambda]2"}], "+", 
     RowBox[{"2", " ", "b", " ", "Ilog\[Lambda]2", " ", 
      RowBox[{"log", "(", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["p", "2"], 
         SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
     RowBox[{"7", " ", "b", " ", "Ilog\[Lambda]2"}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["Ilog\[Lambda]2", "2"]}]}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.84201386803485*^9},ExpressionUUID->"22a7cb8d-742c-4bf7-bacc-5ed9434dc2f2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["All counter-term part", "Subsection",
 CellChangeTimes->{
  3.842013890221198*^9},ExpressionUUID->"ed27b19f-6e13-4ff1-b080-\
6a6ed13efb7b"],

Cell[CellGroupData[{

Cell["Topology and diagrams", "Subsubsection",
 CellChangeTimes->{{3.8420139001143794`*^9, 
  3.8420139026630616`*^9}},ExpressionUUID->"09a043d9-ac23-476c-8536-\
46ae4216b204"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Topology", " ", "creation"}], "*)"}]], "Input",ExpressionUUID->\
"3eb0dec0-dded-4df0-8476-1127f6223030"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Topology1LoopFermionicSelfEnergyCorrection", "=", 
   RowBox[{"CreateCTTopologies", "[", 
    RowBox[{"2", ",", 
     RowBox[{"1", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", "Topology1LoopFermionicSelfEnergyCorrection", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{
  3.8420141087341847`*^9},ExpressionUUID->"57a54960-7c40-4485-bd85-\
1d5846dba8da"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         {PointSize[0.04], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 9.5}, {10.5, 10.5}}], 
           LineBox[{{9.5, 10.5}, {10.5, 9.5}}]}, CircleBox[{10., 10.}, 1.05]},
          InsetBox[
          TagBox[
           StyleBox[
            TagBox["T1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\0.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\0.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 15.000000000002988`}, {10., 10.000000000005896`}}], 
         {PointSize[0.04], PointBox[{10., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 14.5}, {10.5, 15.5}}], 
           LineBox[{{9.5, 15.5}, {10.5, 14.5}}]}, 
          CircleBox[{10., 15.}, 1.05]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T2",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\dc.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\dc.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{2.213340621892712*^-12, 10.}, {6.667000000002227, 10.}}], 
         LineBox[{{19.999999999997783`, 10.}, {13.33299999999777, 10.}}], 
         LineBox[{{13.332999999998888`, 9.999999999996362}, {
          6.666999999996673, 9.999999999996362}}], 
         {PointSize[0.04], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.833, 9.5}, {13.833, 10.5}}], 
           LineBox[{{12.833, 10.5}, {13.833, 9.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.167, 9.5}, {7.167, 10.5}}], 
           LineBox[{{6.167, 10.5}, {7.167, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T3",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"a1\\\\b2\\\\21.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "a1\\b2\\21.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 15.000000000002988`}, {10., 10.000000000005896`}}], 
         {PointSize[0.04], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 14.5}, {10.5, 15.5}}], 
           LineBox[{{9.5, 15.5}, {10.5, 14.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 9.5}, {10.5, 10.5}}], 
           LineBox[{{9.5, 10.5}, {10.5, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T4",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"a1\\\\b1\\\\21.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "a1\\b1\\21.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 18.000000000001556`}, {10., 13.999999999998442`}}], 
         LineBox[{{10., 14.000000000001556`}, {10., 9.999999999998444}}], 
         {PointSize[0.04], PointBox[{10., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 17.5}, {10.5, 18.5}}], 
           LineBox[{{9.5, 18.5}, {10.5, 17.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 13.5}, {10.5, 14.5}}], 
           LineBox[{{9.5, 14.5}, {10.5, 13.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T5",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\122c.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\122c.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{2.213340621892712*^-12, 10.}, {6.667000000002227, 10.}}], 
         LineBox[{{19.999999999997783`, 10.}, {13.33299999999777, 10.}}], 
         LineBox[{{6.667000000001281, 13.000000000002458`}, {
          6.667000000001281, 10.000000000006423`}}], 
         LineBox[{{13.332999999998888`, 9.999999999996362}, {
          6.666999999996673, 9.999999999996362}}], 
         {PointSize[0.04], PointBox[{6.667, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.167, 12.5}, {7.167, 13.5}}], 
           LineBox[{{6.167, 13.5}, {7.167, 12.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.833, 9.5}, {13.833, 10.5}}], 
           LineBox[{{12.833, 10.5}, {13.833, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T6",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\b1\\\\2c1c.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\b1\\2c1c.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{2.213340621892712*^-12, 10.}, {6.667000000002227, 10.}}], 
         LineBox[{{19.999999999997783`, 10.}, {13.33299999999777, 10.}}], 
         LineBox[{{13.33299999999872, 13.000000000002458`}, {
          13.33299999999872, 10.000000000006423`}}], 
         LineBox[{{6.667000000001114, 10.000000000003638`}, {
          13.333000000003329`, 10.000000000003638`}}], 
         {PointSize[0.04], PointBox[{13.333, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.833, 12.5}, {13.833, 13.5}}], 
           LineBox[{{12.833, 13.5}, {13.833, 12.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.167, 9.5}, {7.167, 10.5}}], 
           LineBox[{{6.167, 10.5}, {7.167, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T7",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        RowBox[{"HFlip", "(", "\"ac\\\\b1\\\\2c1c.m\"", ")"}]],
       Annotation[#, 
        FeynArts`HFlip["ac\\b1\\2c1c.m"], "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 14.000000000001556`}, {10., 9.999999999998444}}], 
         LineBox[{{10., 6.}, {10., 10.}}], 
         {PointSize[0.04], PointBox[{10., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 5.5}, {10.5, 6.5}}], 
           LineBox[{{9.5, 6.5}, {10.5, 5.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 13.5}, {10.5, 14.5}}], 
           LineBox[{{9.5, 14.5}, {10.5, 13.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T8",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\1c2c.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\1c2c.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 17.00000000000106}, {10., 13.499999999998941`}}], 
         LineBox[{{12.999999999998018`, 13.5}, {9.999999999997543, 13.5}}], 
         LineBox[{{10., 10.}, {10., 13.5}}], 
         {PointSize[0.04], PointBox[{10., 10.}], PointBox[{10., 13.5}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.5, 13.}, {13.5, 14.}}], 
           LineBox[{{12.5, 14.}, {13.5, 13.}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 16.5}, {10.5, 17.5}}], 
           LineBox[{{9.5, 17.5}, {10.5, 16.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T9",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\1d2dcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\1d2dcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.8420141095653896`*^9},ExpressionUUID->"77108171-258c-4ca6-9eea-\
187c8ccdb192"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{2.213340621892712*^-12, 10.}, {6.667000000002227, 10.}}], 
         LineBox[{{19.999999999997783`, 10.}, {13.33299999999777, 10.}}], 
         LineBox[{{6.667000000001281, 13.000000000002458`}, {
          6.667000000001281, 10.000000000006423`}}], 
         LineBox[{{13.33299999999872, 13.000000000002458`}, {
          13.33299999999872, 10.000000000006423`}}], 
         LineBox[{{6.667000000001114, 10.000000000003638`}, {
          13.333000000003329`, 10.000000000003638`}}], 
         {PointSize[0.04], PointBox[{6.667, 10.}], PointBox[{13.333, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.833, 12.5}, {13.833, 13.5}}], 
           LineBox[{{12.833, 13.5}, {13.833, 12.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.167, 12.5}, {7.167, 13.5}}], 
           LineBox[{{6.167, 13.5}, {7.167, 12.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T10",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\1c2dcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\1c2dcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{2.213340621892712*^-12, 10.}, {6.667000000002227, 10.}}], 
         LineBox[{{19.999999999997783`, 10.}, {13.33299999999777, 10.}}], 
         LineBox[{{13.33299999999872, 13.000000000002458`}, {
          13.33299999999872, 10.000000000006423`}}], 
         LineBox[{{6.667000000001281, 13.000000000002458`}, {
          6.667000000001281, 10.000000000006423`}}], 
         LineBox[{{6.667000000001114, 10.000000000003638`}, {
          13.333000000003329`, 10.000000000003638`}}], 
         {PointSize[0.04], PointBox[{6.667, 10.}], PointBox[{13.333, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.167, 12.5}, {7.167, 13.5}}], 
           LineBox[{{6.167, 13.5}, {7.167, 12.5}}]}, 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.833, 12.5}, {13.833, 13.5}}], 
           LineBox[{{12.833, 13.5}, {13.833, 12.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T11",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\1d2ccd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\1d2ccd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{9.889185614849188, 9.889185614849188}, 
          3.890764009125484, {3.1131074069185303`, 4.7408742270559525`}], 
         CircleBox[{10.110814385150812, 9.889185614849188}, 
          3.890764009125484, {-1.5992815734661594`, 0.028485246671263065`}], 
         CircleBox[{10., 10.}, 4., {0., 3.141592653589793}], 
         {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 5.5}, {10.5, 6.5}}], 
           LineBox[{{9.5, 6.5}, {10.5, 5.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T12",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\ecedcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\ecedcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         LineBox[{{10., 18.000000000001556`}, {10., 13.999999999998442`}}], 
         CircleBox[{10., 10.}, 4., {-3.141592653589793, 0.}], 
         CircleBox[{10.057054187192119, 9.942945812807881}, 
          4.05745534271041, {1.5848583589651217`, 3.1275306214195675`}], 
         CircleBox[{9.964012224938875, 9.964012224938875}, 
          4.0361482183384565, {0.008916484226766164, 1.5618798425681304`}], 
         {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}], 
          PointBox[{10., 14.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 17.5}, {10.5, 18.5}}], 
           LineBox[{{9.5, 18.5}, {10.5, 17.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T13",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\efcdcfdf.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\efcdcfdf.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         CircleBox[{10., 12.75}, 2.75, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 9.5}, {10.5, 10.5}}], 
           LineBox[{{9.5, 10.5}, {10.5, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T14",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\cc.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\cc.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 7.999999999996362}, {
          9.999999999996676, 7.999999999996362}}], 
         LineBox[{{20.00000000000112, 8.000000000003638}, {
          10.000000000003325`, 8.000000000003638}}], 
         LineBox[{{10., 8.}, {10., 12.}}], 
         CircleBox[{10., 14.25}, 2.25, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 8.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 11.5}, {10.5, 12.5}}], 
           LineBox[{{9.5, 12.5}, {10.5, 11.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T15",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\cddd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\cddd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{10., 10.900000000000004}, 
          4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{10., 9.099999999999996}, 4.1000000000000005, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{6., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{13.5, 9.5}, {14.5, 10.5}}], 
           LineBox[{{13.5, 10.5}, {14.5, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T16",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cdcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cdcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         CircleBox[{9.156249999999998, 13.75}, 
          3.8437500000000004, {-1.3494818844471055`, 1.3494818844471055`}], 
         CircleBox[{10.843750000000002, 13.75}, 
          3.8437500000000004, {-4.491074538036899, -1.7921107691426879`}], 
         {PointSize[0.04], PointBox[{10., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 17.}, {10.5, 18.}}], 
           LineBox[{{9.5, 18.}, {10.5, 17.}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T17",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\dcdc.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\dcdc.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.850519737445211*^-12, 10.}, {6.999999999997409, 10.}}], 
         LineBox[{{20.000000000002036`, 10.}, {13.500000000002405`, 10.}}], 
         LineBox[{{13.500000000002036`, 10.}, {7.000000000002406, 10.}}], 
         CircleBox[{7., 12.75}, 2.75, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{7., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{13., 9.5}, {14., 10.5}}], 
           LineBox[{{13., 10.5}, {14., 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T18",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\dccc.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\dccc.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.842014109597391*^9},ExpressionUUID->"2d9c871a-5ed9-4994-9da6-\
1694eb5fd92a"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-2.035704937952687*^-12, 10.}, {6.499999999997595, 10.}}], 
         LineBox[{{20.000000000001847`, 10.}, {13.00000000000259, 10.}}], 
         LineBox[{{6.499999999997965, 10.}, {12.999999999997595`, 10.}}], 
         CircleBox[{13., 12.75}, 2.75, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{13., 10.}], 
          {Thickness[0.015000000000000001`], LineBox[{{6., 9.5}, {7., 10.5}}],
            LineBox[{{6., 10.5}, {7., 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T19",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        RowBox[{"HFlip", "(", "\"ac\\\\bd\\\\dccc.m\"", ")"}]],
       Annotation[#, 
        FeynArts`HFlip["ac\\bd\\dccc.m"], "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{10., 10.900000000000004}, 
          4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{10., 9.099999999999996}, 4.1000000000000005, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{14., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{5.5, 9.5}, {6.5, 10.5}}], 
           LineBox[{{5.5, 10.5}, {6.5, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T20",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cdcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cdcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 7.999999999996362}, {
          9.999999999996676, 7.999999999996362}}], 
         LineBox[{{20.00000000000112, 8.000000000003638}, {
          10.000000000003325`, 8.000000000003638}}], 
         LineBox[{{10., 8.}, {10., 12.}}], 
         CircleBox[{10., 14.25}, 2.25, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 12.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 7.5}, {10.5, 8.5}}], 
           LineBox[{{9.5, 8.5}, {10.5, 7.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T21",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\cddd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\cddd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 10.}, {10., 13.}}], 
         CircleBox[{9.459999999999997, 15.4}, 
          2.460000000000001, {-1.3494818844471055`, 1.3494818844471055`}], 
         CircleBox[{10.540000000000003, 15.4}, 
          2.460000000000001, {-4.491074538036899, -1.7921107691426879`}], 
         {PointSize[0.04], PointBox[{10., 10.}], PointBox[{10., 13.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 17.3}, {10.5, 18.3}}], 
           LineBox[{{9.5, 18.3}, {10.5, 17.3}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T22",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\cdeded.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\cdeded.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 7.999999999996362}, {
          9.999999999996676, 7.999999999996362}}], 
         LineBox[{{20.00000000000112, 8.000000000003638}, {
          10.000000000003325`, 8.000000000003638}}], 
         LineBox[{{10., 17.500000000001556`}, {10., 13.499999999998444`}}], 
         LineBox[{{10., 8.}, {10., 13.5}}], 
         CircleBox[{12., 13.5}, 2., {-3.141592653589793, 3.141592653589793}], 
         {PointSize[0.04], PointBox[{10., 8.}], PointBox[{10., 13.5}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 17.}, {10.5, 18.}}], 
           LineBox[{{9.5, 18.}, {10.5, 17.}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T23",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\deceee.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\deceee.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 7.999999999996362}, {
          9.999999999996676, 7.999999999996362}}], 
         LineBox[{{20.00000000000112, 8.000000000003638}, {
          10.000000000003325`, 8.000000000003638}}], 
         LineBox[{{10., 11.000000000002458`}, {10., 8.000000000006423}}], 
         LineBox[{{10., 11.}, {10., 14.}}], 
         CircleBox[{10., 16.}, 2., {-1.5707963267948966`, 4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 8.}], PointBox[{10., 14.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 10.5}, {10.5, 11.5}}], 
           LineBox[{{9.5, 11.5}, {10.5, 10.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T24",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\dcdeee.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\dcdeee.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{1.454392162258955*^-12, 10.}, {5.000000000002986, 10.}}], 
         LineBox[{{20.000000000001847`, 10.}, {13.00000000000259, 10.}}], 
         LineBox[{{5., 14.000000000001556`}, {5., 9.999999999998444}}], 
         LineBox[{{4.999999999999551, 10.}, {13.000000000000451`, 10.}}], 
         CircleBox[{13., 12.75}, 2.75, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{5., 10.}], PointBox[{13., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{4.5, 13.5}, {5.5, 14.5}}], 
           LineBox[{{4.5, 14.5}, {5.5, 13.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T25",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\eccddd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\eccddd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         LineBox[{{14., 16.99999999999741}, {14., 9.99999999999371}}], 
         CircleBox[{10., 10.900000000000004}, 
          4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{10., 9.099999999999996}, 4.1000000000000005, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{13.5, 16.5}, {14.5, 17.5}}], 
           LineBox[{{13.5, 17.5}, {14.5, 16.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T26",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\edcdcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\edcdcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.850519737445211*^-12, 8.}, {6.999999999997409, 8.}}], 
         LineBox[{{20.000000000001847`, 8.}, {13.00000000000259, 8.}}], 
         LineBox[{{13.000000000000671`, 8.}, {6.99999999999933, 8.}}], 
         LineBox[{{7., 8.}, {7., 13.}}], 
         CircleBox[{7., 15.25}, 2.25, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{7., 8.}], PointBox[{7., 13.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.5, 7.5}, {13.5, 8.5}}], 
           LineBox[{{12.5, 8.5}, {13.5, 7.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T27",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\dcceee.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\dcceee.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.8420141096173935`*^9},ExpressionUUID->"f66bb617-8849-4e8d-90ae-\
afb12496acde"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.5563106359195444`*^-12, 10.}, {3.9999999999971156`, 
          10.}}], LineBox[{{19.999999999997783`, 10.}, {13.33299999999777, 
          10.}}], LineBox[{{13.333000000001558`, 10.}, {9.333000000002885, 
          10.}}], CircleBox[{6.6665, 10.599962500000002}, 
          2.7331625000000006, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{6.6665, 9.400037499999998}, 2.7331625000000006, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{4., 10.}], PointBox[{9.333, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{12.833, 9.5}, {13.833, 10.5}}], 
           LineBox[{{12.833, 10.5}, {13.833, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T28",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\decece.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\decece.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.850519737445211*^-12, 10.}, {6.999999999997409, 10.}}], 
         LineBox[{{19.999999999998543`, 10.}, {14.999999999997012`, 10.}}], 
         LineBox[{{15., 15.000000000002988`}, {15., 10.000000000005896`}}], 
         LineBox[{{15.000000000000451`, 10.}, {6.999999999999551, 10.}}], 
         CircleBox[{7., 12.75}, 2.75, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{15., 10.}], PointBox[{7., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{14.5, 14.5}, {15.5, 15.5}}], 
           LineBox[{{14.5, 15.5}, {15.5, 14.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T29",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\eddccc.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\eddccc.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         LineBox[{{6., 16.99999999999741}, {6., 9.99999999999371}}], 
         CircleBox[{10., 9.099999999999996}, 4.1000000000000005, {
          0.2213144423477913, 2.9202782112420023`}], 
         CircleBox[{10., 10.900000000000004}, 4.1000000000000005, {
          3.3629070959375844`, 6.061870864831795}], 
         {PointSize[0.04], PointBox[{14., 10.}], PointBox[{6., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{5.5, 16.5}, {6.5, 17.5}}], 
           LineBox[{{5.5, 17.5}, {6.5, 16.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T30",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\ecdcdc.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\ecdcdc.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 19.000000000002455`}, {10., 16.000000000006423`}}], 
         CircleBox[{10.675, 13.}, 
          3.075, {-4.491074538036899, -1.7921107691426879`}], 
         CircleBox[{9.325, 13.}, 3.075, {-1.3494818844471055`, 
          1.3494818844471055`}], 
         {PointSize[0.04], PointBox[{10., 16.}], PointBox[{10., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 18.5}, {10.5, 19.5}}], 
           LineBox[{{9.5, 19.5}, {10.5, 18.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T31",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\deecec.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\deecec.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 6.}, {10., 10.}}], 
         LineBox[{{10., 14.000000000001556`}, {10., 9.999999999998444}}], 
         CircleBox[{10., 15.75}, 1.75, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 5.5}, {10.5, 6.5}}], 
           LineBox[{{9.5, 6.5}, {10.5, 5.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T32",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\dcecee.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\dcecee.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.850519737445211*^-12, 8.}, {6.999999999997409, 8.}}], 
         LineBox[{{20.000000000001847`, 8.}, {13.00000000000259, 8.}}], 
         LineBox[{{6.99999999999933, 8.}, {13.000000000000671`, 8.}}], 
         LineBox[{{13., 8.}, {13., 13.}}], 
         CircleBox[{13., 15.25}, 2.25, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{13., 8.}], PointBox[{13., 13.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.5, 7.5}, {7.5, 8.5}}], 
           LineBox[{{6.5, 8.5}, {7.5, 7.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T33",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        RowBox[{"HFlip", "(", "\"ac\\\\bd\\\\dcceee.m\"", ")"}]],
       Annotation[#, 
        FeynArts`HFlip["ac\\bd\\dcceee.m"], "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{2.213340621892712*^-12, 10.}, {6.667000000002227, 10.}}], 
         LineBox[{{20.000000000001556`, 10.}, {16.000000000002885`, 10.}}], 
         LineBox[{{6.666999999998444, 10.}, {10.666999999997117`, 10.}}], 
         CircleBox[{13.3335, 10.599962500000002}, 2.7331625000000006, {
          3.3629070959375844`, 6.061870864831795}], 
         CircleBox[{13.3335, 9.400037499999998}, 2.7331625000000006, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{16., 10.}], PointBox[{10.667, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{6.167, 9.5}, {7.167, 10.5}}], 
           LineBox[{{6.167, 10.5}, {7.167, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T34",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        RowBox[{"HFlip", "(", "\"ac\\\\bd\\\\decece.m\"", ")"}]],
       Annotation[#, 
        FeynArts`HFlip["ac\\bd\\decece.m"], "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 7.999999999996362}, {
          9.999999999996676, 7.999999999996362}}], 
         LineBox[{{20.00000000000112, 8.000000000003638}, {
          10.000000000003325`, 8.000000000003638}}], 
         LineBox[{{13.500000000001059`, 11.}, {9.999999999998943, 11.}}], 
         LineBox[{{10., 8.}, {10., 11.}}], LineBox[{{10., 11.}, {10., 14.}}], 
         CircleBox[{10., 16.}, 2., {-1.5707963267948966`, 4.71238898038469}], 
         {PointSize[0.04], PointBox[{10., 8.}], PointBox[{10., 11.}], 
          PointBox[{10., 14.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{13., 10.5}, {14., 11.5}}], 
           LineBox[{{13., 11.5}, {14., 10.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T35",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\deceefff.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\deceefff.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.1173284519827575`*^-12, 9.999999999996362}, {
          9.999999999996676, 9.999999999996362}}], 
         LineBox[{{20.00000000000112, 10.000000000003638`}, {
          10.000000000003325`, 10.000000000003638`}}], 
         LineBox[{{10., 19.00000000000041}, {10., 16.499999999999588`}}], 
         LineBox[{{10., 10.}, {10., 12.5}}], 
         CircleBox[{10.450000000000001, 14.5}, 
          2.0500000000000003, {-4.491074538036899, -1.7921107691426879`}], 
         CircleBox[{9.549999999999999, 14.5}, 
          2.0500000000000003, {-1.3494818844471055`, 1.3494818844471055`}], 
         {PointSize[0.04], PointBox[{10., 10.}], PointBox[{10., 16.5}], 
          PointBox[{10., 12.5}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{9.5, 18.5}, {10.5, 19.5}}], 
           LineBox[{{9.5, 19.5}, {10.5, 18.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T36",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bc\\\\decfefef.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bc\\decfefef.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.842014109635394*^9},ExpressionUUID->"04ad1a62-79e5-48de-95a2-\
5bbd9d39da5a"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{1.454392162258955*^-12, 8.}, {5.000000000002986, 8.}}], 
         LineBox[{{20.000000000002036`, 8.}, {13.500000000002405`, 8.}}], 
         LineBox[{{5., 13.000000000002988`}, {5., 8.000000000005896}}], 
         LineBox[{{4.9999999999989555`, 8.}, {13.500000000001044`, 8.}}], 
         LineBox[{{13.5, 8.}, {13.5, 12.}}], 
         CircleBox[{13.5, 14.25}, 2.25, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{5., 8.}], PointBox[{13.5, 8.}], 
          PointBox[{13.5, 12.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{4.5, 12.5}, {5.5, 13.5}}], 
           LineBox[{{4.5, 13.5}, {5.5, 12.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T37",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\eccddfff.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\eccddfff.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{1.454392162258955*^-12, 10.}, {5.000000000002986, 10.}}], 
         LineBox[{{20.000000000001556`, 10.}, {16.000000000002885`, 10.}}], 
         LineBox[{{5., 15.000000000002988`}, {5., 10.000000000005896`}}], 
         LineBox[{{5.000000000000781, 10.000000000003638`}, {
          10.666999999999218`, 10.000000000003638`}}], 
         CircleBox[{13.3335, 9.400037499999998}, 2.7331625000000006, {
          0.2213144423477913, 2.9202782112420023`}], 
         CircleBox[{13.3335, 10.599962500000002}, 2.7331625000000006, {
          3.3629070959375844`, 6.061870864831795}], 
         {PointSize[0.04], PointBox[{5., 10.}], PointBox[{16., 10.}], 
          PointBox[{10.667, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{4.5, 14.5}, {5.5, 15.5}}], 
           LineBox[{{4.5, 15.5}, {5.5, 14.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T38",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\eccfdfdf.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\eccfdfdf.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.850519737445211*^-12, 8.}, {6.999999999997409, 8.}}], 
         LineBox[{{19.999999999998543`, 8.}, {14.999999999997012`, 8.}}], 
         LineBox[{{15., 13.000000000002988`}, {15., 8.000000000005896}}], 
         LineBox[{{6.999999999999551, 8.}, {15.000000000000451`, 8.}}], 
         LineBox[{{7., 8.}, {7., 13.}}], 
         CircleBox[{7., 15.25}, 2.25, {-1.5707963267948966`, 
          4.71238898038469}], 
         {PointSize[0.04], PointBox[{7., 8.}], PointBox[{15., 8.}], 
          PointBox[{7., 13.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{14.5, 12.5}, {15.5, 13.5}}], 
           LineBox[{{14.5, 13.5}, {15.5, 12.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T39",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\edcdcfff.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\edcdcfff.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-1.5563106359195444`*^-12, 10.}, {3.9999999999971156`, 
          10.}}], LineBox[{{19.999999999998543`, 10.}, {14.999999999997012`, 
          10.}}], LineBox[{{15., 15.000000000002988`}, {15., 
          10.000000000005896`}}], 
         LineBox[{{14.999999999999218`, 9.999999999996362}, {9.33300000000078,
           9.999999999996362}}], 
         CircleBox[{6.6665, 10.599962500000002}, 
          2.7331625000000006, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{6.6665, 9.400037499999998}, 2.7331625000000006, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{4., 10.}], PointBox[{15., 10.}], 
          PointBox[{9.333, 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{14.5, 14.5}, {15.5, 15.5}}], 
           LineBox[{{14.5, 15.5}, {15.5, 14.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T40",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\eddfcfcf.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\eddfcfcf.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{288, 288},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.842014109647395*^9},ExpressionUUID->"92d0c9ee-fa69-4a72-95b7-\
b5ce19f08270"]
}, Open  ]]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"OverlappedCorrectionA", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"Topology1LoopFermionicSelfEnergyCorrection", ",", 
     RowBox[{"{", "16", "}"}]}], "]"}]}], ";"}]], "Input",ExpressionUUID->\
"9117b866-a3a5-4be4-8296-b8e5c1a02cb7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Paint", "[", "OverlappedCorrectionA", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"OverlappedCorrectionB", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"Topology1LoopFermionicSelfEnergyCorrection", ",", 
     RowBox[{"{", "20", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "OverlappedCorrectionB", "]"}]}], "Input",
 CellChangeTimes->{{3.8420142035059366`*^9, 
  3.842014203667949*^9}},ExpressionUUID->"f01a47a7-e388-4ae2-960a-\
3450fe77d1d7"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{10., 10.900000000000004}, 
          4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{10., 9.099999999999996}, 4.1000000000000005, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{6., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{13.5, 9.5}, {14.5, 10.5}}], 
           LineBox[{{13.5, 10.5}, {14.5, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cdcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cdcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{710.6666666666655, 710.6666666666666},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{{3.842014187001392*^9, 
  3.842014204932045*^9}},ExpressionUUID->"88cf5e05-e2bd-45f4-8758-\
f7140445bd9d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"FeynArtsGraphics", "(", 
    RowBox[{"1", "\[Rule]", "1"}], ")"}], "\[InvisibleApplication]", 
   RowBox[{"(", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         FormBox[
          InterpretationBox[
           
           RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>", 
            "\[InvisibleSpace]", "\<\"]\"\>"}],
           SequenceForm["[", "T1", "]"],
           Editable->False],
          TraditionalForm], "Null", "Null"},
        {"Null", "Null", "Null"},
        {"Null", "Null", "Null"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8420141870083914`*^9, 
  3.842014204937045*^9}},ExpressionUUID->"9b7c8ad9-9794-481f-a38c-\
e3b0ec3200c5"],

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
         LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
         CircleBox[{10., 10.900000000000004}, 
          4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
         CircleBox[{10., 9.099999999999996}, 4.1000000000000005, {
          0.2213144423477913, 2.9202782112420023`}], 
         {PointSize[0.04], PointBox[{14., 10.}], 
          {Thickness[0.015000000000000001`], 
           LineBox[{{5.5, 9.5}, {6.5, 10.5}}], 
           LineBox[{{5.5, 10.5}, {6.5, 9.5}}]}}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["T1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->7.997355371900827],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            7.997355371900827]& ], {10., -0.5}, 
          ImageScaled[{Rational[1, 2], 0}]]},
        "\"ac\\\\bd\\\\cdcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cdcd.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {28.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["\[RightArrow]",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {33., 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
     TagBox[
      StyleBox[
       TagBox["1",
        DisplayForm],
       FontFamily->"Helvetica",
       FontSize->11.996033057851239`],
      StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
       11.996033057851239`]& ], {37.5, 69.96}, 
     ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
   AspectRatio->1.0999999999999999`,
   ImageSize->{618.6666666666662, 618.6666666666666},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{{3.842014187001392*^9, 
  3.8420142049410458`*^9}},ExpressionUUID->"b83e6e15-6911-41f3-9060-\
b5658d3f585d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"FeynArtsGraphics", "(", 
    RowBox[{"1", "\[Rule]", "1"}], ")"}], "\[InvisibleApplication]", 
   RowBox[{"(", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         FormBox[
          InterpretationBox[
           
           RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>", 
            "\[InvisibleSpace]", "\<\"]\"\>"}],
           SequenceForm["[", "T1", "]"],
           Editable->False],
          TraditionalForm], "Null", "Null"},
        {"Null", "Null", "Null"},
        {"Null", "Null", "Null"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8420141870083914`*^9, 
  3.842014204944046*^9}},ExpressionUUID->"15770d91-417f-478f-abdd-\
6066b9747133"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Field insertion", "Subsubsection",
 CellChangeTimes->{{3.842013926307417*^9, 
  3.842013929292148*^9}},ExpressionUUID->"3cbde373-4809-491b-b99f-\
68b1880f637f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"OverlappedCorrectionWITHFieldsA", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"OverlappedCorrectionA", ",", "Processee", ",", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "_", "]"}], ",", 
        RowBox[{"V", "[", 
         RowBox[{"2", "|", "3"}], "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"S", "|", "U"}], ")"}], "[", "_", "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", "|", "4"}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"2", "|", "3"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", 
  RowBox[{"OverlappedCorrectionWITHFieldsA", ",", 
   RowBox[{"ColumnsXRows", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1"}], "}"}]}], ",", 
   RowBox[{"Numbering", "\[Rule]", "Simple"}], ",", 
   RowBox[{"SheetHeader", "\[Rule]", "None"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"256", ",", "256"}], "}"}]}]}], "]"}]}], "Input",ExpressionUUID->\
"49a236e8-beff-44c8-9ba5-ddd2048ea3a3"],

Cell[BoxData[
 FormBox[
  GraphicsBox[InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
        PolygonBox[{{3.6, 10.}, {2.4, 9.6}, {2.4, 10.4}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {3., 9.0548}, 
         ImageScaled[{Rational[1, 2], 1}]], 
        LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
        PolygonBox[{{17.6, 10.}, {16.4, 10.4}, {16.4, 9.6}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {17., 10.9452}, 
         ImageScaled[{Rational[1, 2], 0}]], 
        CircleBox[{10., 10.900000000000004}, 
         4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
        PolygonBox[{{10.6, 6.8}, {9.4, 6.3999999999999995`}, {9.4, 7.2}}], 
        InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {10., 5.8548}, 
         ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJw9lXs0lGkcxw3Z1OpijsvMMDL3ed9XVJRQ65fblhGhw6oVjfstm1shlyxa
IawihWqrU8RUTJtQTXtQbqWIlqVtK5UQmlSEnT29+zznvOf94z3P8z6/3+/7
/XxZ4ghXf2UlJaUIxfPf++syhLn5/xYHHmQJdBbdJaBJHnC9g8+FpdLlGRkF
BITKnL1bHLlQvqzk7MUQAmzknnbTUVwoVt1PGXYmIDhgR1hQGRf+TI0zLrYl
QI/bmN3QwQXTUtG+6u8J0Lb3M3qjzIP0vBUjS9wJkPX0S0Y28qBvpfnCPsV5
uu968moTedDMsTbelkJASubtOlsZD3oXLkj/JY+AXU5t6+8r82FX44ytUyEB
xeDabG7NhzIOI7Unh4AxXrFadgIfbG9bdFrFEGDm81nLv5IPt554DrY4EvBp
yDYwtIsPU81x129pE9BcbzhfMM4HfZ+AVmovDuPCVlsLVQE86+62a/sVh2qJ
tz5FUwCRmzfbWzvjID3ZvCHZQADUru3lfho49NYyPsiMBBDskndIdQCDwZJ8
wVVrAfSUC8O9pRgUPj3wY7K3ALTXX9PsLsIgrUr1N8YhAZzw8nk0kY5B6uOy
+J4bAnht3pdcn4DBhoqu3C1TAthjlsTix2Bwmtd/JtxcCJ+uxmrUhmOg2l2R
OpckBDUxsWX1bgyy7Opt1f8QgpFb1gjHEYPpkG2llbNCOPCkMT7QEIOqsxxG
9UoMeGwLXw8KBpHrRTQnZwxG8HJ+T5sQDCcS76QpzkkhzJx0jghhTVJMjI8/
BgGmN+UWIiFQ6/IZ/V4YhLj2rmj/RgjWj54fSVLsPxY6dG9dowD2M5Tt71lh
YDJs1+SQIQA3n73B/qYY0MImWgacBHB5qzrPdw0Gi3dIOcX6AsgwieHt3aio
Q0QXf5Ir5mZ1xN7VA4NRBsU9tlMxh+NNlvnJGEwG+Z8flPAhPlEanV6jqOPm
glFpDh/YcWJK+RgGZyl+DadC+BD18EG4KYGDikngXJMNH15S5aveinEI0UyK
Wk7jg9hrychMLg5tU5dw+1c8qNmUE9VdhcN3DlqxlGoeGKWHT7fewCEiSyn/
YBwPvlwuOfpzDQ6UnNT3YiseUHVVOpRLcRBpGq91VOVB3WjCP8HxOJQ9zmkt
a+dCdMNWib8LDr/rJF4yL+RChcdkuJ8Qh3hZj/MPYi5U2s2oXFZV6MY7QKtg
FRfi+kvSMhT3/+o3LvgFKNYQBqLTxcNhDzjoe7oVduVCKQftd3idur05mIPO
F+ORa3ebcND/pW87W2um2eh+c5GJ6qUyNrp/fvT8nqQMNqrvzrXhzLmtbFhJ
1m+6aPvjGzQ26k/h24PZ716xUP++tB+nWDSwUH+95k7a+BxjQTTZfzfrGaoo
koXms7ToxA6WCwvNj/pyrjzTmIXmOyMdKl34LQvNf+q86K+AZwZIH68Klq5j
XzUACamfdq06i2txBuBK6iv0KN2sxdIA6c9wp4sscHIF0ueaonTtw8ErQIPU
79zFfN+Hz/WRvvkVVdVuQfpI/zX1WeYus0zkj8XOsYtXX2Ai/5zzfMOvDWTC
Z9JfY5bl4aUbmXCY9N/yEupALpeJ/MnOV7lZo8WEU6R/jbJFSplqTLAk/d1u
a7VTT66H/N+de6zHo1MP8cG1UsLbVKSH+GHk9XRcbqeH+NLn6V61bkAX8YcZ
ERGVsFsX8WmDu3t0cB8D8avRyiS0z4UBYyTfqJHq+amP6NBE8i/NydEmLIAO
H0k+xh887J2iRUf8bKxtm3F9QUN8tdmnFuvbRYPjJH9dxz9+GBukgRfJ56ja
hDPe8zTEb4dzORMinA4Mku8fB2WCF250uE3y/0RTkMbJn+igReaD07T6mY5Y
OjDJ/LgvXzZL+NAhiMwXyd93ayWK8/7PnxdFg+8nn9AghMwn8esrD0f30lB+
fc01HZgl8+1fxVDtyg==
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {10., 14.145199999999999}, 
         ImageScaled[{Rational[1, 2], 0}]], 
        {PointSize[0.04], PointBox[{6., 10.}], 
         {Thickness[0.015000000000000001`], 
          LineBox[{{13.5, 9.5}, {14.5, 10.5}}], 
          LineBox[{{13.5, 10.5}, {14.5, 9.5}}]}}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["1",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->11.729454545454546`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           11.729454545454546`]& ], {10., -0.5}, 
         ImageScaled[{Rational[1, 2], 0}]]},
       "\"ac\\\\bd\\\\cdcd.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "ac\\bd\\cdcd.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}],
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   ImageSize->{552.6666666666656, 552.6666666666666},
   PlotRange->{{0, 44}, {0, 22}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.8420142364497967`*^9},ExpressionUUID->"334e3241-3e2e-486e-8ef7-\
b424e677e53f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"FeynArtsGraphics", "(", ")"}], "\[InvisibleApplication]", 
   RowBox[{"(", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         FormBox[
          InterpretationBox[
           
           RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"1\"\>", 
            "\[InvisibleSpace]", "\<\"]\"\>"}],
           SequenceForm["[", "1", "]"],
           Editable->False],
          TraditionalForm], "Null"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420142364570365`*^9},ExpressionUUID->"c8a82cd6-b54c-475c-8c40-\
734f0231d818"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"OverlappedCorrectionWITHFieldsB", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"OverlappedCorrectionB", ",", "Processee", ",", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"S", "[", "_", "]"}], ",", 
        RowBox[{"V", "[", 
         RowBox[{"2", "|", "3"}], "]"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"S", "|", "U"}], ")"}], "[", "_", "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"3", "|", "4"}], "]"}], ",", 
        RowBox[{"F", "[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"2", "|", "3"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", 
  RowBox[{"OverlappedCorrectionWITHFieldsB", ",", 
   RowBox[{"ColumnsXRows", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"2", ",", "1"}], "}"}]}], ",", 
   RowBox[{"Numbering", "\[Rule]", "Simple"}], ",", 
   RowBox[{"SheetHeader", "\[Rule]", "None"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"256", ",", "256"}], "}"}]}]}], "]"}]}], "Input",ExpressionUUID->\
"8df1c873-4fc1-4fe5-a84d-1e61ee29b599"],

Cell[BoxData[
 FormBox[
  GraphicsBox[InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-6.701306176637445*^-13, 10.}, {6.00000000000067, 10.}}], 
        PolygonBox[{{3.6, 10.}, {2.4, 9.6}, {2.4, 10.4}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {3., 9.0548}, 
         ImageScaled[{Rational[1, 2], 1}]], 
        LineBox[{{20.000000000000668`, 10.}, {13.999999999999329`, 10.}}], 
        PolygonBox[{{17.6, 10.}, {16.4, 10.4}, {16.4, 9.6}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {17., 10.9452}, 
         ImageScaled[{Rational[1, 2], 0}]], 
        CircleBox[{10., 10.900000000000004}, 
         4.1000000000000005, {-2.9202782112420023`, -0.2213144423477913}], 
        PolygonBox[{{10.6, 6.8}, {9.4, 6.3999999999999995`}, {9.4, 7.2}}], 
        InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {10., 5.8548}, 
         ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJw9lXs0lGkcxw3Z1OpijsvMMDL3ed9XVJRQ65fblhGhw6oVjfstm1shlyxa
IawihWqrU8RUTJtQTXtQbqWIlqVtK5UQmlSEnT29+zznvOf94z3P8z6/3+/7
/XxZ4ghXf2UlJaUIxfPf++syhLn5/xYHHmQJdBbdJaBJHnC9g8+FpdLlGRkF
BITKnL1bHLlQvqzk7MUQAmzknnbTUVwoVt1PGXYmIDhgR1hQGRf+TI0zLrYl
QI/bmN3QwQXTUtG+6u8J0Lb3M3qjzIP0vBUjS9wJkPX0S0Y28qBvpfnCPsV5
uu968moTedDMsTbelkJASubtOlsZD3oXLkj/JY+AXU5t6+8r82FX44ytUyEB
xeDabG7NhzIOI7Unh4AxXrFadgIfbG9bdFrFEGDm81nLv5IPt554DrY4EvBp
yDYwtIsPU81x129pE9BcbzhfMM4HfZ+AVmovDuPCVlsLVQE86+62a/sVh2qJ
tz5FUwCRmzfbWzvjID3ZvCHZQADUru3lfho49NYyPsiMBBDskndIdQCDwZJ8
wVVrAfSUC8O9pRgUPj3wY7K3ALTXX9PsLsIgrUr1N8YhAZzw8nk0kY5B6uOy
+J4bAnht3pdcn4DBhoqu3C1TAthjlsTix2Bwmtd/JtxcCJ+uxmrUhmOg2l2R
OpckBDUxsWX1bgyy7Opt1f8QgpFb1gjHEYPpkG2llbNCOPCkMT7QEIOqsxxG
9UoMeGwLXw8KBpHrRTQnZwxG8HJ+T5sQDCcS76QpzkkhzJx0jghhTVJMjI8/
BgGmN+UWIiFQ6/IZ/V4YhLj2rmj/RgjWj54fSVLsPxY6dG9dowD2M5Tt71lh
YDJs1+SQIQA3n73B/qYY0MImWgacBHB5qzrPdw0Gi3dIOcX6AsgwieHt3aio
Q0QXf5Ir5mZ1xN7VA4NRBsU9tlMxh+NNlvnJGEwG+Z8flPAhPlEanV6jqOPm
glFpDh/YcWJK+RgGZyl+DadC+BD18EG4KYGDikngXJMNH15S5aveinEI0UyK
Wk7jg9hrychMLg5tU5dw+1c8qNmUE9VdhcN3DlqxlGoeGKWHT7fewCEiSyn/
YBwPvlwuOfpzDQ6UnNT3YiseUHVVOpRLcRBpGq91VOVB3WjCP8HxOJQ9zmkt
a+dCdMNWib8LDr/rJF4yL+RChcdkuJ8Qh3hZj/MPYi5U2s2oXFZV6MY7QKtg
FRfi+kvSMhT3/+o3LvgFKNYQBqLTxcNhDzjoe7oVduVCKQftd3idur05mIPO
F+ORa3ebcND/pW87W2um2eh+c5GJ6qUyNrp/fvT8nqQMNqrvzrXhzLmtbFhJ
1m+6aPvjGzQ26k/h24PZ716xUP++tB+nWDSwUH+95k7a+BxjQTTZfzfrGaoo
koXms7ToxA6WCwvNj/pyrjzTmIXmOyMdKl34LQvNf+q86K+AZwZIH68Klq5j
XzUACamfdq06i2txBuBK6iv0KN2sxdIA6c9wp4sscHIF0ueaonTtw8ErQIPU
79zFfN+Hz/WRvvkVVdVuQfpI/zX1WeYus0zkj8XOsYtXX2Ai/5zzfMOvDWTC
Z9JfY5bl4aUbmXCY9N/yEupALpeJ/MnOV7lZo8WEU6R/jbJFSplqTLAk/d1u
a7VTT66H/N+de6zHo1MP8cG1UsLbVKSH+GHk9XRcbqeH+NLn6V61bkAX8YcZ
ERGVsFsX8WmDu3t0cB8D8avRyiS0z4UBYyTfqJHq+amP6NBE8i/NydEmLIAO
H0k+xh887J2iRUf8bKxtm3F9QUN8tdmnFuvbRYPjJH9dxz9+GBukgRfJ56ja
hDPe8zTEb4dzORMinA4Mku8fB2WCF250uE3y/0RTkMbJn+igReaD07T6mY5Y
OjDJ/LgvXzZL+NAhiMwXyd93ayWK8/7PnxdFg+8nn9AghMwn8esrD0f30lB+
fc01HZgl8+1fxVDtyg==
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->14.661818181818182`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           14.661818181818182`]& ], {10., 14.145199999999999}, 
         ImageScaled[{Rational[1, 2], 0}]], 
        {PointSize[0.04], PointBox[{14., 10.}], 
         {Thickness[0.015000000000000001`], 
          LineBox[{{5.5, 9.5}, {6.5, 10.5}}], 
          LineBox[{{5.5, 10.5}, {6.5, 9.5}}]}}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["1",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->11.729454545454546`],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           11.729454545454546`]& ], {10., -0.5}, 
         ImageScaled[{Rational[1, 2], 0}]]},
       "\"ac\\\\bd\\\\cdcd.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "ac\\bd\\cdcd.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}],
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   ImageSize->{532.6666666666663, 532.6666666666666},
   PlotRange->{{0, 44}, {0, 22}}], TraditionalForm]], "Print",
 CellChangeTimes->{
  3.8420142488587165`*^9},ExpressionUUID->"fcee1ec0-9e92-4ec3-bb48-\
d953bf290db1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"FeynArtsGraphics", "(", ")"}], "\[InvisibleApplication]", 
   RowBox[{"(", 
    TagBox[
     RowBox[{"(", "\[NoBreak]", GridBox[{
        {
         FormBox[
          InterpretationBox[
           
           RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"1\"\>", 
            "\[InvisibleSpace]", "\<\"]\"\>"}],
           SequenceForm["[", "1", "]"],
           Editable->False],
          TraditionalForm], "Null"}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.7]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
     Function[BoxForm`e$, 
      MatrixForm[BoxForm`e$]]], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420142488683033`*^9},ExpressionUUID->"811b5e2c-4b72-4d6f-9265-\
0fd2d0c3bcf8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Amplitudes", "Subsubsection",
 CellChangeTimes->{3.842013941230134*^9, 
  3.8420142527425833`*^9},ExpressionUUID->"fdbc24a4-950e-4f20-b0e7-\
36c08ad18fb8"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"CT", " ", "Overlapped", " ", "A"}], "*)"}]], "Input",ExpressionUUID\
->"5f3fe5ba-bcd1-45c1-abcb-9a60148c9b6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FAamplAOCT", "=", 
   RowBox[{"CreateFeynAmp", "[", 
    RowBox[{"OverlappedCorrectionWITHFieldsA", ",", 
     RowBox[{"Truncated", "\[Rule]", "True"}], ",", 
     RowBox[{"GaugeRules", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"PreFactor", "\[Rule]", "1"}]}], "]"}]}], ";"}]], "Input",Express\
ionUUID->"3a9f9344-aaa4-4ebe-8c27-213eb9a5939e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"convertamplAOCT", "=", 
   RowBox[{"FCFAConvert", "[", 
    RowBox[{"FAamplAOCT", ",", 
     RowBox[{"IncomingMomenta", "\[Rule]", 
      RowBox[{"{", "p", "}"}]}], ",", 
     RowBox[{"OutgoingMomenta", "\[Rule]", 
      RowBox[{"{", "p", "}"}]}], ",", 
     RowBox[{"LoopMomenta", "\[Rule]", 
      RowBox[{"{", "l", "}"}]}], ",", 
     RowBox[{"LorentzIndexNames", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], 
       "}"}]}], ",", 
     RowBox[{"UndoChiralSplittings", "\[Rule]", "True"}], ",", 
     RowBox[{"ChangeDimension", "\[Rule]", "4"}], ",", 
     RowBox[{"List", "\[Rule]", "False"}], ",", 
     RowBox[{"SMP", "\[Rule]", "True"}], ",", 
     RowBox[{"DropSumOver", "\[Rule]", "True"}], ",", 
     RowBox[{"Contract", "\[Rule]", "True"}], ",", 
     RowBox[{"FinalSubstitutions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Zm", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_m\>\"", "]"}]}], ",", 
        RowBox[{"Zpsi", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_psi\>\"", "]"}]}], ",", 
        RowBox[{"ZA", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_A\>\"", "]"}]}], ",", 
        RowBox[{"Zxi", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_xi\>\"", "]"}]}], ",", 
        RowBox[{
         RowBox[{"GaugeXi", "[", 
          RowBox[{"V", "[", "1", "]"}], "]"}], "\[Rule]", "1"}]}], "}"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"convertamplAOCTmassless", "=", 
  RowBox[{"convertamplAOCT", "//.", 
   RowBox[{
    RowBox[{"SMP", "[", "\"\<m_e\>\"", "]"}], "\[Rule]", "0"}]}]}]}], "Input",\
ExpressionUUID->"0740d21b-4a47-4904-9b1c-3e86a7509a29"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\<\"e\"\>", "2"], " ", "Ze", " ", 
      SqrtBox[
       SubscriptBox["Z", "A"]], " ", 
      SubscriptBox["Z", "\[Psi]"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014286698213*^9},ExpressionUUID->"29b662d3-0c99-4bc4-abad-\
45ef5fd3270c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AlgebraDiracmasslessCTAO1", "=", 
   RowBox[{"DiracSimplify", "[", "convertamplAOCTmassless", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"AlgebraDiracmasslessCTAO2", "=", 
  RowBox[{
  "DiracSimplify", "[", "AlgebraDiracmasslessCTAO1", "]"}]}]}], "Input",Expres\
sionUUID->"0d7e7dbe-bf66-4705-aef7-99303444f270"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", "Ze", " ", 
      SqrtBox[
       SubscriptBox["Z", "A"]], " ", 
      SubscriptBox["Z", "\[Psi]"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420142942892885`*^9},ExpressionUUID->"c5f9c407-d55e-4006-80d4-\
011f6fa8c8a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "irrelevantmasslessIREGCTAO", ",", "loopsmasslessCTAO", ",", 
     "THEUNIQUEIREGINTEGRALSmasslessCTAO"}], "}"}], "=", 
   RowBox[{"FCLoopExtract", "[", 
    RowBox[{"AlgebraDiracmasslessCTAO2", ",", 
     RowBox[{"{", "l", "}"}], ",", "loopHeadIREGmasslessCTAO"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"IREGINTEGRALSEBmasslessCCTAO", "=", 
  RowBox[{"THEUNIQUEIREGINTEGRALSmasslessCTAO", "/.", 
   RowBox[{"loopHeadIREGmasslessCTAO", "\[Rule]", "Identity"}]}]}]}], "Input",\
ExpressionUUID->"159007c3-a642-4778-bba9-b9cf9339bf83"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   FormBox[
    FractionBox[
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`l] - FeynCalc`Momentum[$CellContext`p],
          FeynCalc`Momentum[$CellContext`l] - 
         FeynCalc`Momentum[$CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420143103156815`*^9},ExpressionUUID->"4dddbfc5-2232-47c5-8ac8-\
12e970f0c932"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"CT", " ", "Overlapped", " ", "B"}], "*)"}]], "Input",
 CellChangeTimes->{{3.842014271134282*^9, 
  3.8420142714353313`*^9}},ExpressionUUID->"e06d7b6b-94fa-4966-bc63-\
0786cb1ef2e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FAamplBOCT", "=", 
   RowBox[{"CreateFeynAmp", "[", 
    RowBox[{"OverlappedCorrectionWITHFieldsB", ",", 
     RowBox[{"Truncated", "\[Rule]", "True"}], ",", 
     RowBox[{"GaugeRules", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"PreFactor", "\[Rule]", "1"}]}], "]"}]}], ";"}]], "Input",Express\
ionUUID->"bdc26a20-8ffe-4bcd-bb8a-24af61d5a08e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"convertamplBOCT", "=", 
   RowBox[{"FCFAConvert", "[", 
    RowBox[{"FAamplBOCT", ",", 
     RowBox[{"IncomingMomenta", "\[Rule]", 
      RowBox[{"{", "p", "}"}]}], ",", 
     RowBox[{"OutgoingMomenta", "\[Rule]", 
      RowBox[{"{", "p", "}"}]}], ",", 
     RowBox[{"LoopMomenta", "\[Rule]", 
      RowBox[{"{", "l", "}"}]}], ",", 
     RowBox[{"LorentzIndexNames", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], 
       "}"}]}], ",", 
     RowBox[{"UndoChiralSplittings", "\[Rule]", "True"}], ",", 
     RowBox[{"ChangeDimension", "\[Rule]", "4"}], ",", 
     RowBox[{"List", "\[Rule]", "False"}], ",", 
     RowBox[{"SMP", "\[Rule]", "True"}], ",", 
     RowBox[{"DropSumOver", "\[Rule]", "True"}], ",", 
     RowBox[{"Contract", "\[Rule]", "True"}], ",", 
     RowBox[{"FinalSubstitutions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Zm", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_m\>\"", "]"}]}], ",", 
        RowBox[{"Zpsi", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_psi\>\"", "]"}]}], ",", 
        RowBox[{"ZA", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_A\>\"", "]"}]}], ",", 
        RowBox[{"Zxi", "\[Rule]", 
         RowBox[{"SMP", "[", "\"\<Z_xi\>\"", "]"}]}], ",", 
        RowBox[{
         RowBox[{"GaugeXi", "[", 
          RowBox[{"V", "[", "1", "]"}], "]"}], "\[Rule]", "1"}]}], "}"}]}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"convertamplBOCTmassless", "=", 
  RowBox[{"convertamplBOCT", "//.", 
   RowBox[{
    RowBox[{"SMP", "[", "\"\<m_e\>\"", "]"}], "\[Rule]", "0"}]}]}]}], "Input",\
ExpressionUUID->"b607322a-3371-4b5c-a0f7-bf368bfe73ed"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\<\"e\"\>", "2"], " ", "Ze", " ", 
      SqrtBox[
       SubscriptBox["Z", "A"]], " ", 
      SubscriptBox["Z", "\[Psi]"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014501912031*^9},ExpressionUUID->"83764f34-2351-4e13-895e-\
941480a73225"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AlgebraDiracmasslessCTBO1", "=", 
   RowBox[{"DiracSimplify", "[", "convertamplBOCTmassless", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"AlgebraDiracmasslessCTBO2", "=", 
  RowBox[{
  "DiracSimplify", "[", "AlgebraDiracmasslessCTBO1", "]"}]}]}], "Input",Expres\
sionUUID->"9c61fba2-7925-47e4-91f3-0bead469af85"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", "Ze", " ", 
      SqrtBox[
       SubscriptBox["Z", "A"]], " ", 
      SubscriptBox["Z", "\[Psi]"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
         FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
       Editable->False]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420145077395797`*^9},ExpressionUUID->"10f3f869-31aa-48cc-92b7-\
4b71b32f7d5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "irrelevantmasslessIREGCTBO", ",", "loopsmasslessCTBO", ",", 
     "THEUNIQUEIREGINTEGRALSmasslessCTBO"}], "}"}], "=", 
   RowBox[{"FCLoopExtract", "[", 
    RowBox[{"AlgebraDiracmasslessCTBO2", ",", 
     RowBox[{"{", "l", "}"}], ",", "loopHeadIREGmasslessCTBO"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"IREGINTEGRALSEBmasslessCCTBO", "=", 
  RowBox[{"THEUNIQUEIREGINTEGRALSmasslessCTBO", "/.", 
   RowBox[{"loopHeadIREGmasslessCTBO", "\[Rule]", "Identity"}]}]}]}], "Input",\
ExpressionUUID->"c4591597-8598-444f-a9a7-f6d5171a65b0"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   FormBox[
    FractionBox[
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm]}], 
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ".", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"],
       SequenceForm[
        FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`l] - FeynCalc`Momentum[$CellContext`p],
          FeynCalc`Momentum[$CellContext`l] - 
         FeynCalc`Momentum[$CellContext`p]]],
       Editable->False]}]],
    TraditionalForm], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420145158398204`*^9},ExpressionUUID->"ab9092b1-72d9-43f0-b421-\
6b35684d4751"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
     "We", " ", "need", " ", "to", " ", "evaluated", " ", "this", " ", 
      "integrals"}], "..."}], " ", "but", " ", "it", " ", "is", " ", "the", 
    " ", "same", " ", "as", " ", "the", " ", "overlapped", " ", 
    RowBox[{"C", ".", "T"}]}], "-", "A"}], "*)"}]], "Input",ExpressionUUID->\
"0291da3e-c8c2-418c-8a9e-28a38c6e518f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Replacements", "Subsubsection",
 CellChangeTimes->{
  3.842013952448557*^9},ExpressionUUID->"b3977a2e-cd6a-498c-a6c9-\
729481753ea0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTDTerm", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "-", "p"}], "]"}], ",", "0"}], "]"}]}], 
    "]"}]}]}]], "Input",ExpressionUUID->"1042593a-2057-4861-b19a-\
95d5cf54a802"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["l",
       TraditionalForm], "_"],
     TraditionalForm]}], 
   RowBox[{
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l], 
       FeynCalc`Momentum[$CellContext`l]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[$CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014331146347*^9},ExpressionUUID->"cbddb1d7-442a-4381-a33a-\
b035b421dc3b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"What", " ", "I", " ", "computed", " ", "by", " ", "hand"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.842013955003033*^9, 
  3.842013959436307*^9}},ExpressionUUID->"40dd3a24-c30f-43cb-b29a-\
0f0264228219"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTDTermReplace", "=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "2"]}], "*", 
   RowBox[{"(", 
    RowBox[{"Ilog\[Lambda]2", "-", 
     RowBox[{"b", "*", 
      RowBox[{"Log", "[", 
       FractionBox[
        RowBox[{"-", 
         RowBox[{"p", "^", "2"}]}], 
        SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "+", 
     RowBox[{"2", "*", "b"}]}], ")"}]}]}]], "Input",ExpressionUUID->"8a593d5d-\
cdba-4d67-a045-ae914df322dd"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"b", " ", 
      RowBox[{"(", 
       RowBox[{"-", 
        RowBox[{"log", "(", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox["p", "2"], 
           SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
     RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420143432843103`*^9},ExpressionUUID->"d6ecdd1c-8f5f-431a-99f6-\
b533f31dd231"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Substitution rule for the overlapped C.Ts", "Subsubsection",
 CellChangeTimes->{{3.842013973310499*^9, 
  3.842013979786866*^9}},ExpressionUUID->"d69b5177-b5d8-4e9c-a640-\
25ff184ba9ae"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Substitution", " ", "rule", " ", "for", " ", "the", " ", "overlapped", 
    " ", 
    RowBox[{"C", ".", "T"}]}], "-", "A"}], "*)"}]], "Input",ExpressionUUID->\
"0ea5fcd9-a862-4ea1-bebb-ba3b5f7fa4dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SubRuleforOverlappedCT", "=", 
   RowBox[{"{", 
    RowBox[{"CTDTerm", "->", "CTDTermReplace"}], "}"}]}], ";"}]], "Input",Expr\
essionUUID->"6d9ec35f-62bb-430f-b402-b204895e9939"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"The", " ", "final", " ", "electron", " ", "bubble", " ", 
   RowBox[{"C", ".", "T"}]}], "*)"}]], "Input",ExpressionUUID->"2eb16952-480e-\
4f92-9485-04e997f9b312"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermAFinal", "=", 
  RowBox[{
  "AlgebraDiracmasslessCTAO2", "//.", "SubRuleforOverlappedCT"}]}]], "Input",E\
xpressionUUID->"f505b753-9511-4740-89b8-4abd90f8f32c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}], "-", 
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", "Ze", " ", 
    SqrtBox[
     SubscriptBox["Z", "A"]], " ", 
    SubscriptBox["Z", "\[Psi]"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420143769482775`*^9},ExpressionUUID->"8b31664f-f043-4f90-bb5d-\
3e4c17c34fae"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "renormalization", " ", "constants", " ", "and", " ", "others", 
   " ", "IREG"}], "*)"}]], "Input",ExpressionUUID->"cbbe347a-74b8-4a9b-8479-\
6f2360e6e834"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"The", " ", "conventional", " ", "definition"}], "*)"}]], "Input",Ex\
pressionUUID->"badf6a4e-f153-4090-b497-0c20a3d95a10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Z1", "=", 
  RowBox[{"Ze", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"SMP", "[", "\"\<Z_A\>\"", "]"}], "]"}], 
   RowBox[{"SMP", "[", "\"\<Z_psi\>\"", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8420143965691257`*^9, 
  3.8420143965741367`*^9}},ExpressionUUID->"48a9f7ea-c6ee-4309-af8e-\
12958bcfb671"],

Cell[BoxData[
 FormBox[
  RowBox[{"Ze", " ", 
   SqrtBox[
    SubscriptBox["Z", "A"]], " ", 
   SubscriptBox["Z", "\[Psi]"]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.84201439743668*^9},ExpressionUUID->"816370e0-3ccf-4194-a636-41cf1b2a2f31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Z2", "=", 
  RowBox[{"1", "+", 
   RowBox[{
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "2"}], "*", 
    RowBox[{"SMP", "[", "\"\<d_psi\>\"", "]"}]}]}]}]], "Input",ExpressionUUID->\
"32b02ec4-f7c4-4436-b0f3-f6e0a1a39bfd"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    SubscriptBox["\[Delta]", "\[Psi]"]}], "+", "1"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014458955516*^9},ExpressionUUID->"ed2b3f9a-3f2d-4d70-bcdf-\
667bfa6165b7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"NewRuleCTOverlapped", "=", 
   RowBox[{"{", 
    RowBox[{"Z1", "\[Rule]", "Z2"}], "}"}]}], ";"}]], "Input",ExpressionUUID->\
"5b7c484a-6412-4c98-8938-fefd122b6654"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Yes", ",", " ", 
   RowBox[{
    RowBox[{"remember", " ", "also", " ", "in", " ", "QED", " ", "Z1"}], "=", 
    RowBox[{"Z2", " ", "to", " ", "all", " ", "orders"}]}]}], "*)"}]], "Input",\
ExpressionUUID->"6c91254a-e8bf-4d04-91b6-7123ce550a52"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermAFinal2", "=", 
  RowBox[{
  "OverlappedCounterTermAFinal", "//.", "NewRuleCTOverlapped"}]}]], "Input",Ex\
pressionUUID->"9c815526-dc4b-4f39-bcca-b226fc827dea"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}], "-", 
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       SubscriptBox["\[Delta]", "\[Psi]"]}], "+", "1"}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.8420144184231634`*^9, 
  3.842014462974632*^9},ExpressionUUID->"4fb6960b-8ca1-4f6c-94fb-\
6d8d6d9d8221"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermAFinal3", "=", 
  RowBox[{"Simplify", "[", "OverlappedCounterTermAFinal2", "]"}]}]], "Input",E\
xpressionUUID->"a88dc7aa-f22e-4424-aca8-d5b41b01f8ce"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["\<\"e\"\>", "4"], " ", 
   SubscriptBox["\[Delta]", "\[Psi]"], " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"b", " ", 
      RowBox[{"log", "(", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["p", "2"], 
         SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
     RowBox[{"2", " ", "b"}], "-", "Ilog\[Lambda]2"}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.842014426355547*^9, 
  3.842014466447774*^9},ExpressionUUID->"027c5105-5a05-4390-9143-\
b5229810ad98"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"The", " ", "final", " ", "electron", " ", "bubble", " ", 
    RowBox[{"C", ".", "T"}]}], "-", "B"}], "*)"}]], "Input",
 CellChangeTimes->{{3.842014567140972*^9, 
  3.842014567353179*^9}},ExpressionUUID->"c5e3f017-5874-4a0f-92de-\
13ca28fce245"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermBFinal", "=", 
  RowBox[{
  "AlgebraDiracmasslessCTBO2", "//.", "SubRuleforOverlappedCT"}]}]], "Input",E\
xpressionUUID->"b4094fc2-78d9-46fb-8dfa-0d0f983603a1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}], "-", 
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", "Ze", " ", 
    SqrtBox[
     SubscriptBox["Z", "A"]], " ", 
    SubscriptBox["Z", "\[Psi]"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014557126129*^9},ExpressionUUID->"6da74445-fb66-4c7f-9b6a-\
44d5fa79b77d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermBFinal2", "=", 
  RowBox[{
  "OverlappedCounterTermBFinal", "//.", "NewRuleCTOverlapped"}]}]], "Input",Ex\
pressionUUID->"923ed98c-eb35-4dc5-81fa-e342e1e89eac"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}], "-", 
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       SubscriptBox["\[Delta]", "\[Psi]"]}], "+", "1"}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"log", "(", 
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox["p", "2"], 
            SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "b"}], "+", "Ilog\[Lambda]2"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014574746071*^9},ExpressionUUID->"72051c8c-9f90-4d01-886b-\
721bd7b588d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermBFinal3", "=", 
  RowBox[{"Simplify", "[", "OverlappedCounterTermBFinal2", "]"}]}]], "Input",E\
xpressionUUID->"c133113d-e392-4a2e-b860-3fcde6c18687"],

Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["\<\"e\"\>", "4"], " ", 
   SubscriptBox["\[Delta]", "\[Psi]"], " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"b", " ", 
      RowBox[{"log", "(", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["p", "2"], 
         SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
     RowBox[{"2", " ", "b"}], "-", "Ilog\[Lambda]2"}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014581425767*^9},ExpressionUUID->"57d7a136-2601-480c-a2d8-\
fc1e3a9a6bfc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Renormalization", "Section"]], "Subsection",
 CellChangeTimes->{3.8420140071551065`*^9, 
  3.842014394559921*^9},ExpressionUUID->"e5a54c72-fc19-4c4d-95e2-\
e33208312aa5"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"If", " ", "everything", " ", "is", " ", "well"}], ",", " ", 
   RowBox[{"non", "-", 
    RowBox[{"local", " ", "terms", " ", "should", " ", "cancel"}]}]}], 
  "*)"}]], "Input",ExpressionUUID->"0886104b-55dc-40c6-80c6-ac532e480be1"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Before", " ", "doing", " ", "this"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"let", "'"}], "s", " ", "put", " ", "some", " ", "definitions", 
     " ", "for", " ", "the", " ", "counter"}], "-", 
    RowBox[{
     RowBox[{"terms", ".", " ", "All"}], " ", "of", " ", "them", " ", "where",
      " ", "taken", " ", "for", " ", "our", " ", "Symmetry", " ", 
     "paper"}]}]}], "*)"}]], "Input",ExpressionUUID->"4fcdfb85-61a2-42ca-8c01-\
9b74f0dc8dce"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CounterTermDeltaPsiQED", "=", 
  RowBox[{"I", "*", "Ilog\[Lambda]2"}]}]], "Input",ExpressionUUID->"fe233183-\
2fbc-494b-988c-09e3075a49ad"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[ImaginaryI]", " ", "Ilog\[Lambda]2"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014592848359*^9},ExpressionUUID->"2ab79206-0ce7-4020-a0e3-\
e0e5980733aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8420146481578865`*^9},ExpressionUUID->"c03567af-a273-4e2f-ac1a-\
99f07b39e0fa"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"4", " ", "\[ImaginaryI]", " ", "Ilog\[Lambda]2"}], "3"], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.842014599168651*^9},ExpressionUUID->"7857321a-ffce-47b3-9216-\
21dbd6917fe8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Now", ",", " ", 
   RowBox[{"the", " ", "substitution", " ", "rules"}]}], "*)"}]], "Input",Expr\
essionUUID->"575108af-3dba-4745-82dd-c8d751111334"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RuleCTField", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"SMP", "[", "\"\<d_psi\>\"", "]"}], "\[Rule]", 
      "CounterTermDeltaPsiQED"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.8420146351829896`*^9},ExpressionUUID->"fe132a89-9ead-4736-88c3-\
23320a759b9e"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Re", "-", 
   RowBox[{"writting", " ", "the", " ", "counterterm"}]}], "*)"}]], "Input",Ex\
pressionUUID->"3c39c161-15b8-4fca-8ee7-9ee49004ce0f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermAFinal4", "=", 
  RowBox[{"OverlappedCounterTermAFinal3", "//.", "RuleCTField"}]}]], "Input",E\
xpressionUUID->"a636a772-7dad-422f-a64d-7ac763b76570"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"b", " ", 
      RowBox[{"log", "(", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["p", "2"], 
         SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
     RowBox[{"2", " ", "b"}], "-", "Ilog\[Lambda]2"}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8420146214470854`*^9},ExpressionUUID->"15f96cf5-3307-4ad1-8d24-\
0bbef2b6ea48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OverlappedCounterTermBFinal4", "=", 
  RowBox[{"OverlappedCounterTermBFinal3", "//.", "RuleCTField"}]}]], "Input",E\
xpressionUUID->"92d1b876-00d1-4716-b79e-3dc007ffbc59"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"b", " ", 
      RowBox[{"log", "(", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["p", "2"], 
         SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
     RowBox[{"2", " ", "b"}], "-", "Ilog\[Lambda]2"}], ")"}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.84201462935*^9},ExpressionUUID->"365e9a35-f2e6-498f-bb14-d1eb552db5ab"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Regulated", " ", "Amplitude"}], " ", "+", " ", "Counter", "-", 
   "Term"}], "*)"}]], "Input",ExpressionUUID->"a4ba53f3-89fc-4ce2-bf26-\
097b703422dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChaveOverlapped", "=", 
   RowBox[{
   "RegulatedEOverlappedAmplitudeIREG", "-", "OverlappedCounterTermAFinal4", 
    "-", "OverlappedCounterTermBFinal4"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.8420146836411324`*^9, {3.8420147221180325`*^9, 
   3.8420147432663*^9}},ExpressionUUID->"5ec6eb99-9e05-48b9-878c-\
3f1e7ef13236"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "b", " ", "Ilog2\[Lambda]2"}], "+", 
      RowBox[{"2", " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{"log", "(", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["p", "2"], 
          SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
      RowBox[{"7", " ", "b", " ", "Ilog\[Lambda]2"}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["Ilog\[Lambda]2", "2"]}]}], ")"}]}], "-", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"log", "(", 
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox["p", "2"], 
          SuperscriptBox["\[Lambda]", "2"]]}], ")"}]}], "-", 
      RowBox[{"2", " ", "b"}], "-", "Ilog\[Lambda]2"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.8420147244079175`*^9, 
  3.8420147456599607`*^9}},ExpressionUUID->"756cac71-a7ff-45fc-9303-\
6fa576c292d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChaveOverlapped2", "=", 
  RowBox[{"Simplify", "[", "ChaveOverlapped", "]"}]}]], "Input",ExpressionUUID\
->"e3642eec-cbd2-4df9-a7e4-5ee4ae32c2cc"],

Cell[BoxData[
 FormBox[
  RowBox[{"\[ImaginaryI]", " ", "b", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "Ilog2\[Lambda]2"}], "-", 
     RowBox[{"3", " ", "Ilog\[Lambda]2"}]}], ")"}], " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.8420147348068066`*^9, 
  3.8420147470172725`*^9}},ExpressionUUID->"f6af9aeb-dbf9-46b8-88ac-\
244ebf77cc55"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1294, 704},
WindowMargins->{{0, Automatic}, {0, Automatic}},
Magnification:>3. Inherited,
FrontEndVersion->"12.0 para Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 233, 4, 294, "Title",ExpressionUUID->"47096605-55bc-4fbc-8908-e512206016c0"],
Cell[CellGroupData[{
Cell[838, 30, 216, 4, 210, "Chapter",ExpressionUUID->"449b9db2-0735-4842-836b-ac05e14e6dea"],
Cell[CellGroupData[{
Cell[1079, 38, 154, 3, 204, "Section",ExpressionUUID->"4efc7c9f-0e54-41e8-870a-59e93b6e51e2"],
Cell[1236, 43, 233, 5, 94, "Input",ExpressionUUID->"dada9494-4f41-43b0-93f0-04ffbbaccd85"],
Cell[CellGroupData[{
Cell[1494, 52, 1590, 43, 1226, "Input",ExpressionUUID->"0356312e-0902-4a62-8a43-380f38bfb66f"],
Cell[CellGroupData[{
Cell[3109, 99, 2495, 67, 90, "Print",ExpressionUUID->"44258424-3dd6-417c-b7ea-5816daa3a7ea"],
Cell[5607, 168, 1282, 30, 90, "Print",ExpressionUUID->"3044bf1b-ae88-43ae-a887-65d38de8fe80"],
Cell[6892, 200, 1283, 33, 90, "Print",ExpressionUUID->"f51c115b-3e43-4c60-8467-3b9853264bc9"],
Cell[8178, 235, 461, 8, 86, "Print",ExpressionUUID->"e6e6e8a9-f6cb-4e83-9600-cc542ca215b0"],
Cell[8642, 245, 464, 8, 86, "Print",ExpressionUUID->"d124ba31-3dcf-4483-abb6-ac554ad52a23"],
Cell[9109, 255, 446, 7, 86, "Print",ExpressionUUID->"fa2ed705-d61d-4a48-9e7e-ea0d03eea1b6"],
Cell[9558, 264, 1473, 36, 152, "Print",ExpressionUUID->"2e619bbd-a491-4f30-b471-dbd79cf787d3"],
Cell[11034, 302, 452, 8, 86, "Print",ExpressionUUID->"7255a083-ee1e-43fb-86d9-99277b6a9e61"],
Cell[11489, 312, 2058, 56, 152, "Print",ExpressionUUID->"2bc14d85-bfca-4f4e-9f90-278b610a7e9a"],
Cell[13550, 370, 398, 7, 86, "Print",ExpressionUUID->"5a8c526b-e639-4782-bc85-bdbfb4cb795e"],
Cell[13951, 379, 434, 8, 86, "Print",ExpressionUUID->"9de65890-f7ff-4d87-968d-11c5d33de92a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[14446, 394, 157, 3, 158, "Section",ExpressionUUID->"98a2d4e0-3f1e-4755-a15a-09bc54a6e0b8"],
Cell[14606, 399, 1848, 45, 398, "Input",ExpressionUUID->"5bf57088-3bf9-42b4-930a-cae31b7e38cf"]
}, Closed]],
Cell[CellGroupData[{
Cell[16491, 449, 154, 3, 158, "Section",ExpressionUUID->"28771d26-6747-4ddc-a158-883c01280a57"],
Cell[16648, 454, 935, 25, 232, "Input",ExpressionUUID->"281419b5-1b56-486c-9860-f832a4246c6e"],
Cell[CellGroupData[{
Cell[17608, 483, 604, 14, 164, "Input",ExpressionUUID->"de9ed13f-69d3-4d68-baa7-548451a72c29"],
Cell[CellGroupData[{
Cell[18237, 501, 13431, 302, 888, "Print",ExpressionUUID->"87f8226a-3bcd-4390-b09e-65605d7da1a5"],
Cell[31671, 805, 6403, 149, 888, "Print",ExpressionUUID->"b1235a5f-0555-4b79-8d7a-ee8236a56ada"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[38123, 960, 436, 10, 208, "Input",ExpressionUUID->"afa19377-54da-4128-8d2b-e9831ed94b49"],
Cell[38562, 972, 2953, 68, 2142, "Print",ExpressionUUID->"0b6ab32c-2b7f-45d8-a086-a3b49de81e22"],
Cell[41518, 1042, 1403, 36, 188, "Output",ExpressionUUID->"63b7a8d4-6b95-4e8c-ac26-04d898b34e33"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[42970, 1084, 153, 3, 158, "Section",ExpressionUUID->"c6dcd27d-d2f4-4625-b311-f84b583fd0a8"],
Cell[43126, 1089, 384, 8, 164, "Input",ExpressionUUID->"d0ae30c3-a2b8-45cf-a317-b64cad36592d"],
Cell[CellGroupData[{
Cell[43535, 1101, 1570, 38, 356, "Input",ExpressionUUID->"e965ed74-a143-4324-b6ee-32d57e1d0abb"],
Cell[45108, 1141, 7464, 165, 792, "Print",ExpressionUUID->"b771f0f0-6284-4492-a9e3-403680b03753"]
}, Closed]],
Cell[CellGroupData[{
Cell[52609, 1311, 720, 13, 148, "Input",ExpressionUUID->"75c0edea-c594-45f3-aaae-94865946206a"],
Cell[53332, 1326, 8594, 193, 2114, "Print",ExpressionUUID->"eccdd0f5-792f-4cc2-853c-769862c10a47"],
Cell[61929, 1521, 1464, 38, 214, "Output",ExpressionUUID->"7f5db168-2fca-4411-9ffc-c44225d8c102"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[63442, 1565, 149, 3, 204, "Section",ExpressionUUID->"335b5f06-77bc-4a0f-9b00-921f1b2b0c79"],
Cell[63594, 1570, 671, 17, 234, "Input",ExpressionUUID->"e602782d-d7dd-4d4f-bc54-a6080c728557"],
Cell[64268, 1589, 487, 11, 224, "Input",ExpressionUUID->"903c16af-3209-4811-9ab7-dab3e582241c"],
Cell[CellGroupData[{
Cell[64780, 1604, 153, 3, 164, "Subsection",ExpressionUUID->"7630bd6f-531a-4b0a-8637-95ff32849ad5"],
Cell[64936, 1609, 335, 9, 94, "Input",ExpressionUUID->"c37bb423-727a-49c7-b686-887d28ad1ca9"],
Cell[65274, 1620, 1093, 25, 414, "Input",ExpressionUUID->"607242fc-c072-4d80-806b-6dccff79b378"],
Cell[66370, 1647, 192, 4, 94, "Input",ExpressionUUID->"193c6c91-9f64-4a25-a75e-3482d4b77251"],
Cell[CellGroupData[{
Cell[66587, 1655, 425, 9, 94, "Input",ExpressionUUID->"13061075-8e51-487a-95fc-b21f5fdd9abe"],
Cell[67015, 1666, 5514, 185, 186, "Output",ExpressionUUID->"82123c3a-ef84-4967-8dfa-e712ba4adf49"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72590, 1858, 174, 3, 204, "Section",ExpressionUUID->"b2cc5f4b-8a24-4397-8722-66c3f145075c"],
Cell[72767, 1863, 560, 13, 232, "Input",ExpressionUUID->"76519527-1ee7-445b-8805-ea8fc2a167d3"],
Cell[CellGroupData[{
Cell[73352, 1880, 367, 8, 94, "Input",ExpressionUUID->"4d5c16f1-fc6c-41e5-9df6-201b069d2406"],
Cell[73722, 1890, 4748, 167, 180, "Output",ExpressionUUID->"b89032ef-6beb-47ac-8dad-724b01ce6c4b"]
}, Open  ]],
Cell[78485, 2060, 143, 3, 150, "Input",ExpressionUUID->"dbde8cff-ee05-4658-87c6-9b6c90792f2a"],
Cell[78631, 2065, 675, 19, 564, "Input",ExpressionUUID->"de50f4cd-3144-4d86-bdd5-61a96b5e302f"],
Cell[CellGroupData[{
Cell[79331, 2088, 177, 4, 150, "Input",ExpressionUUID->"75bac765-f332-4386-a6c5-9bbb1cebf837"],
Cell[79511, 2094, 742, 22, 976, "Print",ExpressionUUID->"0b6a442d-caca-4834-9f7b-96b2ba5ac614"]
}, Open  ]],
Cell[80268, 2119, 126, 2, 150, "Input",ExpressionUUID->"c7fd099d-8ae0-4b41-b759-826cb4f1ec3a"],
Cell[80397, 2123, 680, 19, 695, "Input",ExpressionUUID->"f03667ec-e0e7-4597-8dba-d67ad4dc5a49"],
Cell[81080, 2144, 407, 11, 155, "Input",ExpressionUUID->"c4f64879-e0c0-4e56-bab0-667cccab2ffc"],
Cell[81490, 2157, 374, 8, 219, "Input",ExpressionUUID->"cfbfa582-bbbc-42d3-afe7-d1c3b87cb505"],
Cell[CellGroupData[{
Cell[81889, 2169, 130, 1, 140, "Input",ExpressionUUID->"252811fb-fd6a-4385-b019-ce1acf52d8c0"],
Cell[82022, 2172, 4649, 165, 136, "Print",ExpressionUUID->"c9c96a8f-b0c8-4071-a9e4-1a0e22e27fbf"]
}, Open  ]],
Cell[86686, 2340, 1938, 51, 539, "Input",ExpressionUUID->"1ec8e9ef-96ef-44a9-8876-0521cd67cfb1"],
Cell[88627, 2393, 580, 14, 283, "Input",ExpressionUUID->"c6d2aea5-f02d-46bb-9676-6796cc2d2a53"],
Cell[CellGroupData[{
Cell[89232, 2411, 871, 20, 283, "Input",ExpressionUUID->"c63defbb-cde8-45d1-90da-b587c982d1dd"],
Cell[90106, 2433, 4584, 163, 171, "Output",ExpressionUUID->"a1689ae2-4f59-46b3-b509-81ea7876dfd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94727, 2601, 302, 6, 155, "Input",ExpressionUUID->"057474eb-c261-41ae-b637-eea307bd1c33"],
Cell[95032, 2609, 14467, 488, 615, "Output",ExpressionUUID->"6de9104d-0096-4b01-a23b-e13af4f1345a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109536, 3102, 278, 6, 90, "Input",ExpressionUUID->"2d15a3cd-bfe1-4a61-bf0d-a2d1c11b24eb"],
Cell[109817, 3110, 14439, 487, 160, "Output",ExpressionUUID->"98f21c61-588a-46c3-90aa-3372d342e57a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124293, 3602, 182, 3, 144, "Subsection",ExpressionUUID->"94854dbe-5428-430c-b11e-e62f751c0c4c"],
Cell[CellGroupData[{
Cell[124500, 3609, 714, 17, 252, "Input",ExpressionUUID->"8207220c-298f-4c3b-aab8-2325311606d2"],
Cell[125217, 3628, 15218, 508, 160, "Output",ExpressionUUID->"ff1dac25-cd3c-453a-88c0-d7e70237dad4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[140496, 4143, 159, 3, 212, "Section",ExpressionUUID->"8a05ec30-ad2e-417e-94e7-e7b4358e76ac"],
Cell[140658, 4148, 577, 14, 150, "Input",ExpressionUUID->"d2802d67-d03a-451c-bba9-71c2d3f7951f"],
Cell[141238, 4164, 143, 3, 136, "Input",ExpressionUUID->"e1909699-0adc-4050-9a35-0a3e3ce185a4"],
Cell[141384, 4169, 675, 19, 244, "Input",ExpressionUUID->"d1d00aeb-2349-4372-b960-ca0a376cb603"],
Cell[CellGroupData[{
Cell[142084, 4192, 236, 4, 136, "Input",ExpressionUUID->"9678f42f-466a-449e-b289-58d5513638c0"],
Cell[142323, 4198, 1624, 59, 2418, "Print",ExpressionUUID->"f637579b-ed6d-4340-bbee-450b3dc82ac9"]
}, Open  ]],
Cell[143962, 4260, 431, 12, 90, "Input",ExpressionUUID->"ef6e4d64-481b-4e47-ad2f-a93f8667a667"],
Cell[144396, 4274, 126, 2, 136, "Input",ExpressionUUID->"f3c261f9-56c5-4d85-8fbd-96c63967b83a"],
Cell[144525, 4278, 680, 19, 244, "Input",ExpressionUUID->"da8f58ca-513f-4528-b689-4fceba429d27"],
Cell[CellGroupData[{
Cell[145230, 4301, 145, 2, 136, "Input",ExpressionUUID->"cf3bf982-fa8f-4134-8d94-8934619d8952"],
Cell[145378, 4305, 14391, 487, 134, "Print",ExpressionUUID->"bd2ae6cc-49d0-4462-a67a-67c3b6e75d1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159806, 4797, 273, 6, 116, "Subsubsection",ExpressionUUID->"ab8fb736-7c53-4aa0-aed2-f723fd0a1aa2"],
Cell[160082, 4805, 492, 11, 90, "Input",ExpressionUUID->"324a75b6-ef48-48a2-8bbc-a6b1db64d626"],
Cell[160577, 4818, 1095, 32, 378, "Input",ExpressionUUID->"9c53ed73-12ca-49bc-b2ee-048bb02fd780"],
Cell[CellGroupData[{
Cell[161697, 4854, 1192, 31, 208, "Input",ExpressionUUID->"df6d5b13-6593-4c62-887d-aadfcfe157fb"],
Cell[162892, 4887, 3399, 122, 160, "Output",ExpressionUUID->"8e4f6e4f-3e2a-42de-adc4-fba9b8f2529a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166328, 5014, 1190, 31, 208, "Input",ExpressionUUID->"7d26b874-efd4-46d8-8f94-d331907fbeb1"],
Cell[167521, 5047, 3398, 121, 160, "Output",ExpressionUUID->"354e7fbf-aa41-4cab-9086-f23eff79eb8b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170956, 5173, 1190, 31, 208, "Input",ExpressionUUID->"4a124bcd-bba3-4303-8340-06b56970eeb0"],
Cell[172149, 5206, 3401, 122, 160, "Output",ExpressionUUID->"e8a89ae5-ea35-49ea-bc7d-9dbc3a15f2e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175587, 5333, 1194, 31, 208, "Input",ExpressionUUID->"203e3388-5904-4585-bd8b-423ee46ae77f"],
Cell[176784, 5366, 3403, 122, 160, "Output",ExpressionUUID->"6bee3cf4-9a91-4790-910a-74530a1d2032"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[180236, 5494, 156, 3, 144, "Subsection",ExpressionUUID->"0b5eba88-c758-4a7d-882e-4f3fd2a43722"],
Cell[180395, 5499, 176, 3, 90, "Input",ExpressionUUID->"b9ad2c97-de85-407e-9963-87e7cf3e14ac"],
Cell[CellGroupData[{
Cell[180596, 5506, 1301, 23, 90, "Input",ExpressionUUID->"74a6521f-ac24-4ce7-96ff-ad4f034d5050"],
Cell[181900, 5531, 453, 13, 132, "Output",ExpressionUUID->"5f20ddfa-e0fd-4342-9a36-f410e04a815d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182390, 5549, 1084, 32, 348, "Input",ExpressionUUID->"999e23dc-eeed-4203-834b-39758601e3e0"],
Cell[183477, 5583, 1448, 48, 154, "Output",ExpressionUUID->"acff7637-d80f-4818-ba13-bb7c254ea3d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184962, 5636, 1193, 35, 348, "Input",ExpressionUUID->"2e619316-8063-489e-b2e7-5b32933732c2"],
Cell[186158, 5673, 1448, 48, 154, "Output",ExpressionUUID->"3ad0ba21-0b18-4557-b809-bc52540d7bcf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187643, 5726, 1069, 34, 348, "Input",ExpressionUUID->"c1212fbc-aa7c-4c43-9ca4-a77c1341eabc"],
Cell[188715, 5762, 1448, 48, 154, "Output",ExpressionUUID->"ac1974f2-2009-4e2f-b9fe-89fc3c7dff60"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[190212, 5816, 157, 3, 144, "Subsection",ExpressionUUID->"a4889220-35c3-4f06-9a08-e5e74302a717"],
Cell[CellGroupData[{
Cell[190394, 5823, 501, 11, 90, "Input",ExpressionUUID->"1d55ed77-e6fa-4796-b35b-ac123677e87a"],
Cell[190898, 5836, 19572, 629, 580, "Output",ExpressionUUID->"023ef291-df3d-461c-849d-2e6144264686"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[210519, 6471, 168, 3, 144, "Subsection",ExpressionUUID->"2c616649-430c-402e-a5d8-26656a88d0d1"],
Cell[CellGroupData[{
Cell[210712, 6478, 253, 5, 90, "Input",ExpressionUUID->"f2c24f06-956a-4fb9-9785-84cc9481a4df"],
Cell[210968, 6485, 2145, 63, 154, "Output",ExpressionUUID->"2626eab0-932c-4b11-b79c-0fa4017fce92"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213150, 6553, 259, 5, 136, "Input",ExpressionUUID->"e7d3bc26-6cc7-4b49-84a1-d3dd9b705692"],
Cell[213412, 6560, 863, 25, 154, "Output",ExpressionUUID->"22a7cb8d-742c-4bf7-bacc-5ed9434dc2f2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[214324, 6591, 145, 3, 144, "Subsection",ExpressionUUID->"ed27b19f-6e13-4ff1-b080-6a6ed13efb7b"],
Cell[CellGroupData[{
Cell[214494, 6598, 176, 3, 116, "Subsubsection",ExpressionUUID->"09a043d9-ac23-476c-8536-46ae4216b204"],
Cell[214673, 6603, 145, 3, 90, "Input",ExpressionUUID->"3eb0dec0-dded-4df0-8476-1127f6223030"],
Cell[CellGroupData[{
Cell[214843, 6610, 438, 11, 150, "Input",ExpressionUUID->"57a54960-7c40-4485-bd85-1d5846dba8da"],
Cell[CellGroupData[{
Cell[215306, 6625, 13086, 314, 888, "Print",ExpressionUUID->"77108171-258c-4ca6-9eea-187c8ccdb192"],
Cell[228395, 6941, 13302, 311, 888, "Print",ExpressionUUID->"2d9c871a-5ed9-4994-9da6-1694eb5fd92a"],
Cell[241700, 7254, 12753, 301, 888, "Print",ExpressionUUID->"f66bb617-8849-4e8d-90ae-afb12496acde"],
Cell[254456, 7557, 13477, 311, 888, "Print",ExpressionUUID->"04ad1a62-79e5-48de-95a2-5bbd9d39da5a"],
Cell[267936, 7870, 6968, 164, 888, "Print",ExpressionUUID->"92d0c9ee-fa69-4a72-95b7-b5ce19f08270"]
}, Open  ]]
}, Closed]],
Cell[274931, 8038, 269, 6, 114, "Input",ExpressionUUID->"9117b866-a3a5-4be4-8296-b8e5c1a02cb7"],
Cell[CellGroupData[{
Cell[275225, 8048, 500, 10, 258, "Input",ExpressionUUID->"f01a47a7-e388-4ae2-960a-3450fe77d1d7"],
Cell[275728, 8060, 2517, 64, 2156, "Print",ExpressionUUID->"88cf5e05-e2bd-45f4-8758-f7140445bd9d"],
Cell[278248, 8126, 1264, 34, 188, "Output",ExpressionUUID->"9b7c8ad9-9794-481f-a38c-e3b0ec3200c5"],
Cell[279515, 8162, 2516, 64, 1880, "Print",ExpressionUUID->"b83e6e15-6911-41f3-9060-b5658d3f585d"],
Cell[282034, 8228, 1264, 34, 188, "Output",ExpressionUUID->"15770d91-417f-478f-abdd-6066b9747133"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[283347, 8268, 166, 3, 116, "Subsubsection",ExpressionUUID->"3cbde373-4809-491b-b99f-68b1880f637f"],
Cell[CellGroupData[{
Cell[283538, 8275, 1191, 31, 362, "Input",ExpressionUUID->"49a236e8-beff-44c8-9ba5-ddd2048ea3a3"],
Cell[284732, 8308, 5036, 114, 1682, "Print",ExpressionUUID->"334e3241-3e2e-486e-8ef7-b424e677e53f"],
Cell[289771, 8424, 1126, 31, 88, "Output",ExpressionUUID->"c8a82cd6-b54c-475c-8c40-734f0231d818"]
}, Open  ]],
Cell[CellGroupData[{
Cell[290934, 8460, 1191, 31, 362, "Input",ExpressionUUID->"8df1c873-4fc1-4fe5-a84d-1e61ee29b599"],
Cell[292128, 8493, 5033, 114, 1622, "Print",ExpressionUUID->"fcee1ec0-9e92-4ec3-bb48-d953bf290db1"],
Cell[297164, 8609, 1126, 31, 88, "Output",ExpressionUUID->"811b5e2c-4b72-4d6f-9265-0fd2d0c3bcf8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[298339, 8646, 161, 3, 116, "Subsubsection",ExpressionUUID->"fdbc24a4-950e-4f20-b0e7-36c08ad18fb8"],
Cell[298503, 8651, 151, 3, 90, "Input",ExpressionUUID->"5f3fe5ba-bcd1-45c1-abcb-9a60148c9b6d"],
Cell[298657, 8656, 395, 9, 136, "Input",ExpressionUUID->"3a9f9344-aaa4-4ebe-8c27-213eb9a5939e"],
Cell[CellGroupData[{
Cell[299077, 8669, 1715, 40, 424, "Input",ExpressionUUID->"0740d21b-4a47-4904-9b1c-3e86a7509a29"],
Cell[300795, 8711, 3792, 132, 174, "Output",ExpressionUUID->"29b662d3-0c99-4bc4-abad-45ef5fd3270c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304624, 8848, 357, 8, 150, "Input",ExpressionUUID->"0d7e7dbe-bf66-4705-aef7-99303444f270"],
Cell[304984, 8858, 3020, 104, 174, "Output",ExpressionUUID->"c5f9c407-d55e-4006-80d4-011f6fa8c8a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308041, 8967, 616, 14, 252, "Input",ExpressionUUID->"159007c3-a642-4778-bba9-b9cf9339bf83"],
Cell[308660, 8983, 1517, 52, 158, "Output",ExpressionUUID->"4dddbfc5-2232-47c5-8ac8-12e970f0c932"]
}, Open  ]],
Cell[310192, 9038, 222, 5, 90, "Input",ExpressionUUID->"e06d7b6b-94fa-4966-bc63-0786cb1ef2e7"],
Cell[310417, 9045, 395, 9, 136, "Input",ExpressionUUID->"bdc26a20-8ffe-4bcd-bb8a-24af61d5a08e"],
Cell[CellGroupData[{
Cell[310837, 9058, 1715, 40, 424, "Input",ExpressionUUID->"b607322a-3371-4b5c-a0f7-bf368bfe73ed"],
Cell[312555, 9100, 3792, 132, 174, "Output",ExpressionUUID->"83764f34-2351-4e13-895e-941480a73225"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316384, 9237, 357, 8, 150, "Input",ExpressionUUID->"9c61fba2-7925-47e4-91f3-0bead469af85"],
Cell[316744, 9247, 3020, 104, 174, "Output",ExpressionUUID->"10f3f869-31aa-48cc-92b7-4b71b32f7d5f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319801, 9356, 616, 14, 252, "Input",ExpressionUUID->"c4591597-8598-444f-a9a7-f6d5171a65b0"],
Cell[320420, 9372, 1517, 52, 158, "Output",ExpressionUUID->"ab9092b1-72d9-43f0-b421-6b35684d4751"]
}, Open  ]],
Cell[321952, 9427, 411, 10, 90, "Input",ExpressionUUID->"0291da3e-c8c2-418c-8a9e-28a38c6e518f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[322400, 9442, 139, 3, 116, "Subsubsection",ExpressionUUID->"b3977a2e-cd6a-498c-a6c9-729481753ea0"],
Cell[CellGroupData[{
Cell[322564, 9449, 546, 15, 150, "Input",ExpressionUUID->"1042593a-2057-4861-b19a-95d5cf54a802"],
Cell[323113, 9466, 1323, 48, 158, "Output",ExpressionUUID->"cbddb1d7-442a-4381-a33a-b035b421dc3b"]
}, Open  ]],
Cell[324451, 9517, 247, 6, 90, "Input",ExpressionUUID->"40dd3a24-c30f-43cb-b29a-0f0264228219"],
Cell[CellGroupData[{
Cell[324723, 9527, 539, 16, 210, "Input",ExpressionUUID->"8a593d5d-cdba-4d67-a045-ae914df322dd"],
Cell[325265, 9545, 745, 26, 154, "Output",ExpressionUUID->"d6ecdd1c-8f5f-431a-99f6-b533f31dd231"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[326059, 9577, 192, 3, 116, "Subsubsection",ExpressionUUID->"d69b5177-b5d8-4e9c-a640-25ff184ba9ae"],
Cell[326254, 9582, 256, 7, 90, "Input",ExpressionUUID->"0ea5fcd9-a862-4ea1-bebb-ba3b5f7fa4dd"],
Cell[326513, 9591, 214, 5, 90, "Input",ExpressionUUID->"6d9ec35f-62bb-430f-b402-b204895e9939"],
Cell[326730, 9598, 203, 4, 90, "Input",ExpressionUUID->"2eb16952-480e-4f92-9485-04e997f9b312"],
Cell[CellGroupData[{
Cell[326958, 9606, 205, 4, 90, "Input",ExpressionUUID->"f505b753-9511-4740-89b8-4abd90f8f32c"],
Cell[327166, 9612, 1471, 49, 154, "Output",ExpressionUUID->"8b31664f-f043-4f90-bb5d-3e4c17c34fae"]
}, Open  ]],
Cell[328652, 9664, 212, 5, 90, "Input",ExpressionUUID->"cbbe347a-74b8-4a9b-8479-6f2360e6e834"],
Cell[328867, 9671, 163, 3, 90, "Input",ExpressionUUID->"badf6a4e-f153-4090-b497-0c20a3d95a10"],
Cell[CellGroupData[{
Cell[329055, 9678, 326, 8, 136, "Input",ExpressionUUID->"48a9f7ea-c6ee-4309-af8e-12958bcfb671"],
Cell[329384, 9688, 254, 7, 112, "Output",ExpressionUUID->"816370e0-3ccf-4194-a636-41cf1b2a2f31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[329675, 9700, 264, 7, 90, "Input",ExpressionUUID->"32b02ec4-f7c4-4436-b0f3-f6e0a1a39bfd"],
Cell[329942, 9709, 278, 9, 100, "Output",ExpressionUUID->"ed2b3f9a-3f2d-4d70-bcdf-667bfa6165b7"]
}, Open  ]],
Cell[330235, 9721, 199, 5, 90, "Input",ExpressionUUID->"5b7c484a-6412-4c98-8938-fefd122b6654"],
Cell[330437, 9728, 285, 6, 90, "Input",ExpressionUUID->"6c91254a-e8bf-4d04-91b6-7123ce550a52"],
Cell[CellGroupData[{
Cell[330747, 9738, 205, 4, 90, "Input",ExpressionUUID->"9c815526-dc4b-4f39-bcca-b226fc827dea"],
Cell[330955, 9744, 1558, 51, 154, "Output",ExpressionUUID->"4fb6960b-8ca1-4f6c-94fb-6d8d6d9d8221"]
}, Open  ]],
Cell[CellGroupData[{
Cell[332550, 9800, 195, 3, 136, "Input",ExpressionUUID->"a88dc7aa-f22e-4424-aca8-d5b41b01f8ce"],
Cell[332748, 9805, 741, 24, 154, "Output",ExpressionUUID->"027c5105-5a05-4390-9143-b5229810ad98"]
}, Open  ]],
Cell[333504, 9832, 297, 7, 90, "Input",ExpressionUUID->"c5e3f017-5874-4a0f-92de-13ca28fce245"],
Cell[CellGroupData[{
Cell[333826, 9843, 205, 4, 90, "Input",ExpressionUUID->"b4094fc2-78d9-46fb-8dfa-0d0f983603a1"],
Cell[334034, 9849, 1469, 49, 154, "Output",ExpressionUUID->"6da74445-fb66-4c7f-9b6a-44d5fa79b77d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[335540, 9903, 205, 4, 90, "Input",ExpressionUUID->"923ed98c-eb35-4dc5-81fa-e342e1e89eac"],
Cell[335748, 9909, 1534, 51, 154, "Output",ExpressionUUID->"72051c8c-9f90-4d01-886b-721bd7b588d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[337319, 9965, 195, 3, 136, "Input",ExpressionUUID->"c133113d-e392-4a2e-b860-3fcde6c18687"],
Cell[337517, 9970, 719, 24, 154, "Output",ExpressionUUID->"57d7a136-2601-480c-a2d8-fc1e3a9a6bfc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[338297, 10001, 194, 3, 180, "Subsection",ExpressionUUID->"e5a54c72-fc19-4c4d-95e2-e33208312aa5"],
Cell[338494, 10006, 284, 6, 90, "Input",ExpressionUUID->"0886104b-55dc-40c6-80c6-ac532e480be1"],
Cell[338781, 10014, 511, 12, 90, "Input",ExpressionUUID->"4fcdfb85-61a2-42ca-8c01-9b74f0dc8dce"],
Cell[CellGroupData[{
Cell[339317, 10030, 163, 3, 136, "Input",ExpressionUUID->"fe233183-2fbc-494b-988c-09e3075a49ad"],
Cell[339483, 10035, 209, 6, 88, "Output",ExpressionUUID->"2ab79206-0ce7-4020-a0e3-e0e5980733aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[339729, 10046, 130, 3, 90, "Input",ExpressionUUID->"c03567af-a273-4e2f-ac1a-99f07b39e0fa"],
Cell[339862, 10051, 241, 7, 134, "Output",ExpressionUUID->"7857321a-ffce-47b3-9216-21dbd6917fe8"]
}, Open  ]],
Cell[340118, 10061, 189, 4, 90, "Input",ExpressionUUID->"575108af-3dba-4745-82dd-c8d751111334"],
Cell[340310, 10067, 352, 11, 150, "Input",ExpressionUUID->"fe132a89-9ead-4736-88c3-23320a759b9e"],
Cell[340665, 10080, 185, 4, 90, "Input",ExpressionUUID->"3c39c161-15b8-4fca-8ee7-9ee49004ce0f"],
Cell[CellGroupData[{
Cell[340875, 10088, 195, 3, 90, "Input",ExpressionUUID->"a636a772-7dad-422f-a64d-7ac763b76570"],
Cell[341073, 10093, 721, 23, 154, "Output",ExpressionUUID->"15f96cf5-3307-4ad1-8d24-0bbef2b6ea48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[341831, 10121, 195, 3, 90, "Input",ExpressionUUID->"92d1b876-00d1-4716-b79e-3dc007ffbc59"],
Cell[342029, 10126, 713, 22, 154, "Output",ExpressionUUID->"365e9a35-f2e6-498f-bb14-d1eb552db5ab"]
}, Open  ]],
Cell[342757, 10151, 204, 5, 90, "Input",ExpressionUUID->"a4ba53f3-89fc-4ce2-bf26-097b703422dc"],
Cell[CellGroupData[{
Cell[342986, 10160, 382, 9, 150, "Input",ExpressionUUID->"5ec6eb99-9e05-48b9-878c-3f1e7ef13236"],
Cell[343371, 10171, 1524, 45, 154, "Output",ExpressionUUID->"756cac71-a7ff-45fc-9303-6fa576c292d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[344932, 10221, 170, 3, 136, "Input",ExpressionUUID->"e3642eec-cbd2-4df9-a7e4-5ee4ae32c2cc"],
Cell[345105, 10226, 581, 17, 94, "Output",ExpressionUUID->"f6af9aeb-dbf9-46b8-88ac-244ebf77cc55"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)