Electron_self_energy_2loops_RegAmp_ELECTRONBUBBLE_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[    812120,      25055]
NotebookOptionsPosition[    798541,      24618]
NotebookOutlinePosition[    798915,      24634]
CellTagsIndexPosition[    798872,      24631]
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}}],

Cell[CellGroupData[{

Cell["Electron Bubble Diagram", "Chapter",
 CellChangeTimes->{{3.83162906973405*^9, 3.8316290732405496`*^9}}],

Cell[CellGroupData[{

Cell["FeynCalc with FeynArts and TARCER", "Section",
 CellChangeTimes->{3.829645485737245*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Load", " ", "FeynCalc", " ", "with", " ", "FeynArts", " ", "and", " ", 
   "the", " ", "package", " ", "TARCER"}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "description", "=", 
   "\"\<Electron self-energy at 2-loop with IREG-Electron Bubble\>\""}], 
  ";"}], "\[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}}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.8460610208081913`*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061020816193*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061020820221*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061020825222*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061020831224*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.8460610208352222`*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061020839223*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061020844225*^9}],

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.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061021035432*^9}],

Cell[BoxData[
 StyleBox["\<\"If you use FeynArts in your research, please cite\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.846061021039934*^9}],

Cell[BoxData[
 StyleBox["\<\" \[Bullet] T. Hahn, Comput. Phys. Commun., 140, 418-431, 2001, \
arXiv:hep-ph/0012260\"\>", "Text",
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.8296463115559587`*^9, 3.8296569228194094`*^9, 
  3.829660151593728*^9, 3.8296616652481804`*^9, 3.829825274058569*^9, 
  3.8339146850013494`*^9, 3.8346901320258265`*^9, 3.834787816769864*^9, 
  3.8348298577837253`*^9, 3.834968974721424*^9, 3.8351302002410607`*^9, 
  3.839422239361581*^9, 3.8411849043232985`*^9, 3.841267649897814*^9, 
  3.842690029383254*^9, 3.8426936780209627`*^9, 3.842950521485505*^9, 
  3.843644411492988*^9, 3.8459879945369215`*^9, 3.846025818412985*^9, 
  3.8460610210459356`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Fermion to Fermion process defined", "Section",
 CellChangeTimes->{3.8296463181009827`*^9}],

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.8411849653113084`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Topology Generation with FeynArts", "Section",
 CellChangeTimes->{3.829647759335925*^9}],

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}],

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.841267665121202*^9}],

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.8296480709318438`*^9, 3.8296488360262747`*^9, 
  3.829656923368881*^9, 3.8296596265449867`*^9, 3.829660152392548*^9, 
  3.829661665803629*^9, 3.829825274965166*^9, 3.83391468664618*^9, 
  3.834690133170926*^9, 3.8347878174104137`*^9, 3.834829858882083*^9, 
  3.8349689757852793`*^9, 3.835130200917791*^9, 3.839422239610673*^9, 
  3.8411849763058767`*^9, 3.841267666526043*^9, 3.842690756361396*^9, 
  3.842693679120146*^9, 3.842950532794689*^9, 3.8436444262103252`*^9, 
  3.8459879954587803`*^9, 3.846025819271781*^9, 3.846061021572835*^9}],

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.8296480709318438`*^9, 3.8296488360262747`*^9, 
  3.829656923368881*^9, 3.8296596265449867`*^9, 3.829660152392548*^9, 
  3.829661665803629*^9, 3.829825274965166*^9, 3.83391468664618*^9, 
  3.834690133170926*^9, 3.8347878174104137`*^9, 3.834829858882083*^9, 
  3.8349689757852793`*^9, 3.835130200917791*^9, 3.839422239610673*^9, 
  3.8411849763058767`*^9, 3.841267666526043*^9, 3.842690756361396*^9, 
  3.842693679120146*^9, 3.842950532794689*^9, 3.8436444262103252`*^9, 
  3.8459879954587803`*^9, 3.846025819271781*^9, 3.846061021582835*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bubbletopologies", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"Topologiesfermions", ",", 
     RowBox[{"{", "5", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "bubbletopologies", "]"}]}], "Input",
 CellChangeTimes->{{3.829648100842901*^9, 3.829648107764325*^9}}],

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.}, 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["T1",
             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}}], {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->{571.9999999999994, 572.},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.8296481281610765`*^9, 3.829648838777867*^9, 
  3.829656923395877*^9, 3.829659628991456*^9, 3.829660152472554*^9, 
  3.829661665841242*^9, 3.8298252750840883`*^9, 3.833914686886698*^9, 
  3.8346901332479277`*^9, 3.834787817468012*^9, 3.834829858935089*^9, 
  3.8349689758552856`*^9, 3.835130200965247*^9, 3.8394222396646805`*^9, 
  3.841184982081407*^9, 3.8412676722757845`*^9, 3.8426907627322893`*^9, 
  3.842693679189516*^9, 3.8429505373915725`*^9, 3.843644430894088*^9, 
  3.8459879954988575`*^9, 3.8460258193117847`*^9, 3.8460610216078377`*^9}],

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.8296481281650763`*^9, 3.8296488387818675`*^9, 
  3.829656923398878*^9, 3.8296596289954576`*^9, 3.829660152476554*^9, 
  3.8296616658457685`*^9, 3.8298252750880885`*^9, 3.8339146868907256`*^9, 
  3.834690133252928*^9, 3.8347878174730124`*^9, 3.8348298589400873`*^9, 
  3.8349689758622847`*^9, 3.835130200969248*^9, 3.8394222396696787`*^9, 
  3.8411849820904074`*^9, 3.8412676722897844`*^9, 3.842690762735228*^9, 
  3.8426936791972637`*^9, 3.8429505374015894`*^9, 3.843644430924066*^9, 
  3.845987995508851*^9, 3.8460258193257847`*^9, 3.846061021612838*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Diagram generation with fields", "Section",
 CellChangeTimes->{3.8296481908252287`*^9}],

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}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bubbleWITHfields", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"bubbletopologies", ",", "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[{"bubbleWITHfields", ",", 
    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.841267681942379*^9}],

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., 9.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], 
         CircleBox[{10., 10.}, 4., {-3.141592653589793, 0.}], 
         PolygonBox[{{10.6, 6.}, {9.4, 5.6}, {9.4, 6.4}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 5.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwlkn1MjAEAh0PK7NRFvO+9190pd/fevWesf3Jl6ScpGq0TmlXUbWc6y53k
2ipf5+JGE6m5SUJbymxU5yNJ6fSxk0soC7sllT6mdMm1kZM822/Pnv9//krN
DtV8Nzc32ez+2TUHgf9ehZUVFmPALhIJ6VFNsnVC+L1hbam8QeKVf9f0sYNC
jKktS9a8J7HRY8iVXiJEbIvqatV3Evx+VoXQJkRE768UyzCJnVm+ge4uIVp7
EktcFhLsVCtHHyiC1dIT3JlL4kBpMffBfhEcR2jeqWAStuPzh3xKRSgylJU9
HCVQLb4SGf5BhPfbAsNuVRLoVfGMQkIMr4lvZ4kTBDbG5ff+iBNjb4qdbc8g
QL6tUV+9IMZkf9+dzHwC2THWp4ubxVBXyTqMNgIXsoeiq6fEULq6jzpXk4jN
WSK3CWhs1+cra2+SEMQMLCzfRGMkxcIO9Odg3JFaYFLS0A4ebf5ynYPQprxg
53Eamx4/mYj0phD2edBYXUzDxI9tSE6lUNkZv7W/jgZZPpHnuk3h3OvDm7f2
0UhLuDSWaKXQP3jf0ciWQJUw3Uy8o/C741r4cJQErKCLt861UxhoXbB++IwE
WZnOT8X1FGy5xELdSwlqtJ0yeTWF2j9/pnyXSrHIw/trjZmCv57Pvbxbiouj
98MVryhovWbu3SyUQs8KSQ6YxwV5Scc92SaFtqvt/CEFF3em0W0al0LXmjtw
t44L+5qMAuciBhq5Nsc7xA+eGWaeYTmD7vTdKw0v/LD6Uc2ynwSDoJEFcCl4
iN5/OvKkL4NCju70xx4estTufhvYDMqqZhqJXXxMipzyzNk2T0XERzTwwUkz
e3ZxGLR1tGhcKwRQtz9vqljLIOmH1uxIEkBvb/DZF8eguWdCs8c028Z6rtzA
oCiUNknaBRAWPfNWNDCYmfulAG5zyPAXhrExoA==
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {5.706023129707089, 12.230215354453094}, 
          ImageScaled[{1, 0}]], 
         CircleBox[{10., 13.049999999999999}, 2.0500000000000003, {
          0.2213144423477913, 2.9202782112420023`}], 
         PolygonBox[{{10.6, 15.1}, {9.4, 15.5}, {9.4, 14.7}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 16.045199999999998}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         CircleBox[{10., 13.950000000000001}, 2.0500000000000003, {
          3.3629070959375844`, 6.061870864831795}], 
         PolygonBox[{{9.4, 11.9}, {10.6, 11.5}, {10.6, 12.3}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 10.954799999999999}, 
          ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwtkntIU2EAxU1daZT4yExp0nTu3vt9NxPTIa3w9BCXFOm0TLAHopFiBVFh
qJksy4yBlIH5Gmb53MrHtJrVarYUUjOfKZKxDJJR2vCBpZKhBw4/zj/nj8MR
JVxQJNna2NjQZf/ninisUAyr76GOwX6KdbN1qmKpGAnRbzzvPKHw/hRecDlF
jPrHyqauuxR/ql4uuJeIEXws/H1RDsWZUU1ocacYEblGp6pcivS8F/JLi2II
bQN1omKKWMXQYccAP+iEcmvfC4qDxq6mxCQ/RG4XNT8Yo0hL+hT8s9QPV3rs
t4vW8rDOy7JCh/1g5qLm+iU8pEM6w47NEpyNzontlvFgA3svTyskSIhoFmjA
Q7470+aSSgKZ2i3VfyeP0S/fBqvaJHDod92qdOPhIc4w2U1L4KiRpwaPU7iM
3NjULWTQ3z7xrL2GQm4XdCp2L4MWL/U9QQqF2rLtu+A0g55MLxVHKUqGhVd3
ZDBINNcGzFkJJvLbtKZCBqftbsosJoJB2Lt9fc6gemZxTl1JINs/MigdY+Ae
V3Yu/T7BSG1ca8VGFtTjdmVDPoFKd+2U4QCLTu+UgsICAnOWgtcqWYh3Jm8I
LSH4AkOUqIPFgj6myf8hgXE4hKlw4vC2fo11VzlBj0t2in00hy1BuZN7lvv/
tp7vW8jnkMy70+p0gk6mvKP3HYdf67PnuqMJYuqOD89aOCDZOW/Km2Dyw8nS
NAHBZ+X40OQYh/b5xha4EuiF0qMDRRxeNn4PsXcnePR1lCExHCotDuemXAiC
bvFhcmcONY6vfTydCLyMxUX6Xhbx+8r0r5azQbP08V0pi6cR+dLrWwgEvSpP
34ssWpW/tRp/gooGZ87xCAuXPsGkVkHQEpkqORG4vMOA15JJSRBmnony8WQx
/cMY72Egq79kV0nxDxpWGhQ=
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {14.283476870292912, 12.224215354453094},
           ImageScaled[{0, 0}]], 
         {PointSize[0.04], PointBox[{12., 13.5}], PointBox[{8., 13.5}], 
          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\\\\cd1c21212d.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cd1c21212d.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.}}], 
         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., 9.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJw9lQtQU1cexiGhSq1FZdVcbhLIg7xuhCIiCIPutzwqKC8RK0UFEahOHYqA
RUGq6AI+6gNZrVYeYgBpEVDTGgQ3TJWXmlKfRIqViIiARVt0agAT2Ox6956Z
O2funDv3nPP/f9/vE25IiUxiWVlZ7bQ8/53fjXl4NztjorN+ZrBeiVk3Ljwu
6BAjoj8mVH1eCVW/YhOrRIwWlvAXqkAJeTrHR5ssRhz/4KgmSwmrvktrf1si
RqU4KJaXqoRzooGMmiFGm6wk4mK6Eup9XaGCHhFOXHXZumq3Enk5yX7p1SIE
SU4a/3VCiezMFM+edBHuPX0Q/btaiVfsZa7JPiL8YHi02f2WEgd4I/kXJ4RQ
bdwze8agEp8FUGOXrwqx5w1rceqYEubW4bSRXCFEX3zjaWO5T19omMEULMTZ
rJvP91vWG5u8I7LshaCG7j6f06/EjUWo0RkECGQp5omalahm5V03qAWI/WZq
3Y7jSui9HhfaHhRg2xy7zvfjlGh+2FbR97kAdrk+WdvElvNWajZ9GiZA95rX
5vZnFMrzTs370UOAtT+VtD+tobD9hVVSB1eAQc8OX7dMCg+nHdocYi2AqGvl
GiqMgvGQ8W+GVidUyXIMbi4UJv7wmqz5ygm6/Zrc+LkUMuxVPgdkTrBbKuwr
s6UQtuzFuuprjviuxt2lxZrCtYpty4URjti+ms3tmlDAr8oQYrjLR2XDa162
SQH53rS+tHA+9mqT9B8bFThsPhpzXMfD/I8r+fJhBerF9kOHQnm4sPPrWG2X
AhsU6y9mP+RiuGBEeuSKAhX7JDmqLC7m32Efn39MgQzW6qArrlyUTkkcDUhQ
4GDTcv2uMRK1VoFtqykFJuLWy+K6SURVthfU/S4HMepbl/kLiYGJihNj38ux
SBW9pPc2iWNun6RYb5KDnXo0gHhI4i/rvj+j5HJ8OZkZ0txP4tohNsl6IcMU
wa29mUMk1AtknfH1MrytODlQbCBxs8jD1rRXBtarv3oEzSRiHeOd8mNlKJeY
ouVHSeRevv9m3FuG5Z/er9oYTMLXNPa6nZDhdJPz9cUvHRBZ0FhrOybFjLUu
uTm5DlB7VY5f75Ji0njg0aS9A8w+ke0BGimsl4jLO84QcCpia/kFUnTP2e29
zpsAVbYzISdJin1txn8e6+WgZ6Gow8NTCreJ70YGyzjIe3Kn9luWFBteXz2n
2sHB0q/uFH+tkyB1l/+DNekc6F0bb/kWSjB2+rKvLp+DUN7f89nREqTrZO69
FzmI4q/YKHWU4LfEq2EeLzlonruKrOt3hl7bGK5eQKCk0SfD77wzjtgWNezO
JGCz5VoXZ4czBk2c2W81BJ5PDe5+GeQM6rBGV/KUwJkF7iMSwhli9wZRv4lA
3M8ddt0DYojo97mjGsmsejHzvenIYtlgrpj5X0Jg635thBiH6f18h6r7V5Bi
5jznntSd/LVXhG76vD/0/ZRpqhIhjb6P4k6gW3OyCKP0fRv2uCZs9bCs0/XY
wXeN/MwsZOoluvnIXXdDyNRTH7e7eNcpIVPv3kST35MUIdMPm9baRVcsPmfR
/Qq7HvOel0wIq9F3/axLCYw0ThFiJt3vFvaU6YsGBCij9ZC9VPn+e20ChNB6
Ke8tfZx5RgAVraeFiToje7uA0Vv4z11UaZAA47Qel6SZ+s32Akavs03ejp+c
d2L0rC9dKTR/5AQWrXd3lub29BpHeNF+iLm0pUcld7T04Z1fzk58mR5xjg8z
7aeWV14zMrz5jN9K1412Fj/gYSvtR1kPT927j8f4tYw15JcXxkM87efS9Est
52U8xu+vcj1Wps3iMTzQHCTapk7lMbywXzF2I5zFgz/NE/XZU5XbTFyGN89S
td5NL7mIoHn0+XDhG997XIZX6guTKK3kMjz7d3h08LkELt7QvHMrTMo//SEX
3TQPA3e1bPE8SzK8DAlysNniTkJF8/SZ8cAHsxocGN7ad/atGv6HpY80j/3v
/Vlu20mgk+Z1xtvaqisWnf6f5zUuMdT9hQTD+x+nbaaGpxNMHmjF9wqNkxw8
ofPCZD+ex/+QYPKkye2tvvcjgsmbYgTIi+IJJo9iPCPCFKcIJq/SLt2a2XWb
YPLsbnYFZ5WZQD6dd1svtMaWEA5MHtZfTvFv5zsweenfOmBXOM2BydPt49qE
agPB5O36hcuSisoIJo9togp6klcSmEnn9eT/BofJ8/8AC11oDA==
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 5.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], 
         CircleBox[{9.49248734177215, 10.325721518987342}, 
          3.5076434169353834, {-4.2728793590333805`, -3.048598176639251}], 
         PolygonBox[{{6.744683363014101, 12.586945885274677`}, {
          5.802019380136116, 11.74350969006806}, {6.496613893835683, 
          11.34659853938259}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {5.706023129707089, 12.230215354453094}, 
          ImageScaled[{1, 0}]], 
         CircleBox[{10., 13.049999999999999}, 2.0500000000000003, {
          0.2213144423477913, 2.9202782112420023`}], 
         PolygonBox[{{10.6, 15.1}, {9.4, 15.5}, {9.4, 14.7}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 16.045199999999998}, 
          ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAGIQDQEKDoxgWtvBYfuzLz02Cg5nTu7zjL6t5XA48Tnv
8iIFB7fbm5Vn7tRyiDspXqsyR8HBp3LCTMfpWg6T9ZSEercqODxcxPFuVoGW
wwb3jb/m7lNwUC0PvtfjpOWw64aqjsUuBYcnP2/4FHBrOTyUVco+sFbBQfjD
3/VzTms6uGrbsAotUHAo2Tnl2YRWTQdmBY4dFjMUHOqfPnmzwlbTobn5Uow+
0D6JErv8zJ8aDmKOu83urVdwuHmqYnHDPg0HjSb9z61XFBxez1jZs2aihkPX
gpqcdRyKDqV+Ve77SjUcCuY8KJ3moehQuyy48l2WhkOKybVKzn5Fh7rbR5+u
yNNwmLKl0jz3mqLDksX3BO5Xazh0Cq9/fkFSyUHEr+vp9W4Nh5OTvvKeDFVy
2HNj8bzI6RoO0fWzOt53KDkUzEqb8gPIP5zMkPp5s5JD/eGiqz6dGg4MJjUp
1jeVHJpKOxovZ2o4pL21MDX5A1TvtT/U31rDYXL5ll3FCsoOZV5GqpOZgO77
eUPjkYeyg9zR/Xv3HFN3OHbO95pYubJDa0XWZsYJ6g6KkdG+XKuVHRLvBE92
SVN3eBRx67f2Y2UHfp6g/5v91R3klquyXJFRgfPvL1uy6WuICly9leEmzZcd
Kg4tUPMmsKlfl92uArcvt8Pbtee+Ctw9M4WOnzrNrAp3L8OZ5tlH1FTh/rGZ
838Wj48q3L9LGlLLBcpV4eFhkcv1yWyVKjy8yt8ESOg/U4WHZ45324lJmmrw
8AamgbZvBWrw+OhPlu/K3K4Gj6+y+ObJgd/VHMqg8Xmz9gJPlba6wxtofL/a
53JSMUAdnh5qa3QXX0hWdxCHppd/97+7H09Xd6iDpqfdVw7/ehuvDk9vCo/u
TrEPUncQgaZHN/Vbl4+7qsPTa8AOP9YkR3V4es69ePdtkZe6wwNoel9k9qLp
NtA+WH6wnSfxKaJXHZ5fDnpIchcfVnc4C81PkPymAc9vAIaHgCM=
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 10.954799999999999}, 
          ImageScaled[{Rational[1, 2], 1}]], 
         CircleBox[{10.44866935483871, 10.29209677419355}, 
          3.563322870125016, {-0.08206522583826792, 1.1203574543313137`}], 
         PolygonBox[{{13.8401833630141, 11.539054114725324`}, {
          13.592113893835684`, 12.779401460617411`}, {12.897519380136117`, 
          12.382490309931942`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {14.283476870292912, 12.224215354453094},
           ImageScaled[{0, 0}]], 
         {PointSize[0.04], PointBox[{12., 13.5}], PointBox[{8., 13.5}], 
          PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["2",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->11.729454545454546`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            11.729454545454546`]& ], {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, 0}, {0, 0}, {22, 22}]},
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   ImageSize->{256, 256},
   PlotRange->{{0, 44}, {0, 22}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.8296596367459517`*^9, 3.8296598589553995`*^9, 
  3.8296601528498116`*^9, 3.829661666050782*^9, 3.8298252753504295`*^9, 
  3.8339146872948194`*^9, 3.83469013353895*^9, 3.83478781769817*^9, 
  3.834829859231114*^9, 3.8349689761313095`*^9, 3.835130201199341*^9, 
  3.839422239755684*^9, 3.8411849917431436`*^9, 3.8412676835471897`*^9, 
  3.842690771452263*^9, 3.842693679458885*^9, 3.8429505487457323`*^9, 
  3.843644438241363*^9, 3.845987995629799*^9, 3.846025819447183*^9, 
  3.846061021734856*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"theelectronBubble", "=", 
   RowBox[{"DiagramExtract", "[", 
    RowBox[{"bubbleWITHfields", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "theelectronBubble", "]"}]}], "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}}],

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., 9.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], 
         CircleBox[{10., 10.}, 4., {-3.141592653589793, 0.}], 
         PolygonBox[{{10.6, 6.}, {9.4, 5.6}, {9.4, 6.4}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {10., 5.0548}, 
          ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwlkn1MjAEAh0PK7NRFvO+9190pd/fevWesf3Jl6ScpGq0TmlXUbWc6y53k
2ipf5+JGE6m5SUJbymxU5yNJ6fSxk0soC7sllT6mdMm1kZM822/Pnv9//krN
DtV8Nzc32ez+2TUHgf9ehZUVFmPALhIJ6VFNsnVC+L1hbam8QeKVf9f0sYNC
jKktS9a8J7HRY8iVXiJEbIvqatV3Evx+VoXQJkRE768UyzCJnVm+ge4uIVp7
EktcFhLsVCtHHyiC1dIT3JlL4kBpMffBfhEcR2jeqWAStuPzh3xKRSgylJU9
HCVQLb4SGf5BhPfbAsNuVRLoVfGMQkIMr4lvZ4kTBDbG5ff+iBNjb4qdbc8g
QL6tUV+9IMZkf9+dzHwC2THWp4ubxVBXyTqMNgIXsoeiq6fEULq6jzpXk4jN
WSK3CWhs1+cra2+SEMQMLCzfRGMkxcIO9Odg3JFaYFLS0A4ebf5ynYPQprxg
53Eamx4/mYj0phD2edBYXUzDxI9tSE6lUNkZv7W/jgZZPpHnuk3h3OvDm7f2
0UhLuDSWaKXQP3jf0ciWQJUw3Uy8o/C741r4cJQErKCLt861UxhoXbB++IwE
WZnOT8X1FGy5xELdSwlqtJ0yeTWF2j9/pnyXSrHIw/trjZmCv57Pvbxbiouj
98MVryhovWbu3SyUQs8KSQ6YxwV5Scc92SaFtqvt/CEFF3em0W0al0LXmjtw
t44L+5qMAuciBhq5Nsc7xA+eGWaeYTmD7vTdKw0v/LD6Uc2ynwSDoJEFcCl4
iN5/OvKkL4NCju70xx4estTufhvYDMqqZhqJXXxMipzyzNk2T0XERzTwwUkz
e3ZxGLR1tGhcKwRQtz9vqljLIOmH1uxIEkBvb/DZF8eguWdCs8c028Z6rtzA
oCiUNknaBRAWPfNWNDCYmfulAG5zyPAXhrExoA==
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {5.706023129707089, 12.230215354453094}, 
          ImageScaled[{1, 0}]], 
         CircleBox[{10., 13.049999999999999}, 2.0500000000000003, {
          0.2213144423477913, 2.9202782112420023`}], 
         PolygonBox[{{10.6, 15.1}, {9.4, 15.5}, {9.4, 14.7}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {10., 16.045199999999998}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         CircleBox[{10., 13.950000000000001}, 2.0500000000000003, {
          3.3629070959375844`, 6.061870864831795}], 
         PolygonBox[{{9.4, 11.9}, {10.6, 11.5}, {10.6, 12.3}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {10., 10.954799999999999}, 
          ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwtkntIU2EAxU1daZT4yExp0nTu3vt9NxPTIa3w9BCXFOm0TLAHopFiBVFh
qJksy4yBlIH5Gmb53MrHtJrVarYUUjOfKZKxDJJR2vCBpZKhBw4/zj/nj8MR
JVxQJNna2NjQZf/ninisUAyr76GOwX6KdbN1qmKpGAnRbzzvPKHw/hRecDlF
jPrHyqauuxR/ql4uuJeIEXws/H1RDsWZUU1ocacYEblGp6pcivS8F/JLi2II
bQN1omKKWMXQYccAP+iEcmvfC4qDxq6mxCQ/RG4XNT8Yo0hL+hT8s9QPV3rs
t4vW8rDOy7JCh/1g5qLm+iU8pEM6w47NEpyNzontlvFgA3svTyskSIhoFmjA
Q7470+aSSgKZ2i3VfyeP0S/fBqvaJHDod92qdOPhIc4w2U1L4KiRpwaPU7iM
3NjULWTQ3z7xrL2GQm4XdCp2L4MWL/U9QQqF2rLtu+A0g55MLxVHKUqGhVd3
ZDBINNcGzFkJJvLbtKZCBqftbsosJoJB2Lt9fc6gemZxTl1JINs/MigdY+Ae
V3Yu/T7BSG1ca8VGFtTjdmVDPoFKd+2U4QCLTu+UgsICAnOWgtcqWYh3Jm8I
LSH4AkOUqIPFgj6myf8hgXE4hKlw4vC2fo11VzlBj0t2in00hy1BuZN7lvv/
tp7vW8jnkMy70+p0gk6mvKP3HYdf67PnuqMJYuqOD89aOCDZOW/Km2Dyw8nS
NAHBZ+X40OQYh/b5xha4EuiF0qMDRRxeNn4PsXcnePR1lCExHCotDuemXAiC
bvFhcmcONY6vfTydCLyMxUX6Xhbx+8r0r5azQbP08V0pi6cR+dLrWwgEvSpP
34ssWpW/tRp/gooGZ87xCAuXPsGkVkHQEpkqORG4vMOA15JJSRBmnony8WQx
/cMY72Egq79kV0nxDxpWGhQ=
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {14.283476870292912, 12.224215354453094}, 
          ImageScaled[{0, 0}]], 
         {PointSize[0.04], PointBox[{12., 13.5}], PointBox[{8., 13.5}], 
          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\\\\cd1c21212d.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\cd1c21212d.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->{587.3333333333326, 587.3333333333334},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{{3.8296616661207876`*^9, 3.829661677836207*^9}, 
   3.829825275424436*^9, 3.8339146874148483`*^9, 3.8346901336759596`*^9, 
   3.8347878177551746`*^9, 3.834829859466136*^9, 3.8349689762433157`*^9, 
   3.8351302012882214`*^9, 3.839422239784686*^9, 3.841184996034495*^9, 
   3.8412676875825005`*^9, 3.842690775049045*^9, 3.842693679696991*^9, 
   3.8429505528914833`*^9, 3.843644441401846*^9, 3.8459879956997986`*^9, 
   3.8460258195501904`*^9, 3.8460610217968636`*^9}],

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.8296611270080137`*^9, 3.8296611695416584`*^9, {3.8296612837061806`*^9, 
   3.829661307268877*^9}, {3.829661666123788*^9, 3.829661677840849*^9}, 
   3.8298252754474363`*^9, 3.833914687450837*^9, 3.83469013368296*^9, 
   3.8347878177591753`*^9, 3.834829859471135*^9, 3.8349689762483144`*^9, 
   3.8351302012932234`*^9, 3.839422239789689*^9, 3.841184996041192*^9, 
   3.841267687587502*^9, 3.842690775052318*^9, 3.8426936796999187`*^9, 
   3.842950552900493*^9, 3.843644441406618*^9, 3.8459879957037997`*^9, 
   3.846025819556631*^9, 3.846061021816862*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Amplitude (no regularized)", "Section",
 CellChangeTimes->{3.8296617308171396`*^9}],

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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FAamplElectronB", "=", 
   RowBox[{"CreateFeynAmp", "[", 
    RowBox[{"theelectronBubble", ",", 
     RowBox[{"Truncated", "\[Rule]", "True"}], ",", 
     RowBox[{"GaugeRules", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"PreFactor", "\[Rule]", "1"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8296617516965747`*^9, 3.829661761423785*^9}}],

Cell[CellGroupData[{

Cell["In 4-dim (for IREG integrals)", "Subsection",
 CellChangeTimes->{3.829661791659417*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "Notice", " ", "that", " ", "we", " ", "set", " ", "in", " ", 
    "FCFAConvert", " ", "options", " ", "that", " ", "ChangeDimensions"}], 
   "\[Rule]", "4"}], "*)"}]], "Input"],

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.8412677048462796`*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "work", " ", "now", " ", "in", " ", "Feynman", " ", "gauge"}], 
  "*)"}]], "Input"],

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.839422230506341*^9}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], "+", 
       SubscriptBox["m", "e"]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    RowBox[{"tr", "(", 
     FormBox[
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["m", "e"], "-", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"],
              TraditionalForm]}]}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Nu]",
             TraditionalForm],
            TraditionalForm]], ".", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
             FormBox[
              FormBox[
               RowBox[{
                RowBox[{"-", 
                 OverscriptBox[
                  FormBox["k",
                   TraditionalForm], "_"]}], "+", 
                OverscriptBox[
                 FormBox["l",
                  TraditionalForm], "_"], "-", 
                OverscriptBox[
                 FormBox["p",
                  TraditionalForm], "_"]}],
               TraditionalForm],
              TraditionalForm], ")"}], "+", 
            SubscriptBox["m", "e"]}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Beta]",
             TraditionalForm],
            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], ")"}], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}], ".", 
    SuperscriptBox[
     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], "2"], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            RowBox[{"-", 
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"]}], "+", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[-$CellContext`k + $CellContext`l - $CellContext`p], 
        FeynCalc`Momentum[-$CellContext`k + $CellContext`l - $CellContext`p]],
        "-", FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.829661962695182*^9, 3.829662000351757*^9, 
  3.829825275874152*^9, 3.833914688156046*^9, 3.834690134106991*^9, 
  3.8347878181292033`*^9, 3.834829859750108*^9, 3.8349689766453505`*^9, 
  3.835130201665249*^9, 3.839422240026704*^9, 3.841185015994387*^9, 
  3.8412677088215456`*^9, 3.842690786109084*^9, 3.842693680355029*^9, 
  3.842950563361823*^9, 3.8436444594470778`*^9, 3.845987995858816*^9, 
  3.846025820117673*^9, 3.846061022004876*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronB2A", "=", 
  RowBox[{
  "DiracSimplify", "[", "FeynmangaugeamplElectronB2", "]"}]}]], "Input",
 CellChangeTimes->{{3.829661970428013*^9, 3.8296619769676657`*^9}, {
   3.829662012514325*^9, 3.829662023673749*^9}, 3.842690791502379*^9, 
   3.842950583415021*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Gamma]", "_"], 
         FormBox[
          FormBox["\[Nu]",
           TraditionalForm],
          TraditionalForm]], ".", 
        SuperscriptBox[
         OverscriptBox["\[Gamma]", "_"], 
         FormBox[
          FormBox["\[Nu]",
           TraditionalForm],
          TraditionalForm]]}], " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       SubsuperscriptBox["m", "e", "3"]}], 
      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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               OverscriptBox[
                FormBox["k",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "+", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           
           FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p], 
           
           FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]]}],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      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]]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubsuperscriptBox["m", "e", "2"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      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]]}], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      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[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      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[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SubscriptBox["m", "e"]}], 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.842950584737522*^9, 3.843644461849732*^9, 
  3.845987996025772*^9, 3.8460258203356895`*^9, 3.84606102223038*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "It", " ", "is", " ", "hard", " ", "to", " ", "notice", " ", "at", " ", 
    "first", " ", "sight"}], ",", " ", 
   RowBox[{"but", " ", "even", " ", "using", " ", "DiracSimplify"}], ",", " ", 
   RowBox[{
   "still", " ", "there", " ", "are", " ", "some", " ", "simplification", " ",
     "we", " ", "can", " ", "still", " ", "do", " ", "with", " ", "the", " ", 
    RowBox[{"matrices", ".", " ", "So"}], " ", "using", " ", "DiracSimplify", 
    " ", "again", " ", "will", " ", "be", " ", "necessary"}]}], 
  "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Somo", " ", "comments", " ", "related", " ", "ksquared", " ", "terms", " ",
    "will", " ", "be", " ", "done", " ", "in", " ", "a", " ", "few", " ", 
   "lines"}], "*)"}]], "Input",
 CellChangeTimes->{{3.843644477404481*^9, 3.843644491821781*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"AlgebraDiracElectronC2A", "=", 
   RowBox[{"DiracSimplify", "[", "AlgebraDiracElectronB2A", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.829662053884489*^9, 3.829662056202779*^9}, 
   3.8411850277073526`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FinalElectronBAmpforIREG", "=", 
  RowBox[{"Simplify", "[", "AlgebraDiracElectronC2A", "]"}]}]], "Input",
 CellChangeTimes->{{3.8296621200759635`*^9, 3.829662125690262*^9}, 
   3.8426907989913073`*^9, 3.8429505951359315`*^9, {3.843644468109762*^9, 
   3.843644471517132*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{
           SubscriptBox["m", "e"], " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
              FormBox[
               OverscriptBox[
                FormBox["k",
                 TraditionalForm], "_"],
               TraditionalForm]}], ")"}], ".", 
            RowBox[{"(", 
             RowBox[{
              OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
              FormBox[
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"],
               TraditionalForm]}], ")"}]}]}]}], "-", 
         RowBox[{
          SubscriptBox["m", "e"], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"],
              TraditionalForm]}], ")"}], ".", 
           RowBox[{"(", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"],
              TraditionalForm]}], ")"}]}]}], "+", 
         RowBox[{"4", " ", 
          SubscriptBox["m", "e"], " ", 
          RowBox[{"(", 
           RowBox[{
            FormBox[
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"],
             TraditionalForm], 
            FormBox["\<\"\[CenterDot]\"\>",
             TraditionalForm], 
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}]}], "+", 
         RowBox[{
          SubscriptBox["m", "e"], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"],
              TraditionalForm]}], ")"}], ".", 
           RowBox[{"(", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"],
              TraditionalForm]}], ")"}]}]}], "+", 
         RowBox[{
          SubscriptBox["m", "e"], " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"],
              TraditionalForm]}], ")"}], ".", 
           RowBox[{"(", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"],
              TraditionalForm]}], ")"}]}]}], "-", 
         RowBox[{"4", " ", 
          SubscriptBox["m", "e"], " ", 
          RowBox[{"(", 
           RowBox[{
            FormBox[
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"],
             TraditionalForm], 
            FormBox["\<\"\[CenterDot]\"\>",
             TraditionalForm], 
            FormBox[
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], " ", 
          SubscriptBox["m", "e"]}], "-", 
         RowBox[{"2", " ", 
          SubsuperscriptBox["m", "e", "2"], " ", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm]}]}], "+", 
         RowBox[{"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[{"2", " ", 
          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[{"2", " ", 
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"], " ", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm]}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            FormBox[
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"],
             TraditionalForm], 
            FormBox["\<\"\[CenterDot]\"\>",
             TraditionalForm], 
            FormBox[
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}], " ", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm]}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
            FormBox[
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}], ".", 
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}], ".", 
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
            FormBox[
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
            FormBox[
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}], ".", 
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}], ".", 
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
            FormBox[
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"],
             TraditionalForm]}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          SubsuperscriptBox["m", "e", "3"]}]}], ")"}]}], ")"}], "/", 
     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], ")"}], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}], ".", 
      SuperscriptBox[
       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], "2"], ".", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"], "-", 
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"], "+", 
              OverscriptBox[
               FormBox["p",
                TraditionalForm], "_"]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SubsuperscriptBox["m", "e", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + $CellContext`p], 
          
          FeynCalc`Momentum[$CellContext`k - $CellContext`l + \
$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
        Editable->False], ")"}]}]}], ")"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.84295059565584*^9, 3.84364447274043*^9, 
  3.845987996403429*^9, 3.8460258207177186`*^9, 3.846061022556407*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrals (mass case)", "Section",
 CellChangeTimes->{{3.8296621775380874`*^9, 3.8296621794330196`*^9}, {
  3.8460610683394775`*^9, 3.846061071188481*^9}}],

Cell[CellGroupData[{

Cell["Integrals-IREG", "Subsection",
 CellChangeTimes->{3.8296621823599477`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"irrelevantIREG", ",", "loops", ",", "THEUNIQUEIREGINTEGRALS"}], 
    "}"}], "=", 
   RowBox[{"FCLoopExtract", "[", 
    RowBox[{"FinalElectronBAmpforIREG", ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "k"}], "}"}], ",", "loopHeadIREG"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"IREGINTEGRALSQB", "=", 
  RowBox[{"THEUNIQUEIREGINTEGRALS", "/.", 
   RowBox[{"loopHeadIREG", "\[Rule]", "Identity"}]}]}]}], "Input",
 CellChangeTimes->{{3.8296621944389777`*^9, 3.829662209242633*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    FormBox[
     FractionBox["1", 
      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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"], 
      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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox["\<\"\[CenterDot]\"\>",
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["l",
          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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    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[{
       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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         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[{
       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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], 
       FormBox["\<\"\[CenterDot]\"\>",
        TraditionalForm], 
       FormBox[
        OverscriptBox[
         FormBox["p",
          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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           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], ")"}], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}], ".", 
       SuperscriptBox[
        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], "2"], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SubsuperscriptBox["m", "e", "2"]}],
         SequenceForm[
          
          FeynCalc`Pair[-FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p], -
            FeynCalc`Momentum[$CellContext`k] + 
           FeynCalc`Momentum[$CellContext`l] - 
           FeynCalc`Momentum[$CellContext`p]], "-", FeynCalc`SMP["m_e"]^2],
         Editable->False], ")"}]}]],
     TraditionalForm]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.829662211593445*^9, 3.8298252766073933`*^9, 
  3.833914689384101*^9, 3.834690134954053*^9, 3.8347878188132553`*^9, 
  3.8348298604735928`*^9, 3.8349689774404035`*^9, 3.835130202284419*^9, 
  3.83942224065874*^9, 3.841185034184475*^9, 3.841267721425133*^9, 
  3.842690808657564*^9, 3.842693681234384*^9, 3.8429506003342867`*^9, 
  3.843644497834935*^9, 3.8459879965594435`*^9, 3.846025820937182*^9, 
  3.8460610227144165`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Working in the massless regime", "Section",
 CellChangeTimes->{{3.829825289019966*^9, 3.82982529340946*^9}}],

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}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "FeynmangaugeamplElectronB2", "]"}]], "Input",
 CellChangeTimes->{{3.829825337346476*^9, 3.8298253394522524`*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], "+", 
       SubscriptBox["m", "e"]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    RowBox[{"tr", "(", 
     FormBox[
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            SubscriptBox["m", "e"], "-", 
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
             FormBox[
              OverscriptBox[
               FormBox["k",
                TraditionalForm], "_"],
              TraditionalForm]}]}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Nu]",
             TraditionalForm],
            TraditionalForm]], ".", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
             FormBox[
              FormBox[
               RowBox[{
                RowBox[{"-", 
                 OverscriptBox[
                  FormBox["k",
                   TraditionalForm], "_"]}], "+", 
                OverscriptBox[
                 FormBox["l",
                  TraditionalForm], "_"], "-", 
                OverscriptBox[
                 FormBox["p",
                  TraditionalForm], "_"]}],
               TraditionalForm],
              TraditionalForm], ")"}], "+", 
            SubscriptBox["m", "e"]}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Beta]",
             TraditionalForm],
            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], ")"}], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]], "-", FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}], ".", 
    SuperscriptBox[
     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], "2"], ".", 
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{
         FormBox["\<\"(\"\>",
          TraditionalForm], 
         FormBox[
          FormBox[
           RowBox[{
            RowBox[{"-", 
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"]}], "+", 
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "-", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], 
         FormBox["\<\")\"\>",
          TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SubsuperscriptBox["m", "e", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[-$CellContext`k + $CellContext`l - $CellContext`p], 
        FeynCalc`Momentum[-$CellContext`k + $CellContext`l - $CellContext`p]],
        "-", FeynCalc`SMP["m_e"]^2],
      Editable->False], ")"}]}]], TraditionalForm]], "Print",
 CellChangeTimes->{3.8298253413633747`*^9, 3.8339146895081277`*^9, 
  3.8346901350430613`*^9, 3.8347878188942633`*^9, 3.8348298605435967`*^9, 
  3.834968977523409*^9, 3.835130202380426*^9, 3.839422240733749*^9, 
  3.841185042433325*^9, 3.841267726272946*^9, 3.84269081452958*^9, 
  3.842693681422256*^9, 3.842950603543937*^9, 3.843644502332403*^9, 
  3.845987996638056*^9, 3.846025821277183*^9, 3.8460610227644215`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "We", " ", "put", " ", "the", " ", "mass", " ", "of", " ", "the", " ", 
   "fermion", " ", "zero", " ", "to", " ", "work", " ", "in", " ", "the", " ",
    "massless", " ", "regime"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8298254627404275`*^9, 3.8298254900140715`*^9}, {
  3.842690837871276*^9, 3.8426908536061563`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectronB2massless", "=", 
  RowBox[{"FeynmangaugeamplElectronB2", "//.", 
   RowBox[{
    RowBox[{"SMP", "[", "\"\<m_e\>\"", "]"}], "\[Rule]", "0"}]}]}]], "Input",
 CellChangeTimes->{{3.829825369404157*^9, 3.829825406015504*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    RowBox[{"tr", "(", 
     FormBox[
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
              FormBox[
               OverscriptBox[
                FormBox["k",
                 TraditionalForm], "_"],
               TraditionalForm]}], ")"}]}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Nu]",
             TraditionalForm],
            TraditionalForm]], ".", 
          RowBox[{"(", 
           RowBox[{
            OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
            FormBox[
             FormBox[
              RowBox[{
               RowBox[{"-", 
                OverscriptBox[
                 FormBox["k",
                  TraditionalForm], "_"]}], "+", 
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"], "-", 
               OverscriptBox[
                FormBox["p",
                 TraditionalForm], "_"]}],
              TraditionalForm],
             TraditionalForm], ")"}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Beta]",
             TraditionalForm],
            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], ".", 
    SuperscriptBox[
     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], "2"], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          RowBox[{"-", 
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"]}], "+", 
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[-$CellContext`k + $CellContext`l - $CellContext`p], 
       FeynCalc`Momentum[-$CellContext`k + $CellContext`l - $CellContext`p]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8298254074314423`*^9, 3.833914689708416*^9, 
  3.8346901351850696`*^9, 3.8347878190162697`*^9, 3.8348298606188507`*^9, 
  3.8349689776434193`*^9, 3.8351302024609137`*^9, 3.839422240816752*^9, 
  3.8411850531173267`*^9, 3.841267732215866*^9, 3.842690823822947*^9, 
  3.842693681657518*^9, 3.842950604978569*^9, 3.843644504434004*^9, 
  3.8459879966780577`*^9, 3.846025821335187*^9, 3.8460610228284283`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"Let", "'"}], "s", " ", "define", " ", "then", " ", "the", " ", 
    "general", " ", "shift", " ", "l"}], "\[Rule]", 
   RowBox[{"l", "+", 
    RowBox[{"p", " ", "for", " ", "each", " ", "part"}]}]}], "*)"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ShiftA", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], "->", 
     RowBox[{"Momentum", "[", 
      RowBox[{"l", "+", "p"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShiftB", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", 
       RowBox[{
        RowBox[{"-", "k"}], "+", "l", "-", "p"}], "]"}], "]"}], "->", 
     RowBox[{"(", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", 
        RowBox[{
         RowBox[{"-", "k"}], "+", "l"}], "]"}], "]"}], ")"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShiftC", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", 
      RowBox[{"l", "-", "p"}], "]"}], "->", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShiftD", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Momentum", "[", 
      RowBox[{
       RowBox[{"-", "k"}], "+", "l", "-", "p"}], "]"}], "->", 
     RowBox[{"Momentum", "[", 
      RowBox[{
       RowBox[{"-", "k"}], "+", "l"}], "]"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8411847526335073`*^9, 3.841184810940138*^9}, {
  3.841184846626646*^9, 3.841184864531533*^9}, {3.841185183935088*^9, 
  3.841185200317313*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Sadly", ",", " ", 
   RowBox[{
    RowBox[{
    "in", " ", "a", " ", "define", " ", "the", " ", "general", " ", "shift", 
     " ", "l"}], "\[Rule]", 
    RowBox[{"l", "+", 
     RowBox[{
     "p", " ", "in", " ", "separated", " ", "parts", " ", "because", " ", 
      "if", " ", "not", " ", "I", " ", "have", " ", "conflicts", " ", "with", 
      " ", "the", " ", "substitution", " ", "after"}]}]}]}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ElectronB2masslessSHIFA", "=", 
   RowBox[{"ElectronB2massless", "//.", "ShiftA"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ElectronB2masslessSHIFB", "=", 
   RowBox[{"ElectronB2masslessSHIFA", "//.", "ShiftB"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ElectronB2masslessSHIFC", "=", 
   RowBox[{"ElectronB2masslessSHIFB", "//.", "ShiftC"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ElectronB2masslessSHIFD", "=", 
  RowBox[{"ElectronB2masslessSHIFC", "//.", "ShiftD"}]}]}], "Input",
 CellChangeTimes->{3.8411850730759087`*^9}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "+", 
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], ")"}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", 
    RowBox[{"tr", "(", 
     FormBox[
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
              FormBox[
               OverscriptBox[
                FormBox["k",
                 TraditionalForm], "_"],
               TraditionalForm]}], ")"}]}], ")"}], ".", 
          SuperscriptBox[
           OverscriptBox["\[Gamma]", "_"], 
           FormBox[
            FormBox["\[Nu]",
             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["\[Beta]",
             TraditionalForm],
            TraditionalForm]]}]}], ")"}]}],
      TraditionalForm], ")"}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"], "-", 
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[-$CellContext`k + $CellContext`l], 
       FeynCalc`Momentum[-$CellContext`k + $CellContext`l]]],
     Editable->False]}]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.841185086704297*^9, {3.841185189537187*^9, 3.841185204787533*^9}, 
   3.841267736971393*^9, 3.84269086089146*^9, 3.842693682017995*^9, 
   3.842950609529002*^9, 3.843644507950103*^9, 3.8459879967470684`*^9, 
   3.846025821402192*^9, 3.846061022903939*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronB2Amassless", "=", 
  RowBox[{"DiracSimplify", "[", "ElectronB2masslessSHIFD", "]"}]}]], "Input",
 CellChangeTimes->{{3.8298254333568277`*^9, 3.829825447199935*^9}, 
   3.841185230474147*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], " ", 
       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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     TraditionalForm]}], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}]}], 
      RowBox[{
       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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.846021022998145*^9, 3.8460258216002073`*^9, 
  3.8460610230429506`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "When", " ", "we", " ", "do", " ", "DiracSimplify", " ", "after", " ", 
    "the", " ", "shift"}], ",", " ", 
   RowBox[{
   "FeynCalc", " ", "resolves", " ", "the", " ", "trace", " ", "and", " ", 
    "do", " ", "after", " ", "the", " ", "products", " ", "with", " ", "the", 
    " ", "part", " ", "outside", " ", "the", " ", 
    RowBox[{"trace", ".", " ", "That"}], " ", "process", " ", "give", " ", 
    "us", " ", "10", " ", "different", " ", 
    RowBox[{"terms", ".", " ", "From"}], " ", "those", " ", "10", " ", 
    "terms"}], ",", " ", 
   RowBox[{
   "we", " ", "need", " ", "to", " ", "be", " ", "careful", " ", "with", " ", 
    "the", " ", "ones", " ", "that", " ", "have", " ", 
    RowBox[{"(", 
     RowBox[{"or", " ", "give"}], ")"}], " ", 
    RowBox[{"k", "^", "2"}], " ", 
    RowBox[{"terms", ".", " ", "In"}], " ", "IREG"}], ",", " ", 
   RowBox[{
   "symmetric", " ", "integration", " ", "is", " ", "not", " ", "allowed", 
    " ", "in", " ", "divergent", " ", "integrals", " ", "so", " ", "the", " ",
     "integral", " ", "with", " ", 
    StyleBox[
     SuperscriptBox[
      OverscriptBox["g", "_"], 
      RowBox[{
       FormBox[
        FormBox["\[Alpha]",
         TraditionalForm],
        TraditionalForm], 
       FormBox[
        FormBox["\[Beta]",
         TraditionalForm],
        TraditionalForm]}]],
     FontColor->GrayLevel[0],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[" ",
     FontColor->GrayLevel[0],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]],
     FontColor->GrayLevel[0],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[" ",
     FontColor->GrayLevel[0],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]],
     FontColor->GrayLevel[0],
     Background->RGBColor[1, 0.85, 0.85]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["is",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["not",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["the",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["same",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[" ",
     FontColor->RGBColor[1, 0, 0]], "as", " ", "the", " ", "integral", " ", 
    "with", " ", 
    StyleBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     FontColor->GrayLevel[0],
     Background->RGBColor[0.88, 1, 0.88]]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.846061091213162*^9, 3.8460610918943367`*^9}, {
  3.846061232267295*^9, 3.8460613199307337`*^9}, {3.8460613868336573`*^9, 
  3.8460614383390565`*^9}, {3.8460614745881214`*^9, 3.846061483000108*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\"\<e\>\"", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\"\<\[CenterDot]\>\"",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], " ", 
       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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     TraditionalForm]}], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\"\<e\>\"", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\"\<\[CenterDot]\>\"",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    StyleBox[
     FractionBox[
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\"\<e\>\"", "4"], " ", 
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     Background->RGBColor[0.88, 1, 0.88]],
    TraditionalForm], "+", 
   FormBox[
    StyleBox[
     FractionBox[
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\"\<e\>\"", "4"], " ", 
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"], " ", 
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Gamma]", "_"], 
         FormBox[
          FormBox["\[Nu]",
           TraditionalForm],
          TraditionalForm]], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        SuperscriptBox[
         OverscriptBox["\[Gamma]", "_"], 
         FormBox[
          FormBox["\[Nu]",
           TraditionalForm],
          TraditionalForm]]}]}], 
      RowBox[{
       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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     Background->RGBColor[0.88, 1, 0.88]],
    TraditionalForm], "+", 
   FormBox[
    RowBox[{"-", 
     StyleBox[
      FractionBox[
       RowBox[{"8", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox["\"\<e\>\"", "4"], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm]}], ")"}], ".", 
         RowBox[{"(", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm]}], ")"}], ".", 
         RowBox[{"(", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm]}], ")"}]}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      Background->RGBColor[1, 0.85, 0.85]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\"\<e\>\"", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    StyleBox[
     FractionBox[
      RowBox[{"8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\"\<e\>\"", "4"], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}]}], 
      RowBox[{
       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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     Background->RGBColor[1, 0.85, 0.85]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\"\<e\>\"", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\"\<e\>\"", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\"\<e\>\"", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm]}], TraditionalForm]], "Input",
 CellChangeTimes->{3.8460210154372454`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", "\<\"\[CenterDot]\"\>", " ", 
      OverscriptBox["k", "_"], " ", 
      OverscriptBox["l", "_"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], "\[Nu]"], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         OverscriptBox["l", "_"]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], "\[Nu]"]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]]}], "-", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", "\<\"\[CenterDot]\"\>", " ", 
     OverscriptBox["k", "_"], " ", 
     OverscriptBox["l", "_"], " ", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], "\[Nu]"], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["p", "_"]}], ")"}], ".", 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], "\[Nu]"]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     SuperscriptBox[
      OverscriptBox["k", "_"], "2"], " ", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], "\[Nu]"], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}], ".", 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], "\[Nu]"]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     SuperscriptBox[
      OverscriptBox["k", "_"], "2"], " ", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], "\[Nu]"], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["p", "_"]}], ")"}], ".", 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], "\[Nu]"]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "-", 
   FractionBox[
    RowBox[{"8", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "-", 
   FractionBox[
    RowBox[{"8", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["p", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["p", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]], "+", 
   FractionBox[
    RowBox[{"4", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["l", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["p", "_"]}], ")"}], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        OverscriptBox["k", "_"]}], ")"}]}]}], 
    RowBox[{
     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], ".", 
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k], 
        FeynCalc`Momentum[$CellContext`k]]],
      Editable->False], ".", 
     SuperscriptBox[
      RowBox[{"(", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`l], 
          FeynCalc`Momentum[$CellContext`l]]],
        Editable->False], ")"}], "2"], ".", 
     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]}]]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.846025821772004*^9, 3.8460610232019615`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Notice", " ", "this"}], "..."}], " ", "the", " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Beta]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", "and", " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Beta]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}], " ", "in", " ", "fact", " ", "they", " ", "will", 
    " ", "generate", "  ", 
    SuperscriptBox[
     OverscriptBox["g", "_"], 
     RowBox[{
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]}]], " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Alpha]",
       TraditionalForm],
      TraditionalForm]], " ", 
    RowBox[{
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", " ", "Again"}]}], ",", " ", 
   RowBox[{
    RowBox[{"in", " ", "IREG", "  ", 
     SuperscriptBox[
      OverscriptBox["g", "_"], 
      RowBox[{
       FormBox[
        FormBox["\[Alpha]",
         TraditionalForm],
        TraditionalForm], 
       FormBox[
        FormBox["\[Beta]",
         TraditionalForm],
        TraditionalForm]}]], " ", 
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Alpha]",
        TraditionalForm],
       TraditionalForm]], " ", 
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]]}], " ", "=", 
    RowBox[{"/=", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"], ".", " ", "The"}], " ", "first", " ", "is", 
      " ", "a", " ", "finite", " ", "term", " ", "while", " ", "the", " ", 
      "other", " ", "generates", " ", "an", " ", "Iquad", " ", "term", " ", 
      "that", " ", "is", " ", 
      RowBox[{"null", ".", " ", "At"}], " ", "this", " ", "point"}]}]}], ",", 
   " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"it", "'"}], "ll", " ", "be", " ", "interesting", " ", "to", 
      " ", "create", " ", "a", " ", "little", " ", "function", " ", "that", 
      " ", "takes", " ", "the", " ", "previous", " ", "expression", " ", 
      "and", " ", "separates", " ", "this", " ", "terms"}], "..."}], " ", 
    "but", " ", "here", " ", "we", " ", "will", " ", "do", " ", "it", " ", 
    "step", " ", "by", " ", "step"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.843642853274871*^9, 3.843642863215686*^9}, {
   3.843642915007821*^9, 3.843643077471095*^9}, {3.843644014638916*^9, 
   3.843644073982082*^9}, 3.8460181745630445`*^9, {3.846061571311061*^9, 
   3.8460616030560646`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "integrals", " ", "with", " ", "the", " ", "ksquared", " ", 
   "terms"}], "*)"}]], "Input",
 CellChangeTimes->{{3.843647865439692*^9, 3.843647876632745*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IquadWithL", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"DiracGamma", "[", 
     RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "l", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], "]"}]}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.843647902698184*^9, 3.84364790783401*^9}, {
  3.843647948427305*^9, 3.8436479946504793`*^9}, {3.843648109854558*^9, 
  3.843648117738723*^9}, {3.846022756478292*^9, 3.8460227925583563`*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], "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[
      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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.843648132336646*^9, 3.845987996962084*^9, {3.8460227764207425`*^9, 
   3.8460227941959257`*^9}, 3.846025821838686*^9, 3.84606102327813*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IquadWithP", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"DiracGamma", "[", 
     RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "p", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"LorentzIndex", "[", "\[Nu]", "]"}], "]"}]}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8436481418658*^9, 3.8436481502492237`*^9}, {
  3.846022811413083*^9, 3.8460228150403757`*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], "2"], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.843648151039193*^9, 3.845987996987087*^9, 
  3.8460228155993404`*^9, 3.846025821857686*^9, 3.8460610233011303`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FiniteWithL", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "l", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}]}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.843648178734589*^9, 3.843648210763022*^9}, {
  3.8460242067728977`*^9, 3.8460242340168285`*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["l",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8436482121414623`*^9, 3.8459879970160885`*^9, 
  3.846024234598481*^9, 3.8460258218776913`*^9, 3.84606102334561*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FiniteWithP", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "p", "]"}], "]"}], ".", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}]}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8436482338654137`*^9, 3.843648237656775*^9}, {
  3.846024261374968*^9, 3.846024264136467*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8436482404629993`*^9, 3.845987997039089*^9, 
  3.8460242647110415`*^9, 3.8460258218975677`*^9, 3.8460610233676095`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"The", " ", "remplacements"}], "*)"}]], "Input",
 CellChangeTimes->{{3.843647879393512*^9, 3.843647886009248*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"IquadWithLReplace", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IquadWithPReplace", "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.843648269080545*^9, 3.843648288424179*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "This", " ", "results", " ", "are", " ", "already", " ", "taking", " ", 
    "the", " ", "uv"}], "-", 
   RowBox[{"part", " ", "that", " ", "comes", " ", "from", " ", "the", "  ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Beta]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.843653876343925*^9, 3.843653918884211*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Beta]",
       TraditionalForm],
      TraditionalForm]], " ", 
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm], 
     FormBox[
      FormBox["\[Nu]",
       TraditionalForm],
      TraditionalForm]], " ", 
    RowBox[{
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], ".", 
     RowBox[{"(", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}], ")"}], ".", 
     SuperscriptBox[
      OverscriptBox["\[Gamma]", "_"], 
      FormBox[
       FormBox["\[Nu]",
        TraditionalForm],
       TraditionalForm]]}]}], " ", "\[Rule]", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox[
       OverscriptBox[
        RowBox[{" ", "\[Gamma]"}], "_"], 
       FormBox[
        FormBox["\[Beta]",
         TraditionalForm],
        TraditionalForm]], ".", 
      RowBox[{"(", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], ".", 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Nu]",
         TraditionalForm],
        TraditionalForm]]}], 
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       FormBox["\[Beta]",
        TraditionalForm],
       TraditionalForm]], " ", 
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox[
       RowBox[{
        FormBox["\[Nu]",
         TraditionalForm], " "}],
       TraditionalForm]]}], " ", "\[Rule]", "  ", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       OverscriptBox[
        RowBox[{" ", "\[Gamma]"}], "_"], 
       FormBox[
        FormBox["\[Beta]",
         TraditionalForm],
        TraditionalForm]], 
      SuperscriptBox[
       OverscriptBox[
        RowBox[{" ", "\[Gamma]"}], "_"], 
       FormBox["\[Alpha]",
        TraditionalForm]], 
      SubscriptBox["l", "\[Alpha]"], 
      SubscriptBox["k", "\[Beta]"], 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Nu]",
         TraditionalForm],
        TraditionalForm]], 
      SubscriptBox["k", "\[Nu]"]}], " ", "\[Rule]", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", 
         SuperscriptBox["g", 
          FormBox[
           FormBox["\[Alpha]\[Beta]",
            TraditionalForm],
           TraditionalForm]]}], "-", 
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Gamma]", "_"], 
          FormBox[
           FormBox["\[Alpha]",
            TraditionalForm],
           TraditionalForm]], 
         SuperscriptBox[
          OverscriptBox["\[Gamma]", "_"], 
          FormBox[
           FormBox["\[Beta]",
            TraditionalForm],
           TraditionalForm]]}]}], ")"}], 
      SubscriptBox["l", "\[Alpha]"], 
      SubscriptBox["k", "\[Beta]"], 
      SuperscriptBox[
       OverscriptBox["\[Gamma]", "_"], 
       FormBox[
        FormBox["\[Nu]",
         TraditionalForm],
        TraditionalForm]], 
      SubscriptBox["k", "\[Nu]"]}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.843653924950554*^9, 3.843654111905674*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FiniteWithLReplace", "=", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", "l", "]"}], ",", 
      RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], "*", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}], 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "12"], "*", 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.8436482964402647`*^9, 3.843648420281625*^9}, 
   3.846024323317362*^9, 3.8460257251776447`*^9, {3.8460258063611865`*^9, 
   3.8460258064679193`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   RowBox[{
    FractionBox["1", "12"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.843648422298643*^9, 3.845987997175104*^9, 
  3.8460243264554567`*^9, 3.8460258219947157`*^9, 3.8460610234616194`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FiniteWithPReplace", "=", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", "p", "]"}], ",", 
      RowBox[{"Momentum", "[", "k", "]"}]}], "]"}], "*", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}], 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "6"], "*", 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.843648303512785*^9, 3.843648305736846*^9}, {
   3.84364845207456*^9, 3.843648481032243*^9}, 3.846025719081339*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   RowBox[{
    FractionBox["1", "6"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.843648481725753*^9, 3.845987997200102*^9, 
  3.84602582202332*^9, 3.846061023486619*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "SubRules", " ", "for", " ", "the", " ", "replacement", " ", "of", " ", 
   "ksquared", " ", "integrals"}], "*)"}]], "Input",
 CellChangeTimes->{{3.843648499960313*^9, 3.843648505288289*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SubRuleNullTerms", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"IquadWithL", "->", "IquadWithLReplace"}], ",", 
    RowBox[{"IquadWithP", "->", "IquadWithPReplace"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8436485201527777`*^9, 3.843648558616886*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "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[
          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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", "0"}], ",", 
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"], " ", 
        RowBox[{
         SuperscriptBox[
          OverscriptBox["\[Gamma]", "_"], 
          FormBox[
           FormBox["\[Nu]",
            TraditionalForm],
           TraditionalForm]], ".", 
         RowBox[{"(", 
          RowBox[{
           OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
           FormBox[
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"],
            TraditionalForm]}], ")"}], ".", 
         SuperscriptBox[
          OverscriptBox["\[Gamma]", "_"], 
          FormBox[
           FormBox["\[Nu]",
            TraditionalForm],
           TraditionalForm]]}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", "0"}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.843648559234282*^9, 3.8459879972451057`*^9, 
  3.8460246515541396`*^9, 3.8460258220573225`*^9, 3.8460610235246215`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SubRuleFiniteTerms", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"FiniteWithL", "->", "FiniteWithLReplace"}], ",", 
    RowBox[{"FiniteWithP", "->", "FiniteWithPReplace"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.843648572536057*^9, 3.843648599591939*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      FormBox[
       FractionBox[
        RowBox[{"2", " ", 
         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[
           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], ".", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`k], 
            FeynCalc`Momentum[$CellContext`k]]],
          Editable->False], ".", 
         SuperscriptBox[
          RowBox[{"(", 
           InterpretationBox[
            SuperscriptBox[
             FormBox[
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"],
              TraditionalForm], "2"],
            SequenceForm[
             FeynCalc`Pair[
              FeynCalc`Momentum[$CellContext`l], 
              FeynCalc`Momentum[$CellContext`l]]],
            Editable->False], ")"}], "2"], ".", 
         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]}]],
       TraditionalForm], "-", 
      RowBox[{
       FractionBox["1", "12"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}]}], ",", 
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      FormBox[
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], " ", 
         RowBox[{"(", 
          RowBox[{
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], 
           FormBox["\<\"\[CenterDot]\"\>",
            TraditionalForm], 
           FormBox[
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"],
            TraditionalForm]}], ")"}]}], 
        RowBox[{
         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], ".", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`k], 
            FeynCalc`Momentum[$CellContext`k]]],
          Editable->False], ".", 
         SuperscriptBox[
          RowBox[{"(", 
           InterpretationBox[
            SuperscriptBox[
             FormBox[
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"],
              TraditionalForm], "2"],
            SequenceForm[
             FeynCalc`Pair[
              FeynCalc`Momentum[$CellContext`l], 
              FeynCalc`Momentum[$CellContext`l]]],
            Editable->False], ")"}], "2"], ".", 
         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]}]],
       TraditionalForm], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}]}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.843648600723501*^9, 3.8459879973011093`*^9, 
  3.84602465519878*^9, 3.8460258223163433`*^9, 3.846061023574626*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AmplitudeWithoutIquads", "=", 
  RowBox[{
  "AlgebraDiracElectronB2Amassless", "//.", "SubRuleNullTerms"}]}]], "Input",
 CellChangeTimes->{{3.8436487280406427`*^9, 3.84364873517706*^9}, {
  3.843653444114459*^9, 3.843653458833313*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"4", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], " ", 
       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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     TraditionalForm]}], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    RowBox[{"-", 
     FractionBox[
      RowBox[{"8", " ", "\[ImaginaryI]", " ", 
       SuperscriptBox["\<\"e\"\>", "4"], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}]}], 
      RowBox[{
       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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.843653461549819*^9, 3.845987997380121*^9, 
  3.846024667002036*^9, 3.846025822583364*^9, 3.8460610236396303`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AmplitudeWithFiniteterms", "=", 
  RowBox[{"AmplitudeWithoutIquads", "//.", "SubRuleFiniteTerms"}]}]], "Input",
 CellChangeTimes->{{3.843653516017673*^9, 3.843653537473977*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    RowBox[{"8", " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\<\"e\"\>", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       FormBox[
        FractionBox[
         RowBox[{"2", " ", 
          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[
            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], ".", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["k",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`k], 
             FeynCalc`Momentum[$CellContext`k]]],
           Editable->False], ".", 
          SuperscriptBox[
           RowBox[{"(", 
            InterpretationBox[
             SuperscriptBox[
              FormBox[
               OverscriptBox[
                FormBox["l",
                 TraditionalForm], "_"],
               TraditionalForm], "2"],
             SequenceForm[
              FeynCalc`Pair[
               FeynCalc`Momentum[$CellContext`l], 
               FeynCalc`Momentum[$CellContext`l]]],
             Editable->False], ")"}], "2"], ".", 
          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]}]],
        TraditionalForm], "-", 
       RowBox[{
        FractionBox["1", "12"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}]}]}], ")"}]}]}], "-", 
   RowBox[{"8", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FormBox[
       FractionBox[
        RowBox[{"2", " ", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm]}], " ", 
         RowBox[{"(", 
          RowBox[{
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], 
           FormBox["\<\"\[CenterDot]\"\>",
            TraditionalForm], 
           FormBox[
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"],
            TraditionalForm]}], ")"}]}], 
        RowBox[{
         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], ".", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["k",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`k], 
            FeynCalc`Momentum[$CellContext`k]]],
          Editable->False], ".", 
         SuperscriptBox[
          RowBox[{"(", 
           InterpretationBox[
            SuperscriptBox[
             FormBox[
              OverscriptBox[
               FormBox["l",
                TraditionalForm], "_"],
              TraditionalForm], "2"],
            SequenceForm[
             FeynCalc`Pair[
              FeynCalc`Momentum[$CellContext`l], 
              FeynCalc`Momentum[$CellContext`l]]],
            Editable->False], ")"}], "2"], ".", 
         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]}]],
       TraditionalForm], "+", 
      RowBox[{
       FractionBox["1", "6"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.843653539469286*^9, 3.845987997465124*^9, 
  3.8460246803448057`*^9, 3.846025822858385*^9, 3.846061023724636*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronC2Amassless", "=", 
  RowBox[{"DiracSimplify", "[", "AmplitudeWithFiniteterms", "]"}]}]], "Input",
 CellChangeTimes->{{3.833916466984741*^9, 3.8339164715228176`*^9}, 
   3.8436535709941072`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"16", " ", "\[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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    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["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"16", " ", "\[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["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   RowBox[{
    FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "b", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.833916476660726*^9, 3.83469013546609*^9, 
  3.834787819315294*^9, 3.8348298608918715`*^9, 3.834968977943452*^9, 
  3.835130202784938*^9, 3.8394222410547705`*^9, 3.841185254843214*^9, 
  3.8412677427647953`*^9, 3.842690865540909*^9, 3.8426936824661922`*^9, 
  3.842950619887887*^9, 3.8436535742785482`*^9, 3.845987997636135*^9, 
  3.8460246931988344`*^9, 3.846025823138916*^9, 3.8460610238806505`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronD2Amassless", "=", 
  RowBox[{
  "DiracSimplify", "[", "AlgebraDiracElectronC2Amassless", "]"}]}]], "Input",
 CellChangeTimes->{{3.833916506858828*^9, 3.8339165106749835`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"16", " ", "\[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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    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["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"16", " ", "\[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["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   RowBox[{
    FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "b", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8339165118275757`*^9, 3.834690135582102*^9, 
  3.8347878194273005`*^9, 3.834829861008881*^9, 3.8349689780614557`*^9, 
  3.835130202891946*^9, 3.8394222411547785`*^9, 3.8411852627763076`*^9, 
  3.8412677441928453`*^9, 3.842690867327881*^9, 3.842693682779915*^9, 
  3.8429506231818027`*^9, 3.843653589146132*^9, 3.8459879977531443`*^9, 
  3.8460247009279976`*^9, 3.8460258234279375`*^9, 3.846061024063341*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"The", " ", "integral", " ", "of", " ", 
    RowBox[{"kslash", ".", "pslash", ".", "lslash"}], " ", "IS", " ", "NOT", 
    " ", "the", " ", "same", " ", "as", " ", 
    RowBox[{"lslash", ".", "pslash", ".", "kslash", ".", " ", "We"}], " ", 
    "simplify", " ", "this", " ", "term", " ", "by", " ", "hand", " ", "and", 
    " ", "now"}], ",", " ", 
   RowBox[{"we", " ", "will", " ", "do", " ", "that", " ", "replacement"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.842690884283547*^9, 3.842690945722501*^9}, {
  3.842691346908452*^9, 3.842691349452407*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"The", " ", "\"\<slashed\>\"", " ", "integrals"}], "*)"}]], "Input",
 CellChangeTimes->{{3.842691389252338*^9, 3.842691399612673*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SlashedIntegrals", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"4", " ", "I"}], ")"}], " ", 
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "k", "]"}], "]"}], ".", 
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], ".", 
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "l", "]"}], "]"}]}], 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "4"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"4", " ", "I"}], ")"}], " ", 
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "l", "]"}], "]"}], ".", 
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], ".", 
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "k", "]"}], "]"}]}], 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], " ", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "4"}]}]}]}]], "Input",
 CellChangeTimes->{{3.842691419873872*^9, 3.842691464461302*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"4", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.84269146835811*^9, 3.842693683255179*^9, 
  3.8429506298497267`*^9, 3.843653594186602*^9, 3.845987997837149*^9, 
  3.8460247160624666`*^9, 3.846025823721959*^9, 3.846061024141347*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "Replacement", "*)"}]], "Input",
 CellChangeTimes->{{3.84269138330173*^9, 3.842691386764411*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rewriteslashterms", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{"8", " ", "I"}], ")"}]}], 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", "k", "]"}], ",", 
      RowBox[{"Momentum", "[", "l", "]"}]}], "]"}], " ", 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", " ", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "p", "]"}], "]"}], " ", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "4"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"8", " ", "I"}], ")"}], 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", "k", "]"}], ",", 
      RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", " ", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "l", "]"}], "]"}], " ", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "4"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"8", " ", "I"}], ")"}], 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "k", "]"}], "]"}], " ", 
    RowBox[{"FeynAmpDenominator", "[", 
     RowBox[{
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", 
         RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", " ", 
      RowBox[{"PropagatorDenominator", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Momentum", "[", 
          RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"Momentum", "[", "l", "]"}], ",", 
      RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "4"}]}]}]}]], "Input",
 CellChangeTimes->{{3.842690959072163*^9, 3.842690964541498*^9}, {
  3.84269099668856*^9, 3.842691110334716*^9}, {3.842691162607895*^9, 
  3.842691179678512*^9}, {3.8426912188947287`*^9, 3.8426912747343082`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    RowBox[{"-", 
     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["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}], 
      RowBox[{
       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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]]}],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8426912772876997`*^9, 3.842693683532819*^9, 
  3.8429506481470795`*^9, 3.843653598540818*^9, 3.8459879979139867`*^9, 
  3.8460247201114345`*^9, 3.8460258239979806`*^9, 3.8460610242123528`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"SubRule", " ", "for", " ", "the", " ", "replacement"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.842691353804137*^9, 3.842691360732728*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SubRuleSlashTerms", "=", 
   RowBox[{"{", 
    RowBox[{"SlashedIntegrals", "->", "Rewriteslashterms"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.842691330812401*^9, 3.842691333228702*^9}, {
  3.842691365292872*^9, 3.842691376701631*^9}, {3.8426914775180264`*^9, 
  3.842691479836297*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AlgebraDiracElectronD3Amassless", "=", 
  RowBox[{
  "AlgebraDiracElectronD2Amassless", "//.", "SubRuleSlashTerms"}]}]], "Input",
 CellChangeTimes->{{3.842691516541155*^9, 3.842691529244627*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"16", " ", "\[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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"16", " ", "\[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["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   RowBox[{
    FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "b", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.8426915311811657`*^9, 3.842693683916657*^9, 3.842950671583674*^9, 
   3.843653604869996*^9, 3.8459879979989924`*^9, {3.846024725602935*^9, 
   3.846024732860535*^9}, 3.846025824296507*^9, 3.846061024298359*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrals for massless amplitude", "Subsection",
 CellChangeTimes->{{3.8298256702477865`*^9, 3.829825674649082*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "irrelevantmasslessIREG", ",", "loopsmassless", ",", 
     "THEUNIQUEIREGINTEGRALSmassless"}], "}"}], "=", 
   RowBox[{"FCLoopExtract", "[", 
    RowBox[{"AlgebraDiracElectronD3Amassless", ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "k"}], "}"}], ",", "loopHeadIREGmassless"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"IREGINTEGRALSEBmassless", "=", 
  RowBox[{"THEUNIQUEIREGINTEGRALSmassless", "/.", 
   RowBox[{"loopHeadIREGmassless", "\[Rule]", "Identity"}]}]}]}], "Input",
 CellChangeTimes->{{3.8298256797212152`*^9, 3.829825727851469*^9}, 
   3.8339165773558135`*^9, 3.842691641116983*^9}],

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[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["k",
               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], ".", 
       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], ",", 
    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[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["k",
               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], ".", 
       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], ",", 
    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["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["k",
               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], ".", 
       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], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], 
         FormBox["\<\"\[CenterDot]\"\>",
          TraditionalForm], 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["k",
               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], ".", 
       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], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm]}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["k",
               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], ".", 
       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], ",", 
    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[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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["l",
               TraditionalForm], "_"], "-", 
             OverscriptBox[
              FormBox["k",
               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], ".", 
       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.829825730336975*^9, 3.833914690080279*^9, 
  3.8339165825180225`*^9, 3.8346901356711073`*^9, 3.834787819506307*^9, 
  3.834829861102887*^9, 3.834968978157459*^9, 3.8351302029669514`*^9, 
  3.8394222412327857`*^9, 3.841185270586175*^9, 3.841267749984449*^9, 
  3.842691644404889*^9, 3.8426936842721*^9, 3.8429508589161634`*^9, 
  3.8436536169273357`*^9, 3.845987998065996*^9, 3.8460247831120996`*^9, 
  3.846025824582528*^9, 3.8460610243883657`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8339165349804*^9, 3.8339165589657373`*^9}, 
   3.8339166182485423`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Replacements", "Section",
 CellChangeTimes->{3.834690577437281*^9}],

Cell[CellGroupData[{

Cell["The full form of the amplitude (massless case)", "Subsection",
 CellChangeTimes->{3.834690590127492*^9}],

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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=", "FeynCalcForm"}], ";"}]], "Input"],

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"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "AlgebraDiracElectronD3Amassless", "]"}]], "Input",
 CellChangeTimes->{3.834690649580695*^9, 3.8412677721202636`*^9, 
  3.842691658284493*^9}],

Cell["\<\
-2 I                                        4
---- b Ilog\[Lambda]2 DiracGamma[Momentum[p]] SMP[e]  - 
 3
 
     (16 I) DiracGamma[Momentum[k]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l + p], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[-Momentum[k - l], 0]] 
 
                                           4
      Pair[Momentum[k], Momentum[l]] SMP[e]  + 
 
     (8 I) DiracGamma[Momentum[l]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l + p], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[-Momentum[k - l], 0]] 
 
                                           4
      Pair[Momentum[k], Momentum[l]] SMP[e]  - 
 
     (16 I) DiracGamma[Momentum[k]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l + p], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[-Momentum[k - l], 0]] 
 
                                           4
      Pair[Momentum[k], Momentum[p]] SMP[e]  + 
 
     (8 I) DiracGamma[Momentum[l]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l + p], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[-Momentum[k - l], 0]] 
 
                                           4
      Pair[Momentum[k], Momentum[p]] SMP[e]  + 
 
     (8 I) DiracGamma[Momentum[k]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l + p], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[-Momentum[k - l], 0]] 
 
                                           4
      Pair[Momentum[l], Momentum[l]] SMP[e]  + 
 
     (8 I) DiracGamma[Momentum[k]] 
 
      FeynAmpDenominator[PropagatorDenominator[Momentum[l + p], 0], 
 
       PropagatorDenominator[Momentum[k], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[Momentum[l], 0], 
 
       PropagatorDenominator[-Momentum[k - l], 0]] 
 
                                           4
      Pair[Momentum[l], Momentum[p]] SMP[e]\
\>", "Print",
 CellChangeTimes->{3.846061024558378*^9}]
}, 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"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$PrePrint", "=."}], ";"}]], "Input"],

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"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Print", "[", "AlgebraDiracElectronD3Amassless", "]"}]], "Input",
 CellChangeTimes->{3.841267785670395*^9, 3.8426916704758263`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FormBox[
     FractionBox[
      RowBox[{"16", " ", "\[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[
         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], ".", 
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k], 
          FeynCalc`Momentum[$CellContext`k]]],
        Editable->False], ".", 
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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]}]],
     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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{"16", " ", "\[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["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}], ")"}], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    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[
        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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "+", 
   FormBox[
    FractionBox[
     RowBox[{"8", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["\<\"e\"\>", "4"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["k",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      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], ".", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["k",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k], 
         FeynCalc`Momentum[$CellContext`k]]],
       Editable->False], ".", 
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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]}]],
    TraditionalForm], "-", 
   RowBox[{
    FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "b", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Print",
 CellChangeTimes->{3.83469073351085*^9, 3.834787819910339*^9, 
  3.834829861493185*^9, 3.834968978602495*^9, 3.835130203337636*^9, 
  3.8394222417068186`*^9, 3.841267787829976*^9, 3.8426916720971403`*^9, 
  3.842693685795972*^9, 3.842950896933303*^9, 3.8436536350634193`*^9, 
  3.845987998483031*^9, 3.846024809967741*^9, 3.846025825121951*^9, 
  3.8460610247473936`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integral results (massless case)", "Subsection",
 CellChangeTimes->{3.834691057693716*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"What", " ", "I", " ", "computed", " ", "by", " ", "hand"}], 
  "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NewReplace", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}], "12"]}], "*", 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "Ilog\[Lambda]2"}], 
     "12"], "b", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "-", 
   RowBox[{
    FractionBox["1", "6"], "*", 
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "Ilog\[Lambda]2", "*", 
    "b"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "12"], 
    "Ilog2\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"2", "*", "b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "9"], "Ilog\[Lambda]2"}],
    "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "12"], "*", 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "12"], "*", 
    "Ilog\[Lambda]2", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "6"], "*", 
    "Ilog\[Lambda]2"}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "Ilog\[Lambda]2", "*", 
     "b"}], "6"], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "Ilog2\[Lambda]2", "*",
      "b"}], "12"], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "Ilog\[Lambda]2", "*", 
     "b"}], "24"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "Ilog\[Lambda]2", "*", 
     "b", "*", "13"}], "72"]}]}]], "Input",
 CellChangeTimes->{{3.8349698725534525`*^9, 3.834969901544181*^9}, {
   3.834971115135374*^9, 3.8349711170766783`*^9}, {3.834971164214219*^9, 
   3.834971293668388*^9}, {3.8349713411079936`*^9, 3.83497135551812*^9}, {
   3.8349720178129416`*^9, 3.8349720290793495`*^9}, 3.834972172916769*^9, 
   3.835130137577916*^9, 3.8394219677943006`*^9, {3.8412685150223513`*^9, 
   3.841268795178649*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["1", "12"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8349713571639757`*^9, 3.8349720436196322`*^9, 
  3.8349721806106887`*^9, 3.8351302035072217`*^9, 3.8394222418538303`*^9, 
  3.8412687963598146`*^9, 3.8426920627795057`*^9, 3.842693686600906*^9, 
  3.842951056392815*^9, 3.84365363824804*^9, 3.8459879985310335`*^9, 
  3.846024814590971*^9, 3.846025825165953*^9, 3.846061024801396*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TheTrueFReplace", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"]}], "*", 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "2"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog2\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "2"], "*", "b", "*", 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.8349718738398457`*^9, 3.834971882352478*^9}, {
   3.8349720622164974`*^9, 3.8349721065802774`*^9}, {3.8349721953447065`*^9, 
   3.8349721956698127`*^9}, {3.835130171770297*^9, 3.835130180757059*^9}, 
   3.839421970571005*^9, 3.841268941738839*^9}],

Cell[BoxData[
 FormBox[
  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["7", "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.8349721091862154`*^9, 3.8349722019410095`*^9, 
  3.8351302035722265`*^9, 3.839422241883833*^9, 3.841268943491251*^9, 
  3.842692066429165*^9, 3.842693686731319*^9, 3.8429517636406164`*^9, 
  3.843653641426415*^9, 3.8459879985550337`*^9, 3.8460248170496764`*^9, 
  3.8460258254024353`*^9, 3.846061024828272*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D2RevisedReplace", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"]}], 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "4"], "Ilog\[Lambda]2", 
    "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "2"], "Ilog\[Lambda]2"}],
    "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "4"], 
    "Ilog2\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], "Ilog\[Lambda]2"}],
    "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "2"], 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.834972150671291*^9, 3.8349721607117577`*^9}, {
   3.8349723449724045`*^9, 3.834972346711185*^9}, {3.834972441503974*^9, 
   3.834972500064598*^9}, 3.83942197413367*^9, 3.8412689548249397`*^9, {
   3.8412690101967955`*^9, 3.841269055821446*^9}}],

Cell[BoxData[
 FormBox[
  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["7", "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.8349725059598618`*^9, 3.835130203590228*^9, 3.8394222419078355`*^9, 
   3.8412689570080185`*^9, {3.8412690452917395`*^9, 3.841269058022032*^9}, 
   3.842692070183928*^9, 3.84269368695606*^9, 3.842950977762723*^9, 
   3.843653644857718*^9, 3.84598799860504*^9, 3.846024819558061*^9, 
   3.8460258254484262`*^9, 3.8460610248722734`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DRevisedReplace", "=", 
  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"], "Ilog\[Lambda]2", 
    "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "4"], "Ilog\[Lambda]2"}],
    "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "8"], 
    "Ilog2\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "16"], 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"b", "*", 
      RowBox[{"DiracGamma", "[", 
       RowBox[{"Momentum", "[", "p", "]"}], "]"}]}], "4"], 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.834971998902158*^9, 3.8349720031825647`*^9}, 
   3.834972064787781*^9, {3.8412690639706593`*^9, 3.8412691442167716`*^9}}],

Cell[BoxData[
 FormBox[
  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["7", "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.8412691462857833`*^9, 3.842692072736699*^9, 
  3.842693687083108*^9, 3.842950980874879*^9, 3.843653649350132*^9, 
  3.8459879986560507`*^9, 3.846024821962302*^9, 3.846025825652442*^9, 
  3.8460610248986993`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"O1Replacement", "=", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], "Ilog\[Lambda]2", "*",
     "b", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], "*", "b", "*", 
    "Ilog2\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "16"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.842692079789969*^9, 3.842692120410995*^9}, {
  3.842692424186595*^9, 3.842692556445311*^9}, {3.842692600842856*^9, 
  3.842692601227373*^9}}],

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["11", "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.8426926095985813`*^9, 3.842693687447422*^9, 
  3.842951631105245*^9, 3.843653652851267*^9, 3.8459879986840415`*^9, 
  3.8460248237130475`*^9, 3.846025825861458*^9, 3.8460610249367037`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"O2Replacement", "=", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], 
    RowBox[{"Ilog\[Lambda]2", "^", "2"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], "Ilog\[Lambda]2", "*",
     "b", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "8"], "*", "b", "*", 
    "Ilog2\[Lambda]2"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "16"], "*", "b", "*", 
    "Ilog\[Lambda]2"}], "+", 
   RowBox[{
    FractionBox[
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "4"], "*", "b", "*", 
    "Ilog\[Lambda]2"}]}]}]], "Input",
 CellChangeTimes->{{3.842692122978581*^9, 3.842692128731113*^9}, 
   3.842692971164837*^9, {3.8460248256376143`*^9, 3.846024828686695*^9}}],

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["11", "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.8426929726639023`*^9, 3.842693687659464*^9, 
  3.842951720361493*^9, 3.8436536558836517`*^9, 3.8459879987130527`*^9, 
  3.846024830130638*^9, 3.8460258260685596`*^9, 3.846061024974368*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integral list (massless case)", "Subsection",
 CellChangeTimes->{3.8346910960027704`*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "To", " ", "use", " ", "it", " ", "after", " ", "in", " ", "the", " ", 
   "replacemetns"}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermNew", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "k", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8349718002326107`*^9, 3.834971802957281*^9}, {
  3.834971835362467*^9, 3.8349718646850414`*^9}, {3.841269458464241*^9, 
  3.841269491861356*^9}}],

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["p",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8349718658754377`*^9, 3.8351302037317514`*^9, 
  3.8394222420568466`*^9, 3.841269494848846*^9, 3.8426931062682734`*^9, 
  3.842693688085436*^9, 3.842951050397493*^9, 3.843653659706275*^9, 
  3.8459879987550497`*^9, 3.846024833147716*^9, 3.846025826109991*^9, 
  3.846061025013378*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermThetrueF", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "k", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.834972226862765*^9, 3.8349722756713147`*^9}, {
  3.8412695051269226`*^9, 3.8412695071314116`*^9}, {3.8412695389650364`*^9, 
  3.841269544662684*^9}}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["l",
        TraditionalForm], "_"],
      TraditionalForm], "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["k",
        TraditionalForm], "_"],
      TraditionalForm]}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.8349722768430653`*^9, 3.835130203754754*^9, 
  3.8394222420848475`*^9, 3.8412695473846736`*^9, 3.842693107967482*^9, 
  3.842693688201124*^9, 3.842951756611716*^9, 3.8436536618751383`*^9, 
  3.84598799878205*^9, 3.8460248343366137`*^9, 3.8460258261319933`*^9, 
  3.846061025034379*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermD2Revised", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8349723070199137`*^9, 3.8349723372380133`*^9}, {
  3.8412695569586735`*^9, 3.8412695588637695`*^9}, {3.841269597268777*^9, 
  3.8412696023827543`*^9}, {3.841269983964216*^9, 3.841269989480253*^9}}],

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[
      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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.834972338135117*^9, 3.8351302037807574`*^9, 
  3.8394222421152477`*^9, 3.841269604004471*^9, 3.841269991434289*^9, 
  3.84269310981931*^9, 3.842693688641294*^9, 3.8429509936145926`*^9, 
  3.843653664213298*^9, 3.8459879988050537`*^9, 3.8460248363125896`*^9, 
  3.8460258261553965`*^9, 3.8460610250573435`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermDRevised", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "k", "]"}], "]"}], 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8412696126506624`*^9, 3.841269646888217*^9}}],

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[
      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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.841269649305627*^9, 3.8426931119629297`*^9, 
  3.8426936888573627`*^9, 3.8429510337326555`*^9, 3.843653666089058*^9, 
  3.8459879988350563`*^9, 3.8460248381576333`*^9, 3.846025826178398*^9, 
  3.8460610250813437`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TermO1", "=", 
  RowBox[{
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "k", "]"}], ",", 
     RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", " ", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], " "}]}]], "Input",
 CellChangeTimes->{{3.842693023859302*^9, 3.842693028489756*^9}, 
   3.8426930722044697`*^9}],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       OverscriptBox[
        FormBox["p",
         TraditionalForm], "_"],
       TraditionalForm]}], ")"}], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["l",
        TraditionalForm], "_"],
      TraditionalForm]}]}], 
   RowBox[{
    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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.842693114689719*^9, 3.842693688967749*^9, 
  3.8429511129117994`*^9, 3.843653668634378*^9, 3.8459879988620567`*^9, 
  3.8460248397827387`*^9, 3.8460258262003994`*^9, 3.8460610251023455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term02", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "k", "]"}], "]"}], " ", 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "k", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", " ", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Momentum", "[", 
         RowBox[{"k", "-", "l"}], "]"}]}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.842693030639045*^9, 3.842693034026453*^9}, 
   3.842693093195895*^9}],

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[
      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], ".", 
    InterpretationBox[
     SuperscriptBox[
      FormBox[
       OverscriptBox[
        FormBox["k",
         TraditionalForm], "_"],
       TraditionalForm], "2"],
     SequenceForm[
      FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k], 
       FeynCalc`Momentum[$CellContext`k]]],
     Editable->False], ".", 
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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]}]], TraditionalForm]], "Output",
 CellChangeTimes->{3.842693120057056*^9, 3.842693689153965*^9, 
  3.842951124481022*^9, 3.843653670658353*^9, 3.8459879988870573`*^9, 
  3.846024841481471*^9, 3.846025826222087*^9, 3.846061025125354*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Substitution rule for Mathematica", "Subsection",
 CellChangeTimes->{{3.834972594664609*^9, 3.834972600070093*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SubRule", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"TermNew", "\[Rule]", "NewReplace"}], ",", 
    RowBox[{"TermThetrueF", "\[Rule]", "TheTrueFReplace"}], ",", 
    RowBox[{"TermD2Revised", "\[Rule]", "D2RevisedReplace"}], ",", 
    RowBox[{"TermDRevised", "\[Rule]", "DRevisedReplace"}], ",", 
    RowBox[{"TermO1", "\[Rule]", "O1Replacement"}], ",", 
    RowBox[{"Term02", "\[Rule]", "O2Replacement"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.834971094691041*^9, 3.8349711024333973`*^9}, {
   3.8349726189020567`*^9, 3.834972725347604*^9}, {3.841269662698615*^9, 
   3.8412698197685356`*^9}, {3.842693132394033*^9, 3.8426931822813683`*^9}, 
   3.8429517805584326`*^9}],

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["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", 
     RowBox[{
      FractionBox["1", "12"], " ", "b", " ", "Ilog\[Lambda]2", " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}]}], ",", 
    RowBox[{
     FormBox[
      FractionBox[
       RowBox[{
        SuperscriptBox[
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm], "2"], " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["k",
            TraditionalForm], "_"],
          TraditionalForm]}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", 
     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["7", "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]}]}]}]}], ",", 
    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[
          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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", 
     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["7", "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]}]}]}]}], ",", 
    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[
          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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      TraditionalForm], "\[Rule]", 
     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["7", "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["p",
             TraditionalForm], "_"],
           TraditionalForm]}], ")"}], " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}]}], 
       RowBox[{
        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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      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["11", "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[
          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], ".", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["k",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k], 
           FeynCalc`Momentum[$CellContext`k]]],
         Editable->False], ".", 
        SuperscriptBox[
         RowBox[{"(", 
          InterpretationBox[
           SuperscriptBox[
            FormBox[
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"],
             TraditionalForm], "2"],
           SequenceForm[
            FeynCalc`Pair[
             FeynCalc`Momentum[$CellContext`l], 
             FeynCalc`Momentum[$CellContext`l]]],
           Editable->False], ")"}], "2"], ".", 
        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]}]],
      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["11", "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.8349731469724584`*^9, 3.8351302038757644`*^9, 
  3.8394222422172565`*^9, 3.8412698215055857`*^9, 3.8412699973193493`*^9, 
  3.8426931856204243`*^9, 3.842693689334249*^9, 3.8429517889798512`*^9, 
  3.843653673012909*^9, 3.8459879989720645`*^9, 3.846024845640777*^9, 
  3.8460258264386396`*^9, 3.846061025213361*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Regulated Amplitud with IREG (massless case)", "Subsection",
 CellChangeTimes->{3.8346911193155966`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegulatedAmplitude", "=", 
  RowBox[{"AlgebraDiracElectronD3Amassless", "//.", "SubRule"}]}]], "Input",
 CellChangeTimes->{{3.834973180019456*^9, 3.834973203795372*^9}, 
   3.8412698498215284`*^9, 3.842693207546299*^9, 3.8429518513554544`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"16", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    RowBox[{"(", 
     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["11", "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[{"16", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    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["7", "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[{"16", " ", "\[ImaginaryI]", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", 
    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["7", "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]}]}]}], ")"}]}], "-", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", 
    SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8349732057369547`*^9, 3.835130203976775*^9, 
  3.83942224229226*^9, 3.8412698526973553`*^9, 3.8412700025845428`*^9, 
  3.842693212381361*^9, 3.842693689573862*^9, 3.842951854314766*^9, 
  3.843653675185073*^9, 3.84598799905407*^9, 3.846024848564228*^9, 
  3.8460258266836576`*^9, 3.8460610252873645`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RegulatedElectronBubbleAmplitudeIREG", "=", 
  RowBox[{"Simplify", "[", "RegulatedAmplitude", "]"}]}]], "Input",
 CellChangeTimes->{{3.8349732118783875`*^9, 3.8349732302469177`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8349732314162917`*^9, 3.835130204044777*^9, 
  3.8394222423382635`*^9, 3.841270005903719*^9, 3.842693221230091*^9, 
  3.842693689604413*^9, 3.842951908938588*^9, 3.843653680386272*^9, 
  3.8459879990830736`*^9, 3.84602485206457*^9, 3.846025826708645*^9, 
  3.84606102531137*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["All counter-term part", "Subsection",
 CellChangeTimes->{{3.8412700633448224`*^9, 3.8412700693361473`*^9}}],

Cell[CellGroupData[{

Cell["Topology and diagram", "Subsubsection",
 CellChangeTimes->{{3.841270078764781*^9, 3.8412700814292216`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Topology", " ", "creation"}], "*)"}]], "Input",
 CellChangeTimes->{{3.841270200469741*^9, 3.8412702082304144`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Topology1LoopFermionicSelfEnergyCorrection", "=", 
   RowBox[{"CreateCTTopologies", "[", 
    RowBox[{"2", ",", 
     RowBox[{"1", "\[Rule]", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", "Topology1LoopFermionicSelfEnergyCorrection", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{3.8412701494680166`*^9}],

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.8426936997590923`*^9, 3.8429520813728437`*^9, 
  3.843653686540703*^9, 3.845987999494322*^9, 3.846025827061844*^9, 
  3.8460610256860876`*^9}],

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.8426936997590923`*^9, 3.8429520813728437`*^9, 
  3.843653686540703*^9, 3.845987999494322*^9, 3.846025827061844*^9, 
  3.846061025703087*^9}],

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.8426936997590923`*^9, 3.8429520813728437`*^9, 
  3.843653686540703*^9, 3.845987999494322*^9, 3.846025827061844*^9, 
  3.846061025719088*^9}],

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.8426936997590923`*^9, 3.8429520813728437`*^9, 
  3.843653686540703*^9, 3.845987999494322*^9, 3.846025827061844*^9, 
  3.84606102573409*^9}],

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.8426936997590923`*^9, 3.8429520813728437`*^9, 
  3.843653686540703*^9, 3.845987999494322*^9, 3.846025827061844*^9, 
  3.846061025746091*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"CorrectionForRainbowDiagramTopology", "=", 
   RowBox[{"Take", "[", 
    RowBox[{"Topology1LoopFermionicSelfEnergyCorrection", ",", 
     RowBox[{"{", "12", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "CorrectionForRainbowDiagramTopology", "]"}]}], "Input"],

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.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["T1",
             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}}], {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->{537.3333333333328, 537.3333333333334},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.842693700134837*^9, 3.8429520867237797`*^9, 
  3.843653689566465*^9, 3.845987999627326*^9, 3.84602582714685*^9, 
  3.8460610257760935`*^9}],

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.8412701627721786`*^9, 3.8426932582243977`*^9, 
  3.842693700137115*^9, 3.842952086733797*^9, 3.843653689569593*^9, 
  3.8459879996313257`*^9, 3.8460258271513844`*^9, 3.8460610257822704`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Field", " ", "insertion"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8412702148130755`*^9, 3.841270219074622*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"BubbleCounterTerms", "=", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"CorrectionForRainbowDiagramTopology", ",", "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[{"BubbleCounterTerms", ",", 
    RowBox[{"ColumnsXRows", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}]}], ",", 
    RowBox[{"Numbering", "\[Rule]", "Simple"}], ",", 
    RowBox[{"SheetHeader", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"256", ",", "256"}], "}"}]}]}], "]"}], ";"}]}], "Input"],

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., 10.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         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.889185614849188, 9.889185614849188}, 
          3.890764009125484, {3.1131074069185303`, 4.7408742270559525`}], 
         PolygonBox[{{7.5622640687119285`, 6.713735931288071}, {
          6.430893218813452, 7.279421356237309}, {6.996578643762691, 
          7.845106781186548}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {6.646784489160852, 6.646784489160852}, 
          ImageScaled[{1, 1}]], 
         CircleBox[{10.110814385150812, 9.889185614849188}, 
          3.890764009125484, {-1.5992815734661594`, 0.028485246671263065`}], 
         PolygonBox[{{13.286264068711928`, 7.5622640687119285`}, {
          12.72057864376269, 6.430893218813452}, {12.154893218813454`, 
          6.996578643762691}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {13.35321551083915, 6.646784489160852}, 
          ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJw9lQtQU1cexiGJiK1FpT4CJJD3Te4NiJFHYbF+orzaylOsjdsgRWxnfaCi
KOAiImhdYc2kWixoRBHcVQkYV/AVbctLpa5SBKO76iKiqKC2VgGbwGbXO+fM
3Dlz55y595z///t+n/iLjMR0jpOTU57j+d/8dqjxdpZhpLNhYkwXg+dBcT4Z
Ghnie7XzzbUMdJ5dpfYvZGjiiP9J6xlYi/uaww0ypAiLh+pzGDgJP6qU/iBD
lTRaJ1jD4N/lot5jL2RoofbHn8hkELuBMt8Ty1H6g++65C0McjcbLMXJckTL
9w5+U8qgcJv+srhYjo4HNxc9NTNws51qNzTLcfLeneWaawyyetyyY50VOPRl
weQJfQzKznW6RH2oQMFrzqw1wwy4oe+XuOUqIFn1bRDPcR+h+YSIW69Adc6V
Jzsc65FzWmqLBhSgH//8ZEovg+DWi0kBIgoRHJVa0shgoT0nWDSfgu7bsabc
PQzoSz4rBzMpbJji1jkuhcEsWchiwR4KboWhORukjvNqY0qrT1C4vfilvfUh
jc9z0js+bqPwx+/3tz44TuNr99EyzQMKfUFXw/yzachfrd19coSCxJq0mI6l
wQvhZU0UKnGEyr/n70vD2XVpvmqOEm076gtTp9Jofm26H7pCCbcocU+FK41b
2nHtR41K/O24xrfJmcYB33na5zeV2Pgp18s6okKKWv+ZfqoKVWdeCjbZVFhx
PvKvkYtU2G5J74ocVCHEuSExsEyFGZFVQmW/CrJnWe+G3FKhLm+nzmJVIe5p
3JE57jT69b8odp1TwfSHgYumcBoz2rl7ZuxWoTnvxuJDX9EwuiwdmpemwlnR
7cnYSqPGKaLlU1oF5+txK64baCyoatWbnirx29ZuZeNeGo9GDpcO/12JB6aO
JbtKaez2X5jh/JUSeVENdzId+18597xYoFQi0qnxM+8SGj+WcD05AxTsGfyw
uTtpmGdSnakNFApqZhbP0NO4Uh7gattOYdSlSJ9hpKHzTvXZpqPgN7ClY3kD
jcLTN16/CaGg7Zii/uRfNMJswy9b+RTqKga8ul0ZJOrP1rgOKzCU8NhycRYD
c3DVm0tWBZwKQyflZzGwhya2znPoxil1lZ+HQ/c+5VyLUK/A++tnpyX0OHRR
kZeWn67AeQHvQuAENe4GSq4GBCnQl89s3zldjaL77TXfcRSIc/E56heuRtSf
2/ftbHPoHLrJiZFqdPmdvRZmkINXV5laFqbGfMHsbdxFckR69i+bQKmxQJjw
pcJbDsP8A9ZeVzUapyZ7mnplmHJQYlU8ZLD/bGhWeK0Mp3M10tkO3fJW/2id
litDsfNv6wsOM3gyNub2s2gZnp6WeZ4oYXBwpuYXOV+GZ8sqV5U4fJfy01W3
24+keM6+Tx2ql09qkJL9tl2zqL5CKfleWkTzDku8FGfY/4U9Ptqb4Ckl5zl2
37T3VrcE37DnPdnzfbbtiARR7H1U7RH+jSsl5L5nCvzS1gU41tl65Ar9EpfZ
xaRekit3NG2XxaSeXSlb9m0uE5N6dy+1hd/PEJN+8JprPjgXI8bokrf9ir2k
HRNMiUk/TRkRiYMuYtLvJq7L+A8eiYgeNkUx48a0iIheKruN/8k+KMJ0Vk+B
S9sGuRtFRG9xP1lpY7QIW1k9frjW1mt3FxG9TraFeC+s9SF67jImie3TfbCZ
1buGU399/HFv4gftqdV3Dym98Yr1S/XI+sz4Y0JwWD81/Ro8IStESPxm/Hyo
c99NAVpYP1J3BeburwXErxWcx+FFsQLEs342Zp5qqqUExO+/FgYkrZ0kIDyo
L+a3jB0rILxwTxi+HMcRQMfyxFxdVrXB5kV483CNJeTCMy9YWR79qd/wOqzD
i/DKXDcKY5UX4dn5uEUxx9K8MIblnb8hfduB97ygYHkYsblpdVC1J+HlJ9Ee
vNUaT+hYnj4c/Mu7k854EN66d/Yk98/xQBjL47kdLypdO/lgWF5n/V5z5Fw2
n/D8uK+WvhHIJ7z/xzvL6f7xfJIHFmmHYXB0GrzZvLC5vykSvscneXLB//eu
7ul8kjf7ME9ZnsoneaQNio9VlfFJXq09dW2i9Tqf5NnPmw5PS7bzkcPm3bq6
Zt1+vgfJw4bTGXNbhR4kL+c2P3IzvONB8nTjG0va0Xt8krdLAj9KL6/gkzzm
LdDfXZnExws2r0f/P6aRPP8vHSU5Mg==
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 14.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         {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["1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->11.729454545454546`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            11.729454545454546`]& ], {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}}], {0, 0}, {0, 0}, {22, 22}], 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., 10.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         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}]], LineBox[CompressedData["
1:eJw9kwsslWEYx0+yohyile+cz+E751Su2dBlJfavEA2NLpwoHFGIpk5IDdPK
xKpJacKaKFPa5DIrkjK1prKaRZHLVK4L2XFZrZv36d2+vdu373vf5/k/v59c
fcw/QkckEuHP83efXxzm91UwrCoLntrLQfla+SWmVQmNa98n7S0OpyuE0rl8
JSR6svgbvRw0ud7ZxjFKtLslPp7UlcDJ2qum0lmJ6E7H7kixBEO+76fLlypR
1FTuajvHwbA616SzU4GurRPjDm84NCQEVYeWKuCc/l2/7AoHPevKsb5YBTwW
1eUu8eNwIC9nZZ6TAm1XxzInjTmEHK6w3T8tx06rgYzGXlPcs3xSdPGhHLVe
b7XeLabwXT88PZEiR3N3/+WPL0xRk5DTovKQ41R54Wr/EVNkiR4UHDGRo8BT
6Bm146CdeFbsPiCgxFr/Q3gmh8DdurHqegE3C5Pj02c5mENsoMoXMCAMukg1
EhzftdZo6IwAHW+Vj8M3CfQ2RT1foRZQZ3BH1y1MivMbI+zDdwjQfzSF+KdS
WLUd5W1sBKR6qvuixTwSg18WzSwWMH470UcMHp3vOoz6Gyww01Famh3Eo0Ll
5+8UbAGr1sCodYd4bJtKmpWPmMPesrGgOZTH8LLZ+M2x5ihJa9eeVfFQxIbH
rfkqg31VSZNlAI89ZT8C7EJkkKr31dWG8UjWbLgW12WGiJ7lr7JSeQykbk/R
iTTD6GD1uevVPLZcclH9XGD2f6f39F0k+y+JncOzc+keupfqoLoGWZ12rG6w
Pqiv+6xP6ruD5TDBcqGc0lhu1ixHPZZrBsuZcqc5LGRzoTl9ZnOTsTkWs7nS
nGnuxAFxcYFxksy4IY6IK+KMuLvLOCQuDzJOiVvi2J1xvZhxTtzXMw/ICzHz
hLwhj8grR+YZeXeCeShlXpKnJ5m35DF5/evfUoK8/w3vPqjw
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {6.646784489160852, 6.646784489160852}, 
          ImageScaled[{1, 1}]], LineBox[CompressedData["
1:eJw9k2kwXQcAhUmEJ7aEJu5zLe95+72PVlUTichJkcT2UkskTxg8tRVRE0NJ
mqREVKg9qCLGViOYWkepklbQVGUpQW1hJA2iiWUskVR1zPTMnPn+fD/On8OW
hTn77ZCTk8NW/+N2xNgmF9Hltx/uGqDB6eM8C+7loMs7NU2hhsbFalbZ6zwO
li+Gn6hLpRGR5ZC8N5iDbM/Ooutf0DAV2TbWHubAPtM/3SGaxoxkcLVShQOT
W5Xes7E01BuyNIeHDaHplaAUkEujLfJcg3eZIaYsFTfoJhoMUe38ZKghxt+U
NMYM0vDMydifY2oIwky5VXGVhldANe2+ysbInJpFkYYYVYKOwpQWNngj2deG
dcWQmM2uLlxmQz895UAGKUZjZEaX9DgbnZTJvNtuMZLk6vIDNdmoGwlLS5yh
sbLwS7HNNAvGwRuaklYaZ10UQmU/svBe7UfdlnE09KGmKs1jIeWlyuSiDY0L
p4w0Zi6xsCl1kQYwtvaaB3Xvk7FQGl311vM+hYQDfsa+J1i4VBzv1V1IQfgg
hKQoFjpGJKl20RSiPO4Vrimx8JXYWrruRWH4jyGNqTYDXNMyqjZ3plAjdXI2
9TDA/Dcuvz11pGC1/Pk6e04fQSFFtQWnKMzuWQ8/FKqPmqM3FSxdKBiG+p7n
/6WHoHIjgxBXCq4Vb86IvfSw1Ndfwt3yYyI+zD4/qgvJnkjmIVCYvmJ1eYe/
Lm4k8drqeRQsUo9I38rrQnbQx0V+U4QXzxvicxtIaGC8459eEfwntH5PukKi
8+50Q0+6CKTMrbnJh8Tgbfn+oI9FMK4vvSM4Q+Iz276eEFURSq8OrMRJSSRH
7eyW/SqEkaA9v9ObxES81c6wG0IIes8GffAJCcpl0O2ZkxBrQ2VlyedIvJOt
tabOFmKhPMpRDSQSS8x8lNYEuHpSNvmpGomhdzOnBwYEUG5dRvjPOojpyXuY
3yxAi+p3CtY+Oljvyj44WyCAgoPU0eQlEynfP3q1P06Ap6znR3QimJhqX1wq
9xOguCAmPHadQEXVRkaBlQClIuU/fRMJqKhbeLaQAuSfZE28EBOI3HT0zZnn
I6aygOc8pw2HxFDz8h/4uDs2lTbSo436e/sY6l/y0WT7aMWhSxuuQ0d9wm34
sBNOJ7Q/0UZxrnN/GYOPBzfnExf3EigNDJ0J7OXhuGJz1m4nAuuPJZr6GTwc
jl1SrsgkYJVYan/LnYfRYwuvTO4TWLIPnufzeSi8U2lJvyZA1AoZp5e5CB5+
f8xfjYm+x012kk4uBqyjflpUYOLr4PoLf2dxocPQC//2CYHrzhPuu/y4iLSc
HF8pITBmMsrMMuVCvb7CY/k08f/Pt0ngX6Fbp5k=
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {13.35321551083915, 6.646784489160852}, 
          ImageScaled[{0, 1}]], 
         CircleBox[{10., 10.}, 4., {0., 3.141592653589793}], 
         PolygonBox[{{10.6, 14.}, {9.4, 14.4}, {9.4, 13.6}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->14.661818181818182`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            14.661818181818182`]& ], {10., 14.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         {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["2",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->11.729454545454546`],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            11.729454545454546`]& ], {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}}], {22, 0}, {0, 0}, {22, 22}]},
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   ImageSize->{256, 256},
   PlotRange->{{0, 44}, {0, 22}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.8412701843637238`*^9, 3.8426937002870007`*^9, 
  3.8429520945730886`*^9, 3.843653696755856*^9, 3.845987999703429*^9, 
  3.846025827355406*^9, 3.846061025849275*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FermionLoopDiagramCounterTerm", "=", 
   RowBox[{"DiagramExtract", "[", 
    RowBox[{"BubbleCounterTerms", ",", 
     RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Paint", "[", "FermionLoopDiagramCounterTerm", "]"}]}], "Input"],

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., 10.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         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}]], LineBox[CompressedData["
1:eJw9kwsslWEYx0+yohyile+cz+E751Su2dBlJfavEA2NLpwoHFGIpk5IDdPK
xKpJacKaKFPa5DIrkjK1prKaRZHLVK4L2XFZrZv36d2+vdu373vf5/k/v59c
fcw/QkckEuHP83efXxzm91UwrCoLntrLQfla+SWmVQmNa98n7S0OpyuE0rl8
JSR6svgbvRw0ud7ZxjFKtLslPp7UlcDJ2qum0lmJ6E7H7kixBEO+76fLlypR
1FTuajvHwbA616SzU4GurRPjDm84NCQEVYeWKuCc/l2/7AoHPevKsb5YBTwW
1eUu8eNwIC9nZZ6TAm1XxzInjTmEHK6w3T8tx06rgYzGXlPcs3xSdPGhHLVe
b7XeLabwXT88PZEiR3N3/+WPL0xRk5DTovKQ41R54Wr/EVNkiR4UHDGRo8BT
6Bm146CdeFbsPiCgxFr/Q3gmh8DdurHqegE3C5Pj02c5mENsoMoXMCAMukg1
EhzftdZo6IwAHW+Vj8M3CfQ2RT1foRZQZ3BH1y1MivMbI+zDdwjQfzSF+KdS
WLUd5W1sBKR6qvuixTwSg18WzSwWMH470UcMHp3vOoz6Gyww01Famh3Eo0Ll
5+8UbAGr1sCodYd4bJtKmpWPmMPesrGgOZTH8LLZ+M2x5ihJa9eeVfFQxIbH
rfkqg31VSZNlAI89ZT8C7EJkkKr31dWG8UjWbLgW12WGiJ7lr7JSeQykbk/R
iTTD6GD1uevVPLZcclH9XGD2f6f39F0k+y+JncOzc+keupfqoLoGWZ12rG6w
Pqiv+6xP6ruD5TDBcqGc0lhu1ixHPZZrBsuZcqc5LGRzoTl9ZnOTsTkWs7nS
nGnuxAFxcYFxksy4IY6IK+KMuLvLOCQuDzJOiVvi2J1xvZhxTtzXMw/ICzHz
hLwhj8grR+YZeXeCeShlXpKnJ5m35DF5/evfUoK8/w3vPqjw
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {6.646784489160852, 6.646784489160852}, 
          ImageScaled[{1, 1}]], LineBox[CompressedData["
1:eJw9k2kwXQcAhUmEJ7aEJu5zLe95+72PVlUTichJkcT2UkskTxg8tRVRE0NJ
mqREVKg9qCLGViOYWkepklbQVGUpQW1hJA2iiWUskVR1zPTMnPn+fD/On8OW
hTn77ZCTk8NW/+N2xNgmF9Hltx/uGqDB6eM8C+7loMs7NU2hhsbFalbZ6zwO
li+Gn6hLpRGR5ZC8N5iDbM/Ooutf0DAV2TbWHubAPtM/3SGaxoxkcLVShQOT
W5Xes7E01BuyNIeHDaHplaAUkEujLfJcg3eZIaYsFTfoJhoMUe38ZKghxt+U
NMYM0vDMydifY2oIwky5VXGVhldANe2+ysbInJpFkYYYVYKOwpQWNngj2deG
dcWQmM2uLlxmQz895UAGKUZjZEaX9DgbnZTJvNtuMZLk6vIDNdmoGwlLS5yh
sbLwS7HNNAvGwRuaklYaZ10UQmU/svBe7UfdlnE09KGmKs1jIeWlyuSiDY0L
p4w0Zi6xsCl1kQYwtvaaB3Xvk7FQGl311vM+hYQDfsa+J1i4VBzv1V1IQfgg
hKQoFjpGJKl20RSiPO4Vrimx8JXYWrruRWH4jyGNqTYDXNMyqjZ3plAjdXI2
9TDA/Dcuvz11pGC1/Pk6e04fQSFFtQWnKMzuWQ8/FKqPmqM3FSxdKBiG+p7n
/6WHoHIjgxBXCq4Vb86IvfSw1Ndfwt3yYyI+zD4/qgvJnkjmIVCYvmJ1eYe/
Lm4k8drqeRQsUo9I38rrQnbQx0V+U4QXzxvicxtIaGC8459eEfwntH5PukKi
8+50Q0+6CKTMrbnJh8Tgbfn+oI9FMK4vvSM4Q+Iz276eEFURSq8OrMRJSSRH
7eyW/SqEkaA9v9ObxES81c6wG0IIes8GffAJCcpl0O2ZkxBrQ2VlyedIvJOt
tabOFmKhPMpRDSQSS8x8lNYEuHpSNvmpGomhdzOnBwYEUG5dRvjPOojpyXuY
3yxAi+p3CtY+Oljvyj44WyCAgoPU0eQlEynfP3q1P06Ap6znR3QimJhqX1wq
9xOguCAmPHadQEXVRkaBlQClIuU/fRMJqKhbeLaQAuSfZE28EBOI3HT0zZnn
I6aygOc8pw2HxFDz8h/4uDs2lTbSo436e/sY6l/y0WT7aMWhSxuuQ0d9wm34
sBNOJ7Q/0UZxrnN/GYOPBzfnExf3EigNDJ0J7OXhuGJz1m4nAuuPJZr6GTwc
jl1SrsgkYJVYan/LnYfRYwuvTO4TWLIPnufzeSi8U2lJvyZA1AoZp5e5CB5+
f8xfjYm+x012kk4uBqyjflpUYOLr4PoLf2dxocPQC//2CYHrzhPuu/y4iLSc
HF8pITBmMsrMMuVCvb7CY/k08f/Pt0ngX6Fbp5k=
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {13.35321551083915, 6.646784489160852}, 
          ImageScaled[{0, 1}]], 
         CircleBox[{10., 10.}, 4., {0., 3.141592653589793}], 
         PolygonBox[{{10.6, 14.}, {9.4, 14.4}, {9.4, 13.6}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->9.996694214876033],
           
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            9.996694214876033]& ], {10., 14.9452}, 
          ImageScaled[{Rational[1, 2], 0}]], 
         {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[
             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\\\\ecedcd.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "ac\\bd\\ecedcd.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->{509.99999999999943`, 510.},
   PlotRange->{{0, 66}, {0, 72.6}}], TraditionalForm]], "Print",
 CellChangeTimes->{3.841270194724276*^9, 3.842693700376548*^9, 
  3.84295209826157*^9, 3.843653699494281*^9, 3.845987999739433*^9, 
  3.8460258273881035`*^9, 3.846061025883277*^9}],

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.8412701947312765`*^9, 3.842693700379134*^9, 
  3.842952098270572*^9, 3.843653699498014*^9, 3.8459879997454324`*^9, 
  3.8460258273921022`*^9, 3.8460610258872786`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Amplitude", "Subsubsection",
 CellChangeTimes->{{3.8412700936394825`*^9, 3.8412700947002497`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FAamplEBCT", "=", 
   RowBox[{"CreateFeynAmp", "[", 
    RowBox[{"FermionLoopDiagramCounterTerm", ",", 
     RowBox[{"Truncated", "\[Rule]", "True"}], ",", 
     RowBox[{"GaugeRules", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"PreFactor", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"convertamplEBCT", "=", 
   RowBox[{"FCFAConvert", "[", 
    RowBox[{"FAamplEBCT", ",", 
     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[{"convertamplEBCTmassless", "=", 
  RowBox[{"convertamplEBCT", "//.", 
   RowBox[{
    RowBox[{"SMP", "[", "\"\<m_e\>\"", "]"}], "\[Rule]", "0"}]}]}]}], "Input",
 CellChangeTimes->{{3.841270277605444*^9, 3.841270283903446*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "+", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], ")"}], ")"}], ".", 
       SuperscriptBox[
        OverscriptBox["\[Gamma]", "_"], 
        FormBox[
         FormBox["\[Nu]",
          TraditionalForm],
         TraditionalForm]]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "+", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], ")"}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      SubscriptBox["Z", "\[Xi]"], " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
         FormBox[
          FormBox[
           RowBox[{
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"], "+", 
            OverscriptBox[
             FormBox["p",
              TraditionalForm], "_"]}],
           TraditionalForm],
          TraditionalForm], ")"}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["l",
            TraditionalForm], "_"],
          TraditionalForm]}], ")"}]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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[
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"], " ", 
       RowBox[{
        SuperscriptBox[
         OverscriptBox["\[Gamma]", "_"], 
         FormBox[
          FormBox["\[Nu]",
           TraditionalForm],
          TraditionalForm]], ".", 
        RowBox[{"(", 
         RowBox[{
          OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", "(", 
          FormBox[
           FormBox[
            RowBox[{
             OverscriptBox[
              FormBox["l",
               TraditionalForm], "_"], "+", 
             OverscriptBox[
              FormBox["p",
               TraditionalForm], "_"]}],
            TraditionalForm],
           TraditionalForm], ")"}], ")"}], ".", 
        SuperscriptBox[
         OverscriptBox["\[Gamma]", "_"], 
         FormBox[
          FormBox["\[Nu]",
           TraditionalForm],
          TraditionalForm]]}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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.8412702898274527`*^9, 3.8426937005823097`*^9, 
  3.8429521148011847`*^9, 3.8436537054915123`*^9, 3.8459879998483915`*^9, 
  3.8460258275801177`*^9, 3.8460610259782867`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"AlgebraDiracmasslessCTEB1", "=", 
   RowBox[{"DiracSimplify", "[", "convertamplEBCTmassless", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"AlgebraDiracmasslessCTEB2", "=", 
  RowBox[{
  "DiracSimplify", "[", "AlgebraDiracmasslessCTEB1", "]"}]}]}], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      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[{
      SubscriptBox["Z", "\[Xi]"], " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      SubscriptBox["Z", "\[Xi]"], " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      SubscriptBox["Z", "\[Xi]"], " ", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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"], " ", 
      SubscriptBox["Z", "A"], " ", 
      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[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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[{"3", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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"], " ", 
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], " ", 
      RowBox[{
       OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
       FormBox[
        OverscriptBox[
         FormBox["p",
          TraditionalForm], "_"],
        TraditionalForm]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           OverscriptBox[
            FormBox["l",
             TraditionalForm], "_"],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`l], 
           FeynCalc`Momentum[$CellContext`l]]],
         Editable->False], ")"}], "2"], ".", 
      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.841270302371832*^9, 3.842693700839136*^9, 
  3.842952118374508*^9, 3.843653707661768*^9, 3.845987999982401*^9, 
  3.8460258277990007`*^9, 3.846061026097294*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "irrelevantmasslessIREGCTEB", ",", "loopsmasslessCTEB", ",", 
     "THEUNIQUEIREGINTEGRALSmasslessCTEB"}], "}"}], "=", 
   RowBox[{"FCLoopExtract", "[", 
    RowBox[{"AlgebraDiracmasslessCTEB2", ",", 
     RowBox[{"{", "l", "}"}], ",", "loopHeadIREGmasslessCTEB"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"IREGINTEGRALSEBmasslessCCTEB", "=", 
  RowBox[{"THEUNIQUEIREGINTEGRALSmasslessCTEB", "/.", 
   RowBox[{"loopHeadIREGmasslessCTEB", "\[Rule]", "Identity"}]}]}]}], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    FormBox[
     FractionBox[
      SuperscriptBox[
       FormBox[
        OverscriptBox[
         FormBox["l",
          TraditionalForm], "_"],
        TraditionalForm], "2"], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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], ",", 
    FormBox[
     FractionBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"], " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm]}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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], ",", 
    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[{
       SuperscriptBox[
        RowBox[{"(", 
         InterpretationBox[
          SuperscriptBox[
           FormBox[
            OverscriptBox[
             FormBox["l",
              TraditionalForm], "_"],
            TraditionalForm], "2"],
          SequenceForm[
           FeynCalc`Pair[
            FeynCalc`Momentum[$CellContext`l], 
            FeynCalc`Momentum[$CellContext`l]]],
          Editable->False], ")"}], "2"], ".", 
       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.841270312855445*^9, 3.842693700927545*^9, 
  3.842952125824071*^9, 3.843653712547955*^9, 3.8459880000384054`*^9, 
  3.8460258279923673`*^9, 3.846061026147299*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Replacements", "Subsubsection",
 CellChangeTimes->{{3.841270101953574*^9, 3.8412701034737763`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTATerm", "=", 
  RowBox[{
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], " ", 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input"],

Cell[BoxData[
 FormBox[
  FractionBox[
   SuperscriptBox[
    FormBox[
     OverscriptBox[
      FormBox["l",
       TraditionalForm], "_"],
     TraditionalForm], "2"], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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.8412703266138525`*^9, 3.842693701103847*^9, 
  3.8429521639778366`*^9, 3.84365371495146*^9, 3.8459880000664206`*^9, 
  3.8460258280183697`*^9, 3.846061026171299*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTCTerm", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], " ", 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]}]], "Input"],

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[{
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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.841270335129037*^9, 3.842693701212805*^9, 
  3.8429521657813745`*^9, 3.843653716286253*^9, 3.8459880000874205`*^9, 
  3.8460258280409374`*^9, 3.8460610261923003`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTBTerm", "=", 
  RowBox[{
   RowBox[{"DiracGamma", "[", 
    RowBox[{"Momentum", "[", "l", "]"}], "]"}], " ", 
   RowBox[{"FeynAmpDenominator", "[", 
    RowBox[{
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", "l", "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"PropagatorDenominator", "[", 
      RowBox[{
       RowBox[{"Momentum", "[", 
        RowBox[{"l", "+", "p"}], "]"}], ",", "0"}], "]"}]}], "]"}], " ", 
   RowBox[{"Pair", "[", 
    RowBox[{
     RowBox[{"Momentum", "[", "l", "]"}], ",", 
     RowBox[{"Momentum", "[", "l", "]"}]}], "]"}]}]}]], "Input"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    SuperscriptBox[
     FormBox[
      OverscriptBox[
       FormBox["l",
        TraditionalForm], "_"],
      TraditionalForm], "2"], " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["l",
        TraditionalForm], "_"],
      TraditionalForm]}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         OverscriptBox[
          FormBox["l",
           TraditionalForm], "_"],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`l], 
         FeynCalc`Momentum[$CellContext`l]]],
       Editable->False], ")"}], "2"], ".", 
    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.841270489337293*^9, 3.8426937013139544`*^9, 
  3.842952166740938*^9, 3.843653717968793*^9, 3.8459880001093783`*^9, 
  3.8460258280619383`*^9, 3.846061026215336*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"What", " ", "I", " ", "computed", " ", "by", " ", "hand"}], 
  "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTBReplace", "=", 
  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"],

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.84127049938124*^9, 3.842693701481207*^9, 
  3.842952169292801*^9, 3.843653719611038*^9, 3.8459880001493793`*^9, 
  3.8460258281019936`*^9, 3.846061026251338*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTATermReplace", "=", 
  RowBox[{"Ilog\[Lambda]2", "-", 
   RowBox[{"b", "*", 
    RowBox[{"Log", "[", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"p", "^", "2"}]}], 
      SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "+", 
   RowBox[{"2", "*", "b"}]}]}]], "Input"],

Cell[BoxData[
 FormBox[
  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.841270349056728*^9, 3.842693701579495*^9, 
  3.842952170766526*^9, 3.843653721366067*^9, 3.8459880001703796`*^9, 
  3.8460258281232753`*^9, 3.84606102627258*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTCTermReplace", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"DiracGamma", "[", 
     RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", 
    FractionBox["1", "4"], "*", 
    RowBox[{"(", 
     RowBox[{"Ilog\[Lambda]2", "-", 
      RowBox[{"b", "*", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{"-", 
          RowBox[{"p", "^", "2"}]}], 
         SuperscriptBox["\[Lambda]", "2"]], "]"}]}], "+", 
      RowBox[{"2", "*", "b"}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"DiracGamma", "[", 
      RowBox[{"Momentum", "[", "p", "]"}], "]"}], "*", "b"}], 
    "2"]}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "4"], " ", 
    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[{
    FractionBox["1", "2"], " ", "b", " ", 
    RowBox[{
     OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
     FormBox[
      OverscriptBox[
       FormBox["p",
        TraditionalForm], "_"],
      TraditionalForm]}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.84127035687059*^9, 3.842693701689828*^9, 
  3.8429521733259373`*^9, 3.8436537234891453`*^9, 3.8459880001933804`*^9, 
  3.846025828145277*^9, 3.8460610262955923`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "Substitution", " ", "rule", " ", "for", " ", "the", " ", "rainbow", " ", 
   RowBox[{"C", ".", "T"}]}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SubRuleforElectronBubbleCT", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"CTBTerm", "->", "CTBReplace"}], ",", 
     RowBox[{"CTATerm", "->", "CTATermReplace"}], ",", 
     RowBox[{"CTCTerm", "->", "CTCTermReplace"}]}], "}"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"The", " ", "final", " ", "electron", " ", "bubble", " ", 
   RowBox[{"C", ".", "T"}]}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectronBubbleCounterTermFinal", "=", 
  RowBox[{
  "AlgebraDiracmasslessCTEB2", "//.", 
   "SubRuleforElectronBubbleCT"}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["\<\"e\"\>", "2"], " ", 
      SubscriptBox["Z", "A"], " ", 
      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[{"2", " ", 
      SubscriptBox["Z", "\[Xi]"]}]]}], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\<\"e\"\>", "2"], " ", 
     SubscriptBox["Z", "A"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "4"], " ", 
        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[{
        FractionBox["1", "2"], " ", "b", " ", 
        RowBox[{
         OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
         FormBox[
          OverscriptBox[
           FormBox["p",
            TraditionalForm], "_"],
          TraditionalForm]}]}]}], ")"}]}], 
    SubscriptBox["Z", "\[Xi]"]], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    SubscriptBox["Z", "A"], " ", 
    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[{"2", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    SubscriptBox["Z", "A"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "4"], " ", 
       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[{
       FractionBox["1", "2"], " ", "b", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}], "+", 
   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"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.841270382561536*^9, 3.841270505120477*^9, 
  3.8426937020637827`*^9, 3.84295217683509*^9, 3.8436537278657923`*^9, 
  3.8459880003123617`*^9, 3.846025828434566*^9, 3.846061026421446*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "The", " ", "renormalization", " ", "constants", " ", "and", " ", "others", 
   " ", "IREG"}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GaugeZxi", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<Z_xi\>\"", "]"}], "\[Rule]", 
     RowBox[{"SMP", "[", "\"\<Z_A\>\"", "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.843653734512375*^9, 3.843653737504094*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectronBubbleCounterTermFinal2", "=", 
  RowBox[{"ElectronBubbleCounterTermFinal", "//.", "GaugeZxi"}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    SubscriptBox["Z", "A"], " ", 
    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[{"2", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    SubscriptBox["Z", "A"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "4"], " ", 
       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[{
       FractionBox["1", "2"], " ", "b", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    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[{"2", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "4"], " ", 
       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[{
       FractionBox["1", "2"], " ", "b", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8412704035564814`*^9, 3.8412705104158516`*^9, 
  3.842693702316188*^9, 3.84295218044773*^9, 3.843653741302162*^9, 
  3.8459880003943677`*^9, 3.8460258287105875`*^9, 3.8460610265034523`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Z3", "=", 
  RowBox[{"1", "+", 
   RowBox[{
    RowBox[{
     RowBox[{"SMP", "[", "\"\<e\>\"", "]"}], "^", "2"}], "*", 
    RowBox[{"SMP", "[", "\"\<d_A\>\"", "]"}]}]}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    SubscriptBox["\[Delta]", "A"]}], "+", "1"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.841270410412376*^9, 3.8412705123152547`*^9, 
  3.84269370242029*^9, 3.8429521820093565`*^9, 3.843653744387991*^9, 
  3.845988000419371*^9, 3.846025828755594*^9, 3.8460610265234537`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"NewRuleCTElectronBubble", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<Z_A\>\"", "]"}], "\[Rule]", "Z3"}], "}"}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectronBubbleCounterTermFinal3", "=", 
  RowBox[{
  "ElectronBubbleCounterTermFinal2", "//.", 
   "NewRuleCTElectronBubble"}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       SubscriptBox["\[Delta]", "A"]}], "+", "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"}], ")"}]}], "-", 
   RowBox[{"2", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\<\"e\"\>", "2"], " ", 
       SubscriptBox["\[Delta]", "A"]}], "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "4"], " ", 
       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[{
       FractionBox["1", "2"], " ", "b", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    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[{"2", " ", 
    SuperscriptBox["\<\"e\"\>", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "4"], " ", 
       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[{
       FractionBox["1", "2"], " ", "b", " ", 
       RowBox[{
        OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
        FormBox[
         OverscriptBox[
          FormBox["p",
           TraditionalForm], "_"],
         TraditionalForm]}]}]}], ")"}]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.841270423416233*^9, 3.8412705151904697`*^9, 
  3.842693702751732*^9, 3.8429521850297756`*^9, 3.843653747100334*^9, 
  3.845988000489574*^9, 3.8460258290096135`*^9, 3.8460610265924735`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectronBubbleCounterTermFinal4", "=", 
  RowBox[{
  "Simplify", "[", "ElectronBubbleCounterTermFinal3", "]"}]}]], "Input",
 CellChangeTimes->{{3.842952187165365*^9, 3.8429521892547607`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", "b"}], " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", 
   SubscriptBox["\[Delta]", "A"], " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.841270429766362*^9, 3.8412705176376505`*^9, 
  3.842693702861319*^9, 3.8429521900723777`*^9, 3.8436537503927813`*^9, 
  3.8459880005125885`*^9, 3.846025829033763*^9, 3.846061026614461*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Renormalization", "Section",
 CellChangeTimes->{{3.84127011484881*^9, 3.8412701168895087`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"If", " ", "everything", " ", "is", " ", "well"}], ",", " ", 
   RowBox[{"non", "-", 
    RowBox[{"local", " ", "terms", " ", "should", " ", "cancel"}]}]}], 
  "*)"}]], "Input"],

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"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CounterTermDeltaAQED", "=", 
  RowBox[{"I", "*", 
   FractionBox["4", "3"], "*", "Ilog\[Lambda]2"}]}]], "Input"],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{"4", " ", "\[ImaginaryI]", " ", "Ilog\[Lambda]2"}], "3"], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.841270555153875*^9, 3.842693703243353*^9, 
  3.8429521938208294`*^9, 3.8436537529385157`*^9, 3.8459880005595818`*^9, 
  3.846025829084767*^9, 3.8460610266614676`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Now", ",", " ", 
   RowBox[{"the", " ", "substitution", " ", "rules"}]}], "*)"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RuleCTCoupling", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"SMP", "[", "\"\<d_A\>\"", "]"}], "\[Rule]", 
     "CounterTermDeltaAQED"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.842952196351117*^9, 3.8429521975087495`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Re", "-", 
   RowBox[{"writting", " ", "the", " ", "counterterm"}]}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ElectronBubbleCounterTermFinal5", "=", 
  RowBox[{
  "ElectronBubbleCounterTermFinal4", "//.", "RuleCTCoupling"}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox["4", "3"]}], " ", "\[ImaginaryI]", " ", "b", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8412705809159765`*^9, 3.842693703626906*^9, 
  3.8429522062214346`*^9, 3.843653756036769*^9, 3.845988000642584*^9, 
  3.846025829151171*^9, 3.846061026723469*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Regulated", " ", "Amplitude"}], " ", "+", " ", "Counter", "-", 
   "Term"}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChaveBubble", "=", 
  RowBox[{
  "RegulatedElectronBubbleAmplitudeIREG", "+", 
   "ElectronBubbleCounterTermFinal5"}]}]], "Input",
 CellChangeTimes->{3.841270607128517*^9, 3.842952224151822*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "b", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8412706100139046`*^9, 3.842693703799602*^9, 
  3.8429522261908236`*^9, 3.8436537582307873`*^9, 3.845988000678586*^9, 
  3.8460249149749765`*^9, 3.846025829189226*^9, 3.8460610267584715`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ChaveBubble2", "=", 
  RowBox[{"Simplify", "[", "ChaveBubble", "]"}]}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "b", " ", 
   SuperscriptBox["\<\"e\"\>", "4"], " ", "Ilog\[Lambda]2", " ", 
   RowBox[{
    OverscriptBox["\[Gamma]", "_"], "\[CenterDot]", 
    FormBox[
     OverscriptBox[
      FormBox["p",
       TraditionalForm], "_"],
     TraditionalForm]}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.8412706189613304`*^9, 3.842693703904916*^9, 
  3.842952230021928*^9, 3.843653761497066*^9, 3.8459880006985874`*^9, 
  3.8460249172167177`*^9, 3.846025829208227*^9, 3.846061026781473*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.0 para Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 173, 2, 150, "Title"],
Cell[CellGroupData[{
Cell[778, 28, 109, 1, 108, "Chapter"],
Cell[CellGroupData[{
Cell[912, 33, 94, 1, 106, "Section"],
Cell[1009, 36, 176, 4, 45, "Input"],
Cell[CellGroupData[{
Cell[1210, 44, 1476, 41, 454, "Input"],
Cell[CellGroupData[{
Cell[2711, 89, 2748, 70, 37, "Print"],
Cell[5462, 161, 1531, 33, 37, "Print"],
Cell[6996, 196, 1534, 36, 37, "Print"],
Cell[8533, 234, 712, 11, 36, "Print"],
Cell[9248, 247, 713, 11, 36, "Print"],
Cell[9964, 260, 702, 11, 36, "Print"],
Cell[10669, 273, 1724, 39, 37, "Print"],
Cell[12396, 314, 701, 11, 36, "Print"],
Cell[13100, 327, 2307, 59, 37, "Print"],
Cell[15410, 388, 649, 10, 36, "Print"],
Cell[16062, 400, 687, 11, 36, "Print"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[16810, 418, 97, 1, 83, "Section"],
Cell[16910, 421, 1789, 43, 406, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[18736, 469, 94, 1, 83, "Section"],
Cell[18833, 472, 850, 23, 75, "Input"],
Cell[CellGroupData[{
Cell[19708, 499, 545, 13, 75, "Input"],
Cell[CellGroupData[{
Cell[20278, 516, 13726, 305, 444, "Print"],
Cell[34007, 823, 6700, 152, 444, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[40756, 981, 324, 7, 89, "Input"],
Cell[41083, 990, 3223, 72, 870, "Print"],
Cell[44309, 1064, 1713, 39, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[46071, 1109, 93, 1, 106, "Section"],
Cell[46167, 1112, 324, 6, 45, "Input"],
Cell[CellGroupData[{
Cell[46516, 1122, 1422, 35, 127, "Input"],
Cell[47941, 1159, 14577, 314, 396, "Print"]
}, Closed]],
Cell[CellGroupData[{
Cell[62555, 1478, 591, 11, 64, "Input"],
Cell[63149, 1491, 7742, 177, 893, "Print"],
Cell[70894, 1670, 1794, 42, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72737, 1718, 89, 1, 106, "Section"],
Cell[72829, 1721, 614, 16, 77, "Input"],
Cell[73446, 1739, 397, 9, 68, "Input"],
Cell[CellGroupData[{
Cell[73868, 1752, 93, 1, 72, "Subsection"],
Cell[73964, 1755, 233, 6, 45, "Input"],
Cell[74200, 1763, 1038, 24, 151, "Input"],
Cell[75241, 1789, 137, 4, 45, "Input"],
Cell[CellGroupData[{
Cell[75403, 1797, 364, 7, 45, "Input"],
Cell[75770, 1806, 5603, 173, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81410, 1984, 305, 6, 45, "Input"],
Cell[81718, 1992, 67708, 2123, 484, "Output"]
}, Closed]],
Cell[149441, 4118, 582, 12, 93, "Input"],
Cell[150026, 4132, 292, 6, 45, "Input"],
Cell[150321, 4140, 249, 6, 45, "Input"],
Cell[CellGroupData[{
Cell[150595, 4150, 299, 5, 68, "Input"],
Cell[150897, 4157, 11653, 358, 95, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[162611, 4522, 161, 2, 106, "Section"],
Cell[CellGroupData[{
Cell[162797, 4528, 80, 1, 72, "Subsection"],
Cell[CellGroupData[{
Cell[162902, 4533, 562, 14, 217, "Input"],
Cell[163467, 4549, 56299, 1702, 70, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[219827, 6258, 114, 1, 106, "Section"],
Cell[219944, 6261, 500, 11, 75, "Input"],
Cell[CellGroupData[{
Cell[220469, 6276, 151, 2, 68, "Input"],
Cell[220623, 6280, 5558, 172, 70, "Print"]
}, Open  ]],
Cell[226196, 6455, 365, 7, 45, "Input"],
Cell[CellGroupData[{
Cell[226586, 6466, 254, 5, 45, "Input"],
Cell[226843, 6473, 4810, 155, 80, "Output"]
}, Open  ]],
Cell[231668, 6631, 283, 7, 45, "Input"],
Cell[231954, 6640, 1359, 42, 133, "Input"],
Cell[233316, 6684, 461, 11, 75, "Input"],
Cell[CellGroupData[{
Cell[233802, 6699, 602, 15, 133, "Input"],
Cell[234407, 6716, 4567, 153, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239011, 6874, 235, 4, 45, "Input"],
Cell[239249, 6880, 31495, 1060, 153, "Output"]
}, Open  ]],
Cell[270759, 7943, 3326, 101, 173, "Input"],
Cell[CellGroupData[{
Cell[274110, 8048, 32083, 1067, 300, "Input"],
Cell[306196, 9117, 26529, 886, 153, "Output"]
}, Open  ]],
Cell[332740, 10006, 5044, 180, 151, "Input"],
Cell[337787, 10188, 213, 5, 45, "Input"],
Cell[CellGroupData[{
Cell[338025, 10197, 1487, 37, 133, "Input"],
Cell[339515, 10236, 2965, 106, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[342517, 10347, 1391, 36, 133, "Input"],
Cell[343911, 10385, 2938, 105, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[346886, 10495, 1240, 32, 104, "Input"],
Cell[348129, 10529, 2895, 102, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[351061, 10636, 1238, 32, 104, "Input"],
Cell[352302, 10670, 2898, 102, 80, "Output"]
}, Open  ]],
Cell[355215, 10775, 154, 3, 45, "Input"],
Cell[355372, 10780, 235, 5, 75, "Input"],
Cell[355610, 10787, 1327, 48, 56, "Input"],
Cell[356940, 10837, 3831, 144, 56, "Input"],
Cell[CellGroupData[{
Cell[360796, 10985, 1481, 38, 199, "Input"],
Cell[362280, 11025, 3288, 111, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[365605, 11141, 1445, 37, 199, "Input"],
Cell[367053, 11180, 3258, 111, 80, "Output"]
}, Open  ]],
Cell[370326, 11294, 234, 5, 45, "Input"],
Cell[CellGroupData[{
Cell[370585, 11303, 281, 6, 45, "Input"],
Cell[370869, 11311, 6688, 215, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[377594, 11531, 285, 6, 45, "Input"],
Cell[377882, 11539, 13404, 425, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[391323, 11969, 259, 5, 45, "Input"],
Cell[391585, 11976, 25395, 850, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[417017, 12831, 201, 3, 45, "Input"],
Cell[417221, 12836, 26231, 865, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[443489, 13706, 238, 4, 45, "Input"],
Cell[443730, 13712, 21295, 712, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[465062, 14429, 220, 4, 45, "Input"],
Cell[465285, 14435, 21302, 712, 150, "Output"]
}, Open  ]],
Cell[486602, 15150, 614, 12, 75, "Input"],
Cell[487219, 15164, 174, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[487418, 15171, 2592, 67, 328, "Input"],
Cell[490013, 15240, 6388, 211, 80, "Output"]
}, Open  ]],
Cell[496416, 15454, 126, 2, 45, "Input"],
Cell[CellGroupData[{
Cell[496567, 15460, 3855, 99, 382, "Input"],
Cell[500425, 15561, 9063, 303, 80, "Output"]
}, Open  ]],
Cell[509503, 15867, 183, 4, 45, "Input"],
Cell[509689, 15873, 333, 8, 45, "Input"],
Cell[CellGroupData[{
Cell[510047, 15885, 219, 4, 45, "Input"],
Cell[510269, 15891, 17875, 603, 150, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[528181, 16499, 122, 1, 72, "Subsection"],
Cell[CellGroupData[{
Cell[528328, 16504, 681, 16, 126, "Input"],
Cell[529012, 16522, 18460, 608, 80, "Output"]
}, Open  ]],
Cell[547487, 17133, 120, 2, 45, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[547656, 17141, 73, 1, 106, "Section"],
Cell[CellGroupData[{
Cell[547754, 17146, 110, 1, 72, "Subsection"],
Cell[547867, 17149, 520, 13, 75, "Input"],
Cell[548390, 17164, 86, 2, 68, "Input"],
Cell[548479, 17168, 618, 18, 122, "Input"],
Cell[CellGroupData[{
Cell[549122, 17190, 179, 3, 68, "Input"],
Cell[549304, 17195, 2600, 95, 2196, "Print"]
}, Open  ]],
Cell[551919, 17293, 374, 11, 45, "Input"],
Cell[552296, 17306, 71, 2, 68, "Input"],
Cell[552370, 17310, 623, 18, 122, "Input"],
Cell[CellGroupData[{
Cell[553018, 17332, 154, 2, 68, "Input"],
Cell[553175, 17336, 18011, 605, 134, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[571235, 17947, 96, 1, 72, "Subsection"],
Cell[571334, 17950, 121, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[571480, 17957, 2889, 84, 412, "Input"],
Cell[574372, 18043, 659, 15, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[575068, 18063, 1506, 42, 246, "Input"],
Cell[576577, 18107, 1626, 49, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[578240, 18161, 1562, 47, 246, "Input"],
Cell[579805, 18210, 1653, 50, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[581495, 18265, 1440, 45, 246, "Input"],
Cell[582938, 18312, 1528, 48, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[584503, 18365, 1530, 45, 246, "Input"],
Cell[586036, 18412, 1534, 48, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[587607, 18465, 1506, 44, 246, "Input"],
Cell[589116, 18511, 1534, 48, 77, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[590699, 18565, 95, 1, 72, "Subsection"],
Cell[590797, 18568, 153, 4, 45, "Input"],
Cell[CellGroupData[{
Cell[590975, 18576, 1228, 31, 104, "Input"],
Cell[592206, 18609, 2939, 102, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[595182, 18716, 1237, 31, 133, "Input"],
Cell[596422, 18749, 2739, 94, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[599198, 18848, 1286, 31, 133, "Input"],
Cell[600487, 18881, 2964, 102, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[603488, 18988, 1133, 29, 133, "Input"],
Cell[604624, 19019, 2872, 101, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[607533, 19125, 1168, 30, 104, "Input"],
Cell[608704, 19157, 2845, 100, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[611586, 19262, 1161, 30, 104, "Input"],
Cell[612750, 19294, 2837, 100, 80, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[615636, 19400, 121, 1, 72, "Subsection"],
Cell[CellGroupData[{
Cell[615782, 19405, 702, 13, 75, "Input"],
Cell[616487, 19420, 25603, 820, 360, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[642139, 20246, 110, 1, 72, "Subsection"],
Cell[CellGroupData[{
Cell[642274, 20251, 267, 4, 45, "Input"],
Cell[642544, 20257, 5207, 155, 207, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[647788, 20417, 206, 3, 68, "Input"],
Cell[647997, 20422, 646, 15, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[648692, 20443, 113, 1, 72, "Subsection"],
Cell[CellGroupData[{
Cell[648830, 20448, 113, 1, 58, "Subsubsection"],
Cell[648946, 20451, 156, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[649127, 20458, 378, 9, 75, "Input"],
Cell[CellGroupData[{
Cell[649530, 20471, 13146, 314, 444, "Print"],
Cell[662679, 20787, 13362, 311, 444, "Print"],
Cell[676044, 21100, 12811, 301, 444, "Print"],
Cell[688858, 21403, 13536, 311, 444, "Print"],
Cell[702397, 21716, 7028, 164, 444, "Print"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[709474, 21886, 321, 6, 89, "Input"],
Cell[709798, 21894, 2665, 65, 818, "Print"],
Cell[712466, 21961, 1348, 34, 94, "Output"]
}, Open  ]],
Cell[713829, 21998, 154, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[714008, 22005, 1149, 31, 127, "Input"],
Cell[715160, 22038, 11742, 254, 396, "Print"]
}, Closed]],
Cell[CellGroupData[{
Cell[726939, 22297, 294, 6, 64, "Input"],
Cell[727236, 22305, 6860, 156, 777, "Print"],
Cell[734099, 22463, 1404, 36, 94, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[735552, 22505, 104, 1, 58, "Subsubsection"],
Cell[CellGroupData[{
Cell[735681, 22510, 2064, 49, 266, "Input"],
Cell[737748, 22561, 9255, 311, 85, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[747040, 22877, 300, 7, 75, "Input"],
Cell[747343, 22886, 14031, 481, 83, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[761411, 23372, 559, 13, 126, "Input"],
Cell[761973, 23387, 5269, 177, 80, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[767291, 23570, 105, 1, 58, "Subsubsection"],
Cell[CellGroupData[{
Cell[767421, 23575, 675, 18, 75, "Input"],
Cell[768099, 23595, 1442, 49, 81, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[769578, 23649, 755, 20, 75, "Input"],
Cell[770336, 23671, 1850, 65, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[772223, 23741, 760, 20, 75, "Input"],
Cell[772986, 23763, 1647, 57, 81, "Output"]
}, Open  ]],
Cell[774648, 23823, 121, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[774794, 23830, 478, 15, 105, "Input"],
Cell[775275, 23847, 824, 26, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[776136, 23878, 298, 9, 103, "Input"],
Cell[776437, 23889, 536, 15, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[777010, 23909, 635, 20, 105, "Input"],
Cell[777648, 23931, 1081, 34, 77, "Output"]
}, Open  ]],
Cell[778744, 23968, 165, 4, 45, "Input"],
Cell[778912, 23974, 285, 7, 45, "Input"],
Cell[779200, 23983, 146, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[779371, 23990, 159, 4, 45, "Input"],
Cell[779533, 23996, 4543, 143, 160, "Output"]
}, Open  ]],
Cell[784091, 24142, 155, 4, 45, "Input"],
Cell[784249, 24148, 282, 7, 45, "Input"],
Cell[CellGroupData[{
Cell[784556, 24159, 140, 2, 45, "Input"],
Cell[784699, 24163, 3672, 115, 142, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[788408, 24283, 205, 6, 45, "Input"],
Cell[788616, 24291, 375, 8, 47, "Output"]
}, Open  ]],
Cell[789006, 24302, 191, 6, 45, "Input"],
Cell[CellGroupData[{
Cell[789222, 24312, 163, 4, 45, "Input"],
Cell[789388, 24318, 3921, 123, 142, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[793346, 24446, 215, 4, 68, "Input"],
Cell[793564, 24452, 560, 15, 47, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[794197, 24475, 101, 1, 106, "Section"],
Cell[794301, 24478, 229, 6, 45, "Input"],
Cell[794533, 24486, 454, 11, 45, "Input"],
Cell[CellGroupData[{
Cell[795012, 24501, 136, 3, 101, "Input"],
Cell[795151, 24506, 327, 7, 67, "Output"]
}, Open  ]],
Cell[795493, 24516, 132, 3, 45, "Input"],
Cell[795628, 24521, 271, 7, 45, "Input"],
Cell[795902, 24530, 128, 3, 45, "Input"],
Cell[CellGroupData[{
Cell[796055, 24537, 150, 3, 45, "Input"],
Cell[796208, 24542, 572, 15, 66, "Output"]
}, Open  ]],
Cell[796795, 24560, 147, 4, 45, "Input"],
Cell[CellGroupData[{
Cell[796967, 24568, 218, 5, 45, "Input"],
Cell[797188, 24575, 580, 14, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[797805, 24594, 105, 2, 68, "Input"],
Cell[797913, 24598, 576, 14, 66, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)