         SuperscriptBox["m", "2"]}], ")"}],
         TraditionalForm],
        HoldForm],
       TraditionalForm]}], 
     RowBox[{"4", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", "D"}], ")"}]}]]}], "-", 
   FractionBox[
    FormBox[
     TagBox[
      FormBox[
       RowBox[{
        SubscriptBox["\<\"A\"\>", "\<\"0\"\>"], "(", 
        SuperscriptBox["m", "2"], ")"}],
       TraditionalForm],
      HoldForm],
     TraditionalForm], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "D"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellTags->"B00",
 CellLabel->"Out[13]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B00", "[", 
  RowBox[{
   RowBox[{"SPD", "[", "p", "]"}], ",", 
   SuperscriptBox["m", "2"], ",", 
   SuperscriptBox["M", "2"], ",", 
   RowBox[{"BReduce", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellTags->"B00",
 CellLabel->"In[15]:=",
 CellID->1245211962],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    RowBox[{
     SubscriptBox["\<\"B\"\>", "\<\"00\"\>"], "(", 
     RowBox[{
      FormBox[
       SuperscriptBox[
        FormBox[
         FormBox["p",
          TraditionalForm],
         TraditionalForm], "2"],
       TraditionalForm], ",", 
      SuperscriptBox["m", "2"], ",", 
      SuperscriptBox["M", "2"]}], ")"}],
    TraditionalForm],
   HoldForm], TraditionalForm]], "Output",
 CellTags->"B00",
 CellLabel->"Out[15]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B00", "[", 
  RowBox[{"0", ",", 
   SuperscriptBox["m", "2"], ",", 
   SuperscriptBox["m", "2"]}], "]"}]], "Input",
 CellTags->"B00",
 CellLabel->"In[16]:=",
 CellID->1891605192],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["m", "2"], " ", 
      FormBox[
       TagBox[
        FormBox[
         RowBox[{
          SubscriptBox["\<\"B\"\>", "\<\"0\"\>"], "(", 
          RowBox[{"0", ",", 
           SuperscriptBox["m", "2"], ",", 
           SuperscriptBox["m", "2"]}], ")"}],
         TraditionalForm],
        HoldForm