<<HighEnergyPhysics`FeynCalc`

Loading FeynCalc from /home/ailakov/.Mathematica/Applications/HighEnergyPhysics

FeynCalc 8.1.0 For help, type ?FeynCalc, open FeynCalcRef8.nb or visit www.feyncalc.org

Loading FeynArts, see www.feynarts.de for documentation

FeynArts 3.4 patched for use with FeynCalc

FeynArts 3.4 patched for use with FeynCalc

<<"LOOL.m"

<<SimTen2.dat

Notation: 
1) Bmunu:  lp, izraz, a1,b1,OrderP,b,c,ee,Koef
2) Bmu:  izraz, a21,b21,OrderP2,b2,c2,ee2
3) B0: izraz, a31,b31,OrderP3,b3,c3,ee3

Tensor structures

Tensor structures for (Subscript[A, 0])

CA0=1

Tensor structures for (Subscript[B, 0])

C00=1

C02=Contract[S2a[α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]

InputForm[(Subscript[p, 11])]

C04=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]

C06=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),η]]

Tensor structures for (Subscript[B, μ])

C11=Contract[S2a[μ,α],FourVector[(Subscript[p, 1]),α]]

C13=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]]

C15=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]]

C17=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]]

Tensor structures for (Subscript[B, μν])

C20=S2a[μ,ν]

C22=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]

C24=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]

C26=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]]

C28=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]]

Tensor structures for (Subscript[C, 0])

C000=1

C020=Contract[S2a[α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]
C011=Contract[S2a[α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]]
C002=Contract[S2a[α,β],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]]

C040=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]
C031=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]]
C022=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C013=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C004=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]

C060=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),η]]
C051=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C042=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C033=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C024=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C015=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C006=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]

Tensor structures for (Subscript[C, μ])

C110=Contract[S2a[μ,α],FourVector[(Subscript[p, 1]),α]]
C101=Contract[S2a[μ,α],FourVector[(Subscript[p, 12]),α]]

C130=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]]
C121=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]]
C112=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]
C103=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]

C150=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]]
C141=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C132=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C123=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C114=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C105=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]

C170=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]]
C161=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]]
C152=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C143=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C134=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C125=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C116=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C107=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]

Tensor structures for (Subscript[C, μν])

C200=S2a[μ,ν]

C220=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]
C211=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]]
C202=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]]

C240=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]
C231=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]]
C222=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C213=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C204=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]

C260=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]]
C251=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C242=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C233=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C224=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C215=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C206=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]

C280=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]]
C271=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]]
C262=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C253=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C244=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C235=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C226=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C217=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C208=Contract[S10a[μ,ν,α,β,γ,δ,ϵ,ζ,η,θ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]

Tensor structures for (Subscript[C, μνρ])

C310=Contract[S4a[μ,ν,ρ,α],FourVector[(Subscript[p, 1]),α]]
C301=Contract[S4a[μ,ν,ρ,α],FourVector[(Subscript[p, 12]),α]]

C330=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]]
C321=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]]
C312=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]
C303=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]

C350=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]]
C341=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C332=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C323=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C314=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C305=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]

C370=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]]
C361=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]]
C352=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C343=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C334=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C325=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C316=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C307=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]

C390=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 1]),ι]]
C381=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 12]),ι]]
C372=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C363=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C354=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C345=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C336=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C327=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C318=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C309=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]

Tensor structures for (Subscript[D, 0])

C0000=1

C0200=Contract[S2a[α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]
C0110=Contract[S2a[α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]]
C0020=Contract[S2a[α,β],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]]
C0101=Contract[S2a[α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]]
C0011=Contract[S2a[α,β],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]]
C0002=Contract[S2a[α,β],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]]

C0400=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]
C0310=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]]
C0220=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C0130=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C0040=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C0301=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0211=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0121=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0031=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0202=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0112=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0022=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0103=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0013=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C0004=Contract[S4a[α,β,γ,δ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]

C0600=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),η]]
C0510=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C0420=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C0330=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C0240=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C0150=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C0060=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),η]]
C0501=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0411=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0321=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0231=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0141=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0051=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0402=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0312=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0222=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0132=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0042=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0303=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0213=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0123=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0033=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0204=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0114=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0024=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0105=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0015=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]
C0006=Contract[S6a[α,β,γ,δ,ϵ,η],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),η]]

Tensor structures for (Subscript[D, μ])

C1100=Contract[S2a[μ,α],FourVector[(Subscript[p, 1]),α]]
C1010=Contract[S2a[μ,α],FourVector[(Subscript[p, 12]),α]]
C1001=Contract[S2a[μ,α],FourVector[(Subscript[p, 123]),α]]

C1300=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]]
C1210=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]]
C1120=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]
C1030=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]
C1201=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]]
C1111=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]]
C1021=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]]
C1102=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]]
C1012=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]]
C1003=Contract[S4a[μ,α,β,γ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]]

C1500=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]]
C1410=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C1320=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C1230=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C1140=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C1050=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C1401=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1311=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1221=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1131=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1041=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1302=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1212=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1122=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1032=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1203=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1113=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1023=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1104=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1014=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C1005=Contract[S6a[μ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]

C1700=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]]
C1610=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1520=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1430=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1340=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1250=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1160=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1070=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C1601=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1511=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1421=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1331=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1241=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1151=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1061=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1502=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1412=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1322=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1232=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1142=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1052=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1403=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1313=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1223=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1133=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1043=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1304=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1214=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1124=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1034=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1205=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1115=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1025=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1106=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1016=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C1007=Contract[S8a[μ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]

Tensor structures for (Subscript[D, μν])

C2000=S2a[μ,ν]

C2200=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]
C2110=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]]
C2020=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]]
C2101=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]]
C2011=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]]
C2002=Contract[S4a[μ,ν,α,β],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]]

C2400=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]
C2310=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]]
C2220=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C2130=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C2040=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C2301=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2211=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2121=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2031=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2202=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2112=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2022=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2103=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2013=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C2004=Contract[S6a[μ,ν,α,β,γ,δ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]

C2600=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]]
C2510=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C2420=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C2330=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C2240=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C2150=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C2060=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C2501=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2411=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2321=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2231=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2141=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2051=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2402=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2312=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2222=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2132=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2042=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2303=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2213=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2123=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2033=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2204=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2114=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2024=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2105=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2015=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C2006=Contract[S8a[μ,ν,α,β,γ,δ,ϵ,ζ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]

Tensor structures for (Subscript[D, μνρ])

C3100=Contract[S4a[μ,ν,ρ,α],FourVector[(Subscript[p, 1]),α]]
C3010=Contract[S4a[μ,ν,ρ,α],FourVector[(Subscript[p, 12]),α]]
C3001=Contract[S4a[μ,ν,ρ,α],FourVector[(Subscript[p, 123]),α]]

C3300=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]]
C3210=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]]
C3120=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]
C3030=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]]
C3201=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]]
C3111=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]]
C3021=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]]
C3102=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]]
C3012=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]]
C3003=Contract[S6a[μ,ν,ρ,α,β,γ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]]

C3500=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]]
C3410=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C3320=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C3230=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C3140=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C3050=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]]
C3401=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3311=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3221=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3131=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3041=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3302=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3212=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3122=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3032=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3203=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3113=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3023=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3104=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3014=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]
C3005=Contract[S8a[μ,ν,ρ,α,β,γ,δ,ϵ],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]]

C3700=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]]
C3610=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3520=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3430=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3340=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3250=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3160=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3070=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]]
C3601=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3511=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3421=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3331=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3241=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3151=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3061=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3502=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3412=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3322=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3232=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3142=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3052=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3403=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3313=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3223=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3133=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3043=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3304=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3214=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3124=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3034=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3205=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3115=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3025=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3106=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3016=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]
C3007=Contract[S10a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]]

C3900=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 1]),ι]]
C3810=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3720=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3630=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3540=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3450=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3360=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3270=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3180=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3090=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]]
C3801=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3711=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3621=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3531=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3441=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3351=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3261=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3171=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3081=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3702=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3612=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3522=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3432=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3342=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3252=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3162=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3072=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3603=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3513=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3423=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3333=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3243=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3153=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3063=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3504=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3414=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3324=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3234=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3144=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3054=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3405=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3315=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3225=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3135=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3045=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3306=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3216=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3126=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3036=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3207=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3117=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3027=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3108=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3018=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]
C3009=Contract[S12a[μ,ν,ρ,α,β,γ,δ,ϵ,ζ,η,θ,ι],FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]]

Tensor structures for (Subscript[D, μνρσ])

C4000=S4a[μ,ν,ρ,σ]

C4200=Contract[S6a[μ,ν,ρ,σ,α,β]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]]
C4110=Contract[S6a[μ,ν,ρ,σ,α,β]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]]
C4020=Contract[S6a[μ,ν,ρ,σ,α,β]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]]
C4101=Contract[S6a[μ,ν,ρ,σ,α,β]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]]
C4011=Contract[S6a[μ,ν,ρ,σ,α,β]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]]
C4002=Contract[S6a[μ,ν,ρ,σ,α,β]*FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]]

C4400=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]]
C4310=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]]
C4220=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C4130=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C4040=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]]
C4301=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4211=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4121=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4031=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4202=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4112=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4022=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4103=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4013=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]
C4004=Contract[S8a[μ,ν,ρ,σ,α,β,γ,δ]*FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]]

C4600=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]]
C4510=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C4420=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C4330=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C4240=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C4150=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C4060=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]]
C4501=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4411=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4321=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4231=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4141=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4051=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4402=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4312=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4222=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4132=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4042=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4303=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4213=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4123=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4033=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4204=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4114=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4024=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4105=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4015=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]
C4006=Contract[S10a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ]*FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]]

C4800=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]]
C4710=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]]
C4620=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4530=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4440=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4350=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4260=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4170=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4080=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]]
C4701=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 123]),θ]]
C4611=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4521=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4431=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4341=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4251=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4161=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4071=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]]
C4602=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4512=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4422=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4332=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4242=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4152=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4062=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4503=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4413=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4323=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4233=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4143=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4053=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4404=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4314=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4224=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4134=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4044=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4305=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4215=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4125=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4035=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4206=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4116=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4026=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4107=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4017=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]
C4008=Contract[S12a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ]*FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]]

C41000=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 1]),ι]*FourVector[(Subscript[p, 1]),κ]]
C4910=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 1]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4820=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4730=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4640=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4550=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4460=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4370=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4280=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4190=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C40100=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 12]),κ]]
C4901=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 1]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4811=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4721=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4631=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4541=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4451=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4361=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4271=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4181=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4091=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 12]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4802=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 1]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4712=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4622=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4532=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4442=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4352=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4262=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4172=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4082=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 12]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4703=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 1]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4613=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4523=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4433=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4343=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4253=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4163=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4073=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 12]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4604=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 1]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4514=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4424=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4334=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4244=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4154=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4064=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 12]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4505=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 1]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4415=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4325=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4235=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4145=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4055=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 12]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4406=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 1]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4316=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4226=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4136=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4046=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 12]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4307=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 1]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4217=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4127=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4037=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 12]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4208=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 1]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4118=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4028=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 12]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4109=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 1]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C4019=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 12]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]
C40010=Contract[S14a[μ,ν,ρ,σ,α,β,γ,δ,ϵ,ζ,η,θ,ι,κ]*FourVector[(Subscript[p, 123]),α]*FourVector[(Subscript[p, 123]),β]*FourVector[(Subscript[p, 123]),γ]*FourVector[(Subscript[p, 123]),δ]*FourVector[(Subscript[p, 123]),ϵ]*FourVector[(Subscript[p, 123]),ζ]*FourVector[(Subscript[p, 123]),η]*FourVector[(Subscript[p, 123]),θ]*FourVector[(Subscript[p, 123]),ι]*FourVector[(Subscript[p, 123]),κ]]

(Subscript[A, 0])

ea0=CA0*(Subscript[M, W]^2)*J01;
(Subscript[A, 0])[x1_]:=ea0/.(Subscript[M, W]^2)->1/.J01->I01[x1]

(Subscript[A, 0])[x]

(Subscript[B, 0]),(Subscript[B, μ]),(Subscript[B, μν])

ll=Pair[Momentum[l],Momentum[l]]
(Subscript[lp, 1])=Pair[Momentum[l],Momentum[Subscript[p,1]]]
(Subscript[p, 11])=Pair[Momentum[Subscript[p,1]],Momentum[Subscript[p,1]]]
(Subscript[p, 1μ])=Pair[LorentzIndex[μ],Momentum[Subscript[p,1]]]
(Subscript[p, 1ν])=Pair[LorentzIndex[ν],Momentum[Subscript[p,1]]]
(Subscript[g, μν])=Pair[LorentzIndex[μ],LorentzIndex[ν]]

izrazb=(1/((ll-(Subscript[m, 2]^2))(1+((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2))))));

(Subscript[B, 0])

(*izraz, a31,b31,OrderP3,b3*)

ab01=Normal[Series[izrazb/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,6}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));

bb01=0;
Do[bb01+=Expand[Together[ab01[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[p, 11])->k^2*(Subscript[p, 11])},{i,1,Length[ab01]}]
bb01;

bb02=Coefficient[bb01,k,0]+Coefficient[bb01,k,1]+
Coefficient[bb01,k,2]+Coefficient[bb01,k,3]+
Coefficient[bb01,k,4]+Coefficient[bb01,k,5]+
Coefficient[bb01,k,6];

bb0=0;
Do[bb0+=Expand[Together[bb02[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1])},{i,1,Length[bb02]}]
bb0

rplb02={((Subscript[lp, 1])^2)-> (ll/D)*C02};
rplb04={((Subscript[lp, 1])^4)-> ((ll^2)/(D*(D+2)))*C04};
rplb06={((Subscript[lp, 1])^6)-> ((ll^3)/(D*(D+2)*(D+4)))*C06};

cb00a=Coefficient[bb0,k,0]
cb02a=Coefficient[bb0,k,2]/.rplb02;
cb04a=Coefficient[bb0,k,4]/.rplb04;
cb06a=Coefficient[bb0,k,6]/.rplb06;
cb0 =cb00a+cb02a+cb04a+cb06a

eb0=0;
Do[
AJ=Exponent[cb0[[i]],ll];
BJ=1;
CJ=Exponent[cb0[[i]],(ll-(Subscript[m, 2]^2))];
eb0+=Coefficient[Coefficient[cb0[[i]],(ll-(Subscript[m, 2]^2)),CJ],ll,AJ]*
ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]],
{i,1,Length[cb0]}]
eb0

Koefb0[expr_,x_,vx_]:=Module[{},Coefficient[expr,x,vx]]

Koefb0[eb0,(Subscript[p, 11]),0]

Koefb0[eb0,(Subscript[p, 11]),1]

Koefb0[eb0,(Subscript[p, 11]),2]

Koefb0[eb0,(Subscript[p, 11]),3]

(Subscript[B, 0])[x1_,x2_,xp1_]:=eb0/.{J011->I011[x1,x2] ,J012-> I012[x1,x2],J013-> I013[x1,x2],J014-> I014[x1,x2],J113-> I113[x1,x2],J114->I114 [x1,x2],J115->I115[x1,x2] ,J215-> I215[x1,x2],J216-> I216[x1,x2],J317-> I317[x1,x2]}/.{(Subscript[p, 11])->xp1}

(Subscript[B, 0])[x1,x2,xp1]

(Subscript[B, μ])

ab11=Normal[Series[izrazb/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,7}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));

bb11=0;
Do[bb11+=Expand[Together[ab11[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[p, 11])->k^2*(Subscript[p, 11])},{i,1,Length[ab11]}]
bb11;

bb12=Coefficient[bb11,k,0]+Coefficient[bb11,k,1]+
Coefficient[bb11,k,2]+Coefficient[bb11,k,3]+
Coefficient[bb11,k,4]+Coefficient[bb11,k,5]+
Coefficient[bb11,k,6]+Coefficient[bb11,k,7];

bb1=0;
Do[bb1+=Expand[Together[bb12[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1])},{i,1,Length[bb12]}]
bb1;

rplb11={(Subscript[lp, 1])->(ll/D)*C11};
rplb13={((Subscript[lp, 1])^3)->((ll^2)/(D*(D+2)))*C13};
rplb15={((Subscript[lp, 1])^5)->((ll^3)/(D*(D+2)*(D+4)))*C15};
rplb17={((Subscript[lp, 1])^7)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C17};

cb11a=Coefficient[bb1,k,1]/.rplb11;
cb13a=Coefficient[bb1,k,3]/.rplb13;
cb15a=Coefficient[bb1,k,5]/.rplb15;
cb17a=Coefficient[bb1,k,7]/.rplb17;
cb1=cb11a+cb13a+cb15a+cb17a;

eb1=0;
Do[
AJ=Exponent[cb1[[i]],ll];
BJ=1;
CJ=Exponent[cb1[[i]],(ll-(Subscript[m, 2]^2))];
eb1+=Coefficient[Coefficient[cb1[[i]],(ll-(Subscript[m, 2]^2)),CJ],ll,AJ]*
ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]],
{i,1,Length[cb1]}]
eb1;
eb1s=Coefficient[eb1,(Subscript[p, 1μ])]

Koefb1[expr_,x_,vx_,y_,vy_]:=Module[{},Coefficient[Coefficient[expr,x,vx],y,vy]]

InputForm[Coefficient[eb1,(Subscript[p, 11]),0]]
Coefficient[eb1,(Subscript[p, 11]),1]

Koefb1[eb1,(Subscript[p, 11]),0,(Subscript[p, 1μ]),1]
Koefb1[eb1,(Subscript[p, 11]),1,(Subscript[p, 1μ]),1]
Koefb1[eb1,(Subscript[p, 11]),2,(Subscript[p, 1μ]),1]
Koefb1[eb1,(Subscript[p, 11]),3,(Subscript[p, 1μ]),1]

(Subscript[B, 1])[x1_,x2_,xp1_]:=eb1s/.{(Subscript[p, 11])->xp1}/.{J011->I011[x1,x2] ,J012-> I012[x1,x2],J013-> I013[x1,x2],J014-> I014[x1,x2],J112-> I112[x1,x2],J113-> I113[x1,x2],J114->I114 [x1,x2],J115->I115[x1,x2] ,J214-> I214[x1,x2],J215-> I215[x1,x2],J216-> I216[x1,x2],J316-> I316[x1,x2],J317-> I317[x1,x2],J418-> I418[x1,x2]}

(Subscript[B, 1])[x1,x2,xp1]

(Subscript[B, μν])

ab21=Normal[Series[izrazb/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,8}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));

bb21=0;
Do[bb21+=Expand[Together[ab21[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[p, 11])->k^2*(Subscript[p, 11])},{i,1,Length[ab21]}]
bb21;

bb22=Coefficient[bb21,k,0]+Coefficient[bb21,k,1]+
Coefficient[bb21,k,2]+Coefficient[bb21,k,3]+
Coefficient[bb21,k,4]+Coefficient[bb21,k,5]+
Coefficient[bb21,k,6]+Coefficient[bb21,k,7]+
Coefficient[bb21,k,8]

bb2=0;
Do[bb2+=Expand[Together[bb22[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1])},{i,1,Length[bb22]}]
bb2

rplb20=(ll/D)*C20;
rplb22={((Subscript[lp, 1])^2)->((ll^2)/(D*(D+2)))*C22};
rplb24={((Subscript[lp, 1])^4)->((ll^3)/(D*(D+2)*(D+4)))*C24};
rplb26={((Subscript[lp, 1])^6)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C26};
rplb28={((Subscript[lp, 1])^8)->((ll^5)/(D*(D+2)*(D+4)*(D+6)))*C28};

cb20a=Coefficient[bb2,k,0]*rplb20;
cb22a=Coefficient[bb2,k,2]/.rplb22;
cb24a=Coefficient[bb2,k,4]/.rplb24;
cb26a=Coefficient[bb2,k,6]/.rplb26;
cb28a=Coefficient[bb2,k,8]/.rplb28;
cb2=Expand[cb20a+cb22a+cb24a+cb26a+cb28a];

eb2=0;
Do[
AJ=Exponent[cb2[[i]],ll];
BJ=1;
CJ=Exponent[cb2[[i]],(ll-(Subscript[m, 2]^2))];
eb2+=Coefficient[Coefficient[cb2[[i]],(ll-(Subscript[m, 2]^2)),CJ],ll,AJ]*
ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]],
{i,1,Length[cb2]}];
eb2;
eb2s0=Coefficient[eb2,(Subscript[g, μν])]
eb2s2=Coefficient[Coefficient[eb2,(Subscript[p, 1μ])],(Subscript[p, 1ν])]

Koefb2a[expr_,x_,vx_,y_,vy_]:=Module[{},Coefficient[Coefficient[expr,x,vx],y,vy]]
Koefb2b[expr_,x_,vx_,y_,vy_,z_,vz_]:=Module[{},Coefficient[Coefficient[Coefficient[expr,x,vx],y,vy],z,vz]]

Coefficient[eb2,(Subscript[p, 11]),0]

Koefb2a[eb2,(Subscript[p, 11]),0,(Subscript[g, μν]),1]

Koefb2a[eb2,(Subscript[p, 11]),1,(Subscript[g, μν]),1]
Koefb2b[eb2,(Subscript[p, 11]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]

Koefb2a[eb2,(Subscript[p, 11]),2,(Subscript[g, μν]),1]
Koefb2b[eb2,(Subscript[p, 11]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]

Koefb2a[eb2,(Subscript[p, 11]),3,(Subscript[g, μν]),1]
Koefb2b[eb2,(Subscript[p, 11]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]

Koefb2a[eb2,(Subscript[p, 11]),4,(Subscript[g, μν]),1]
Koefb2b[eb2,(Subscript[p, 11]),3,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]

(Subscript[B, 21])[x1_,x2_,xp1_]:=eb2s2/.{(Subscript[p, 11])->xp1}/.{J011->I011[x1,x2] ,J012-> I012[x1,x2],J013-> I013[x1,x2],J014-> I014[x1,x2],J111-> I111[x1,x2],J112-> I112[x1,x2],J113-> I113[x1,x2],J114->I114 [x1,x2],J115->I115[x1,x2] ,J213-> I213[x1,x2],J214-> I214[x1,x2],J215-> I215[x1,x2],J216-> I216[x1,x2],J315-> I315[x1,x2],J316-> I316[x1,x2],J317-> I317[x1,x2],J417-> I417[x1,x2],J418-> I418[x1,x2],J519-> I519[x1,x2]}

(Subscript[B, 21])[x1,x2,xp1]

(Subscript[B, 22])[x1_,x2_,xp1_]:=eb2s0/.{(Subscript[p, 11])->xp1}/.{J011->I011[x1,x2] ,J012-> I012[x1,x2],J013-> I013[x1,x2],J014-> I014[x1,x2],J111-> I111[x1,x2],J112-> I112[x1,x2],J113-> I113[x1,x2],J114->I114 [x1,x2],J115->I115[x1,x2] ,J213-> I213[x1,x2],J214-> I214[x1,x2],J215-> I215[x1,x2],J216-> I216[x1,x2],J315-> I315[x1,x2],J316-> I316[x1,x2],J317-> I317[x1,x2],J417-> I417[x1,x2],J418-> I418[x1,x2],J519-> I519[x1,x2]}

(Subscript[B, 22])[x1,x2,xp1]

(Subscript[C, 0]),(Subscript[C, μ]),(Subscript[C, μν]),(Subscript[C, μνρ])

ll=Pair[Momentum[l],Momentum[l]];
(Subscript[lp, 1])=Pair[Momentum[l],Momentum[Subscript[p,1]]];
(Subscript[lp, 12])=Pair[Momentum[l],Momentum[Subscript[p,12]]];
(Subscript[p, 11])=Pair[Momentum[Subscript[p,1]],Momentum[Subscript[p,1]]];
(Subscript[p, 112])=Pair[Momentum[Subscript[p,1]],Momentum[Subscript[p,12]]];
(Subscript[p, 1212])=Pair[Momentum[Subscript[p,12]],Momentum[Subscript[p,12]]];
(Subscript[p, 1μ])=Pair[LorentzIndex[μ],Momentum[Subscript[p,1]]];
(Subscript[p, 1ν])=Pair[LorentzIndex[ν],Momentum[Subscript[p,1]]];
(Subscript[p, 1ρ])=Pair[LorentzIndex[ρ],Momentum[Subscript[p,1]]];
(Subscript[p, 12μ])=Pair[LorentzIndex[μ],Momentum[Subscript[p,12]]];
(Subscript[p, 12ν])=Pair[LorentzIndex[ν],Momentum[Subscript[p,12]]];
(Subscript[p, 12ρ])=Pair[LorentzIndex[ρ],Momentum[Subscript[p,12]]];
(Subscript[g, μν])=Pair[LorentzIndex[μ],LorentzIndex[ν]];
(Subscript[g, μρ])=Pair[LorentzIndex[μ],LorentzIndex[ρ]];
(Subscript[g, νρ])=Pair[LorentzIndex[ν],LorentzIndex[ρ]];

izrazc1=(1/((ll-(Subscript[m, 2]^2))(1+((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2))))));

izrazc2=(1/((ll-(Subscript[m, 3]^2))(1+((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2))))));

(Subscript[C, 0])

ac01a=Normal[Series[izrazc1/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,6}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));
ac01b=Normal[Series[izrazc2/.((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)))->ϵ,{ϵ,0,6}]]/.ϵ->((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)));

ac01=Expand[ac01a*ac01b];

bc01=0;
Do[bc01+=Expand[Together[ac01[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12]),(Subscript[p, 11])->(k^2)*(Subscript[p, 11]),(Subscript[p, 112])->(k^2)*(Subscript[p, 112]),(Subscript[p, 1212])->(k^2)*(Subscript[p, 1212])},{i,1,Length[ac01]}]
bc01;

bc02=Coefficient[bc01,k,0]+Coefficient[bc01,k,1]+
Coefficient[bc01,k,2]+Coefficient[bc01,k,3]+
Coefficient[bc01,k,4]+Coefficient[bc01,k,5]+
Coefficient[bc01,k,6];

bc0=0;
Do[bc0+=Expand[Together[bc02[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12])},{i,1,Length[bc02]}]
bc0;

rlpc00=C000;
rplc02={(Subscript[lp, 1])^2->(ll/D)*C020,
(Subscript[lp, 1])*(Subscript[lp, 12])-> (ll/D)C011,
(Subscript[lp, 12])^2->(ll/D)C002};
rplc04={(Subscript[lp, 1])^4->((ll^2)/(D*(D+2)))*C040,
(Subscript[lp, 1])^3*(Subscript[lp, 12])->((ll^2)/(D*(D+2)))*C031,
(Subscript[lp, 1])^2*(Subscript[lp, 12])^2->((ll^2)/(D*(D+2)))*C022,
(Subscript[lp, 1])*(Subscript[lp, 12])^3->((ll^2)/(D*(D+2)))*C013,
(Subscript[lp, 12])^4->((ll^2)/(D*(D+2)))*C004};
rplc06={(Subscript[lp, 1])^6->((ll^3)/(D*(D+2)*(D+4)))*C060,
(Subscript[lp, 1])^5*(Subscript[lp, 12])-> ((ll^3)/(D*(D+2)*(D+4)))*C051,
(Subscript[lp, 1])^4*(Subscript[lp, 12])^2-> ((ll^3)/(D*(D+2)*(D+4)))*C042,
(Subscript[lp, 1])^3*(Subscript[lp, 12])^3->((ll^3)/(D*(D+2)*(D+4)))*C033,
(Subscript[lp, 1])^2*(Subscript[lp, 12])^4-> ((ll^3)/(D*(D+2)*(D+4)))*C024,
(Subscript[lp, 1])*(Subscript[lp, 12])^5-> ((ll^3)/(D*(D+2)*(D+4)))*C015,
(Subscript[lp, 12])^6->((ll^3)/(D*(D+2)*(D+4)))*C006};

cc00=Coefficient[bc0,k,0]*rlpc00;
cc02=Coefficient[bc0,k,2]/.rplc02;
cc04=Coefficient[bc0,k,4]/.rplc04;
cc06=Coefficient[bc0,k,6]/.rplc06;
cc0=Expand[cc00+cc02+cc04+cc06];

ec0=0;
Do[
AJ=Exponent[cc0[[i]],ll];
BJ=1;
CJ=Exponent[cc0[[i]],(ll-(Subscript[m, 2]^2))];
DJ=Exponent[cc0[[i]],(ll-(Subscript[m, 3]^2))];
ec0+=Coefficient[Coefficient[Coefficient[cc0[[i]],(ll-(Subscript[m, 2]^2)),CJ],(ll-(Subscript[m, 3]^2)),DJ],ll,AJ]*ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]<>ToString[-DJ]],
{i,1,Length[cc0]}]
ec0;

(Subscript[C, 0])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec0/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3117->I3117[x1,x2,x3],J3126->I3126[x1,x2,x3],J3135->I3135[x1,x2,x3],J3144->I3144[x1,x2,x3],J3153->I3153[x1,x2,x3],J3162->I3162[x1,x2,x3],J3171->I3171[x1,x2,x3]}

Koefc0[expr_,x_,vx_,y_,vy_,z_,vz_]:=Module[{},
Coefficient[Coefficient[Coefficient[expr,x,vx],y,vy],z,vz]]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1]

Koefc0[ec0,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2]

Koefc0[ec0,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1]

Koefc0[ec0,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3]

Koefc0[ec0,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0]

Koefc0[ec0,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1]

Koefc0[ec0,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2]

Koefc0[ec0,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2]

Koefc0[ec0,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1]

(Subscript[C, μ])

ac11a=Normal[Series[izrazc1/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,7}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));
ac11b=Normal[Series[izrazc2/.((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)))->ϵ,{ϵ,0,7}]]/.ϵ->((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)));

ac11=Expand[ac11a*ac11b];

bc11=0;
Do[bc11+=Expand[Together[ac11[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12]),(Subscript[p, 11])->(k^2)*(Subscript[p, 11]),(Subscript[p, 112])->(k^2)*(Subscript[p, 112]),(Subscript[p, 1212])->(k^2)*(Subscript[p, 1212])},{i,1,Length[ac11]}]
bc11;

bc12=Coefficient[bc11,k,0]+Coefficient[bc11,k,1]+
Coefficient[bc11,k,2]+Coefficient[bc11,k,3]+
Coefficient[bc11,k,4]+Coefficient[bc11,k,5]+
Coefficient[bc11,k,6]+Coefficient[bc11,k,7];

bc1=0;
Do[bc1+=Expand[Together[bc12[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12])},{i,1,Length[bc12]}]
bc1;

rplc11={(Subscript[lp, 1])->(ll/D)*C110,
(Subscript[lp, 12])->(ll/D)*C101};
rplc13={((Subscript[lp, 1])^3)->((ll^2)/(D*(D+2)))*C130,
((Subscript[lp, 12])^3)->((ll^2)/(D*(D+2)))*C103,
((Subscript[lp, 1])^2)*(Subscript[lp, 12])->((ll^2)/(D*(D+2)))*C121,
(Subscript[lp, 1])*((Subscript[lp, 12])^2)->((ll^2)/(D*(D+2)))*C112};
rplc15={((Subscript[lp, 1])^5)->((ll^3)/(D*(D+2)*(D+4)))*C150,
((Subscript[lp, 12])^5)->((ll^3)/(D*(D+2)*(D+4)))*C105,
((Subscript[lp, 1])^4)*(Subscript[lp, 12])->((ll^3)/(D*(D+2)*(D+4)))*C141,
(Subscript[lp, 1])*((Subscript[lp, 12])^4)->((ll^3)/(D*(D+2)*(D+4)))*C114,
((Subscript[lp, 1])^3)*((Subscript[lp, 12])^2)->((ll^3)/(D*(D+2)*(D+4)))*C132,
((Subscript[lp, 1])^2)*((Subscript[lp, 12])^3)->((ll^3)/(D*(D+2)*(D+4)))*C123};
rplc17={((Subscript[lp, 1])^7)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C170,
((Subscript[lp, 12])^7)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C107,
((Subscript[lp, 1])^6)*(Subscript[lp, 12])->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C161,
(Subscript[lp, 1])*((Subscript[lp, 12])^6)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C116,
((Subscript[lp, 1])^5)*((Subscript[lp, 12])^2)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C152,
((Subscript[lp, 1])^2)*((Subscript[lp, 12])^5)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C125,
((Subscript[lp, 1])^4)*((Subscript[lp, 12])^3)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C143,
((Subscript[lp, 1])^3)*((Subscript[lp, 12])^4)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C134};

cc11=Coefficient[bc1,k,1]/.rplc11;
cc13=Coefficient[bc1,k,3]/.rplc13;
cc15=Coefficient[bc1,k,5]/.rplc15;
cc17=Coefficient[bc1,k,7]/.rplc17;
cc1=cc11+cc13+cc15+cc17;

ec1=0;
Do[
AJ=Exponent[cc1[[i]],ll];
BJ=1;
CJ=Exponent[cc1[[i]],(ll-(Subscript[m, 2]^2))];
DJ=Exponent[cc1[[i]],(ll-(Subscript[m, 3]^2))];
ec1+=Coefficient[Coefficient[Coefficient[cc1[[i]],(ll-(Subscript[m, 2]^2)),CJ],(ll-(Subscript[m, 3]^2)),DJ],ll,AJ]*ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]<>ToString[-DJ]],
{i,1,Length[cc1]}]
ec1;

ec1p1=Coefficient[ec1,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 1])]]];
ec1p12=Coefficient[ec1,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 12])]]];

ec1p14=Module[{x1,x2}, 
x1=ec1p1/.D->4/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->(k^2)*Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]],
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->(k^2)*Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]],Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->(k^2)*Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]};
x2=Coefficient[x1,k,0]+Coefficient[x1,k,2]+Coefficient[x1,k,4]]

ec1p124=Module[{x1,x2}, 
x1=ec1p12/.D->4/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->(k^2)*Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]],
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->(k^2)*Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]],Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->(k^2)*Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]};
x2=Coefficient[x1,k,0]+Coefficient[x1,k,2]+Coefficient[x1,k,4]]

(Subscript[C, 1A])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec1p1/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3117->I3117[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4127->I4127[x1,x2,x3],J4136->I4136[x1,x2,x3],J4145->I4145[x1,x2,x3],J4154->I4154[x1,x2,x3],J4163->I4163[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3]}
(Subscript[C, 12])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec1p12/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4118->I4118[x1,x2,x3],J4127->I4127[x1,x2,x3],J4136->I4136[x1,x2,x3],J4145->I4145[x1,x2,x3],J4154->I4154[x1,x2,x3],J4163->I4163[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3]}

Koefc1[expr_,x_,vx_,y_,vy_,z_,vz_,v_,vv_]:=Module[{},
Coefficient[Coefficient[Coefficient[Coefficient[expr,x,vx],y,vy],z,vz],v,vv]]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1]

Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1]
Koefc1[ec1,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1]

(Subscript[C, μν])

ac21a=Normal[Series[izrazc1/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,8}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));
ac21b=Normal[Series[izrazc2/.((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)))->ϵ,{ϵ,0,8}]]/.ϵ->((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)));

ac21=Expand[ac21a*ac21b];

bc21=0;
Do[bc21+=Expand[Together[ac21[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12]),(Subscript[p, 11])->(k^2)*(Subscript[p, 11]),(Subscript[p, 112])->(k^2)*(Subscript[p, 112]),(Subscript[p, 1212])->(k^2)*(Subscript[p, 1212])},{i,1,Length[ac21]}]
bc21;

bc22=Coefficient[bc21,k,0]+Coefficient[bc21,k,1]+
Coefficient[bc21,k,2]+Coefficient[bc21,k,3]+
Coefficient[bc21,k,4]+Coefficient[bc21,k,5]+
Coefficient[bc21,k,6]+Coefficient[bc21,k,7]+
Coefficient[bc21,k,8];

bc2=0;
Do[bc2+=Expand[Together[bc22[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12])},{i,1,Length[bc22]}]
bc2;

rplc20=(ll/D)*C200;
rplc22={((Subscript[lp, 1])^2)->((ll^2)/(D*(D+2)))*C220,
((Subscript[lp, 12])^2)->((ll^2)/(D*(D+2)))*C202,
(Subscript[lp, 1])*(Subscript[lp, 12])->((ll^2)/(D*(D+2)))*C211};
rplc24={((Subscript[lp, 1])^4)-> ((ll^3)/(D*(D+2)*(D+4)))*C240,
((Subscript[lp, 12])^4)-> ((ll^3)/(D*(D+2)*(D+4)))*C204,
((Subscript[lp, 1])^3)*(Subscript[lp, 12])->((ll^3)/(D*(D+2)*(D+4)))*C231,
(Subscript[lp, 1])*((Subscript[lp, 12])^3)->((ll^3)/(D*(D+2)*(D+4)))*C213,
((Subscript[lp, 1])^2)*((Subscript[lp, 12])^2)->((ll^3)/(D*(D+2)*(D+4)))*C222};
rplc26={((Subscript[lp, 1])^6)-> ((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C260,
((Subscript[lp, 12])^6)-> ((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C206,
((Subscript[lp, 1])^5)*(Subscript[lp, 12])->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C251,
(Subscript[lp, 1])*((Subscript[lp, 12])^5)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C215,
((Subscript[lp, 1])^4)*((Subscript[lp, 12])^2)-> ((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C242,
((Subscript[lp, 1])^2)*((Subscript[lp, 12])^4)-> ((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C224,
((Subscript[lp, 1])^3)*((Subscript[lp, 12])^3)-> ((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C233};
rplc28={ ((Subscript[lp, 1])^8)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C280,
((Subscript[lp, 12])^8)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C208,
((Subscript[lp, 1])^7)*(Subscript[lp, 12])-> ((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C271,
(Subscript[lp, 1])*((Subscript[lp, 12])^7)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C217,
((Subscript[lp, 1])^6)*((Subscript[lp, 12])^2)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C262,
((Subscript[lp, 1])^2)*((Subscript[lp, 12])^6)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C226,
((Subscript[lp, 1])^5)*((Subscript[lp, 12])^3)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C253,
((Subscript[lp, 1])^3)*((Subscript[lp, 12])^5)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C235,
((Subscript[lp, 1])^4)*((Subscript[lp, 12])^4)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C244};

cc20a=Coefficient[bc2,k,0]*rplc20;
cc22a=Coefficient[bc2,k,2]/.rplc22;
cc24a=Coefficient[bc2,k,4]/.rplc24;
cc26a=Coefficient[bc2,k,6]/.rplc26;
cc28a=Coefficient[bc2,k,8]/.rplc28;
cc2=Expand[cc20a+cc22a+cc24a+cc26a+cc28a];

ec2=0;
Do[
AJ=Exponent[cc2[[i]],ll];
BJ=1;
CJ=Exponent[cc2[[i]],(ll-(Subscript[m, 2]^2))];
DJ=Exponent[cc2[[i]],(ll-(Subscript[m, 3]^2))];
ec2+=Coefficient[Coefficient[Coefficient[cc2[[i]],(ll-(Subscript[m, 2]^2)),CJ],(ll-(Subscript[m, 3]^2)),DJ],ll,AJ]*ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]<>ToString[-DJ]],
{i,1,Length[cc2]}]
ec2;

ec22A=Coefficient[ec2,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 1])]]];
ec222=Coefficient[ec2,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 12])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 12])]]];
ec22B=Coefficient[ec2,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 12])]]];
ec224=Coefficient[ec2,Pair[LorentzIndex[μ],LorentzIndex[ν]]];

(Subscript[C, 2A])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec22A/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4118->I4118[x1,x2,x3],J4127->I4127[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5137->I5137[x1,x2,x3],J5146->I5146[x1,x2,x3],J5155->I5155[x1,x2,x3],J5164->I5164[x1,x2,x3],J5173->I5173[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3]}
(Subscript[C, 2A])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 22])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec222/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5119->I5119[x1,x2,x3],J5128->I5128[x1,x2,x3],J5137->I5137[x1,x2,x3],J5146->I5146[x1,x2,x3],J5155->I5155[x1,x2,x3],J5164->I5164[x1,x2,x3],J5173->I5173[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3]}
(Subscript[C, 22])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 2B])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec22B/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5119->I5119[x1,x2,x3],J5128->I5128[x1,x2,x3],J5137->I5137[x1,x2,x3],J5146->I5146[x1,x2,x3],J5155->I5155[x1,x2,x3],J5164->I5164[x1,x2,x3],J5173->I5173[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3]}
(Subscript[C, 2B])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 24])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec224/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1111->I1111[x1,x2,x3],J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5119->I5119[x1,x2,x3],J5128->I5128[x1,x2,x3],J5137->I5137[x1,x2,x3],J5146->I5146[x1,x2,x3],J5155->I5155[x1,x2,x3],J5164->I5164[x1,x2,x3],J5173->I5173[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3]}
(Subscript[C, 24])[x1,x2,x3,xp11,xp1212,xp112];

Koefc2a[expr_,x_,vx_,y_,vy_,z_,vz_,v_,vv_]:=Module[{},
Coefficient[Coefficient[Coefficient[Coefficient[expr,x,vx],y,vy],z,vz],v,vv]]
Koefc2b[expr_,x_,vx_,y_,vy_,z_,vz_,v_,vv_,w_,vw_]:=Module[{},
Coefficient[Coefficient[Coefficient[Coefficient[Coefficient[expr,x,vx],y,vy],z,vz],v,vv],w,vw]]

Print["k=0, (Subscript[g, μν])"]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[g, μν]),1]

Print["k=2, (Subscript[g, μν])"]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Print["k=2, (Subscript[p, iμ])(Subscript[p, jν])"]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]

Print["k=4, (Subscript[g, μν])"]
Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Print["k=4, (Subscript[p, 1  μ])(Subscript[p, 1  ν]), (Subscript[p, 2  μ])(Subscript[p, 2  ν])"]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Print["k=4, (Subscript[p, 1  μ])(Subscript[p, 2  ν]), (Subscript[p, 2  μ])(Subscript[p, 1  ν])"]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]

Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[g, μν]),1]

-((16 J3133)/(D (D+2) (D+4)))

Print["k=6, (Subscript[g, μν])"]
Koefc2a[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Print["k=6, (Subscript[p, 1  μ])(Subscript[p, 1  ν]), (Subscript[p, 2  μ])(Subscript[p, 2  ν])"]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Print["k=6, (Subscript[p, 1  μ])(Subscript[p, 2  ν]), (Subscript[p, 2  μ])(Subscript[p, 1  ν])"]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]

Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[g, μν]),1] (*new;old*)

((48 J3143)/(D (D+2) (D+4)))+((768 J4153)/(D (D+2) (D+4) (D+6)))

Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[g, μν]),1] (*new;old*)

((48 J3134)/(D (D+2) (D+4)))+((768 J4135)/(D (D+2) (D+4) (D+6)))

Print["k=8, (Subscript[g, μν])"]
Koefc2a[ec2,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[g, μν]),1]
Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[g, μν]),1]
Print["k=8, (Subscript[p, 1  μ])(Subscript[p, 1  ν]), (Subscript[p, 2  μ])(Subscript[p, 2  ν])"]
Koefc2b[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1]
Print["k=8, (Subscript[p, 1  μ])(Subscript[p, 2  ν]), (Subscript[p, 1  μ])(Subscript[p, 2  ν])"]
Koefc2b[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1]
Koefc2b[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1]

Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[g, μν]),1] (*new;old*)

((256 J5155)/(D (D+2) (D+4) (D+6) (D+8)))

Koefc2a[ec2,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[g, μν]),1](*new;old*)

-((96 J3153)/(D (D+2) (D+4)))-((3840 J4163)/(D (D+2) (D+4) (D+6)))+((345600 J5173)/(D (D+2) (D+4) (D+6) (D+8)))

Koefc2a[ec2,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[g, μν]),1](*new;old*)

-((96 J3135)/(D (D+2) (D+4)))-((3840 J4136)/(D (D+2) (D+4) (D+6)))+((345600 J5137)/(D (D+2) (D+4) (D+6) (D+8)))

Koefc2a[ec2,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[g, μν]),1](*new;old*)

-((144 J3144)/(D (D+2) (D+4)))-((2304 J4145)/(D (D+2) (D+4) (D+6)))-((2304 J4154)/(D (D+2) (D+4) (D+6)))+((18432 J5155)/(D (D+2) (D+4) (D+6) (D+8)))

(Subscript[C, μνρ])

ac31a=Normal[Series[izrazc1/.((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)))->ϵ,{ϵ,0,9}]]/.ϵ->((2 (Subscript[lp, 1])+(Subscript[p, 11]))/(ll-(Subscript[m, 2]^2)));

ac31b=Normal[Series[izrazc2/.((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)))->ϵ,{ϵ,0,9}]]/.ϵ->((2 (Subscript[lp, 12])+(Subscript[p, 1212]))/(ll-(Subscript[m, 3]^2)));

ac31=Expand[ac31a*ac31b];

Length[ac31]

bc31=0;
Do[bc31+=Expand[Together[ac31[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12]),(Subscript[p, 11])->(k^2)*(Subscript[p, 11]),(Subscript[p, 112])->(k^2)*(Subscript[p, 112]),(Subscript[p, 1212])->(k^2)*(Subscript[p, 1212])},{i,1,Length[ac31]}]
bc31;

Length[bc31]

bc32=Coefficient[bc31,k,0]+Coefficient[bc31,k,1]+
Coefficient[bc31,k,2]+Coefficient[bc31,k,3]+
Coefficient[bc31,k,4]+Coefficient[bc31,k,5]+
Coefficient[bc31,k,6]+Coefficient[bc31,k,7]+
Coefficient[bc31,k,8]+Coefficient[bc31,k,9];

bc3=0;
Do[bc3+=Expand[Together[bc32[[i]]]]/.{(Subscript[lp, 1])->k*(Subscript[lp, 1]),(Subscript[lp, 12])->k*(Subscript[lp, 12])},{i,1,Length[bc32]}]
bc3;

Length[bc3]

rplc31={(Subscript[lp, 1])->((ll^2)/(D*(D+2)))*C310,(Subscript[lp, 12])->((ll^2)/(D*(D+2)))*C301};
rplc33={((Subscript[lp, 1])^3)->((ll^3)/(D*(D+2)*(D+4)))*C330,((Subscript[lp, 12])^3)->((ll^3)/(D*(D+2)*(D+4)))*C303,((Subscript[lp, 1])^2)*(Subscript[lp, 12])->((ll^3)/(D*(D+2)*(D+4)))*C321,(Subscript[lp, 1])*((Subscript[lp, 12])^2)->((ll^3)/(D*(D+2)*(D+4)))*C312};
rplc35={((Subscript[lp, 1])^5)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C350,((Subscript[lp, 12])^5)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C305,((Subscript[lp, 1])^4)*(Subscript[lp, 12])->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C341,
(Subscript[lp, 1])*((Subscript[lp, 12])^4)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C314,((Subscript[lp, 1])^3)*((Subscript[lp, 12])^2)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C332,((Subscript[lp, 1])^2)*((Subscript[lp, 12])^3)->((ll^4)/(D*(D+2)*(D+4)*(D+6)))*C323};
rplc37={((Subscript[lp, 1])^7)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C370,((Subscript[lp, 12])^7)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C307,((Subscript[lp, 1])^6)*(Subscript[lp, 12])->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C361,(Subscript[lp, 1])*((Subscript[lp, 12])^6)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C316,
((Subscript[lp, 1])^5)*((Subscript[lp, 12])^2)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C352,((Subscript[lp, 1])^2)*((Subscript[lp, 12])^5)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C325,
((Subscript[lp, 1])^4)*((Subscript[lp, 12])^3)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C343,((Subscript[lp, 1])^3)*((Subscript[lp, 12])^4)->((ll^5)/(D*(D+2)*(D+4)*(D+6)*(D+8)))*C334};
rplc39={((Subscript[lp, 1])^9)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C390,((Subscript[lp, 12])^9)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C309,
((Subscript[lp, 1])^8)*(Subscript[lp, 12])->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C381,(Subscript[lp, 1])*((Subscript[lp, 12])^8)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C318,
((Subscript[lp, 1])^7)*((Subscript[lp, 12])^2)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C372,((Subscript[lp, 1])^2)*((Subscript[lp, 12])^7)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C327,
((Subscript[lp, 1])^6)*((Subscript[lp, 12])^3)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C363,((Subscript[lp, 1])^3)*((Subscript[lp, 12])^6)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C336,
((Subscript[lp, 1])^5)*((Subscript[lp, 12])^4)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C354,((Subscript[lp, 1])^4)*((Subscript[lp, 12])^5)->((ll^6)/(D*(D+2)*(D+4)*(D+6)*(D+8)*(D+10)))*C345};

cc31a=Coefficient[bc3,k,1]/.rplc31;
cc33a=Coefficient[bc3,k,3]/.rplc33;
cc35a=Coefficient[bc3,k,5]/.rplc35;
cc37a=Coefficient[bc3,k,7]/.rplc37;
cc39a=Coefficient[bc3,k,9]/.rplc39;
cc3=Expand[cc31a+cc33a+cc35a+cc37a+cc39a];

Length[cc3]

ec3=0;
Do[
AJ=Exponent[cc3[[i]],ll];
BJ=1;
CJ=Exponent[cc3[[i]],(ll-(Subscript[m, 2]^2))];
DJ=Exponent[cc3[[i]],(ll-(Subscript[m, 3]^2))];
ec3+=Coefficient[Coefficient[Coefficient[cc3[[i]],(ll-(Subscript[m, 2]^2)),CJ],(ll-(Subscript[m, 3]^2)),DJ],ll,AJ]*ToExpression["J"<>ToString[AJ]<>ToString[BJ]<>ToString[-CJ]<>ToString[-DJ]],
{i,1,Length[cc3]}]
ec3;

ec33A=Coefficient[ec3,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ρ],Momentum[(Subscript[p, 1])]]];
ec332=Coefficient[ec3,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 12])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 12])]]*Pair[LorentzIndex[ρ],Momentum[(Subscript[p, 12])]]];
ec33B=Coefficient[ec3,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ρ],Momentum[(Subscript[p, 12])]]];
ec33C=Coefficient[ec3,Pair[LorentzIndex[μ],Momentum[(Subscript[p, 1])]]*Pair[LorentzIndex[ν],Momentum[(Subscript[p, 12])]]*Pair[LorentzIndex[ρ],Momentum[(Subscript[p, 12])]]];
ec33D=Coefficient[ec3,Pair[LorentzIndex[μ],LorentzIndex[ν]]*Pair[LorentzIndex[ρ],Momentum[(Subscript[p, 1])]]];
ec336=Coefficient[ec3,Pair[LorentzIndex[μ],LorentzIndex[ν]]*Pair[LorentzIndex[ρ],Momentum[(Subscript[p, 12])]]];

(Subscript[C, 3A])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec33A/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1111->I1111[x1,x2,x3],J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3114->I3114[x1,x2,x3],J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3141->I3141[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4116->I4116[x1,x2,x3],J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4125->I4125[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4134->I4134[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4143->I4143[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4152->I4152[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4161->I4161[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5118->I5118[x1,x2,x3],J5119->I5119[x1,x2,x3],J5127->I5127[x1,x2,x3],J5128->I5128[x1,x2,x3],J5136->I5136[x1,x2,x3],J5137->I5137[x1,x2,x3],J5145->I5145[x1,x2,x3],J5146->I5146[x1,x2,x3],J5154->I5154[x1,x2,x3],J5155->I5155[x1,x2,x3],J5163->I5163[x1,x2,x3],J5164->I5164[x1,x2,x3],J5172->I5172[x1,x2,x3],J5173->I5173[x1,x2,x3],J5181->I5181[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3],
J61110->I61110[x1,x2,x3],J6129->I6129[x1,x2,x3],J6138->I6138[x1,x2,x3],J6147->I6147[x1,x2,x3],J6156->I6156[x1,x2,x3],J6165->I6165[x1,x2,x3],J6174->I6174[x1,x2,x3],J6183->I6183[x1,x2,x3],J6192->I6192[x1,x2,x3],J61101->I61101[x1,x2,x3]}
(Subscript[C, 3A])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 32])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec332/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1111->I1111[x1,x2,x3],J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3114->I3114[x1,x2,x3],J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3141->I3141[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4116->I4116[x1,x2,x3],J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4125->I4125[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4134->I4134[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4143->I4143[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4152->I4152[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4161->I4161[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5118->I5118[x1,x2,x3],J5119->I5119[x1,x2,x3],J5127->I5127[x1,x2,x3],J5128->I5128[x1,x2,x3],J5136->I5136[x1,x2,x3],J5137->I5137[x1,x2,x3],J5145->I5145[x1,x2,x3],J5146->I5146[x1,x2,x3],J5154->I5154[x1,x2,x3],J5155->I5155[x1,x2,x3],J5163->I5163[x1,x2,x3],J5164->I5164[x1,x2,x3],J5172->I5172[x1,x2,x3],J5173->I5173[x1,x2,x3],J5181->I5181[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3],
J61110->I61110[x1,x2,x3],J6129->I6129[x1,x2,x3],J6138->I6138[x1,x2,x3],J6147->I6147[x1,x2,x3],J6156->I6156[x1,x2,x3],J6165->I6165[x1,x2,x3],J6174->I6174[x1,x2,x3],J6183->I6183[x1,x2,x3],J6192->I6192[x1,x2,x3],J61101->I61101[x1,x2,x3]}
(Subscript[C, 32])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 3B])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec33A/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1111->I1111[x1,x2,x3],J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3114->I3114[x1,x2,x3],J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3141->I3141[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4116->I4116[x1,x2,x3],J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4125->I4125[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4134->I4134[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4143->I4143[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4152->I4152[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4161->I4161[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5118->I5118[x1,x2,x3],J5119->I5119[x1,x2,x3],J5127->I5127[x1,x2,x3],J5128->I5128[x1,x2,x3],J5136->I5136[x1,x2,x3],J5137->I5137[x1,x2,x3],J5145->I5145[x1,x2,x3],J5146->I5146[x1,x2,x3],J5154->I5154[x1,x2,x3],J5155->I5155[x1,x2,x3],J5163->I5163[x1,x2,x3],J5164->I5164[x1,x2,x3],J5172->I5172[x1,x2,x3],J5173->I5173[x1,x2,x3],J5181->I5181[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3],
J61110->I61110[x1,x2,x3],J6129->I6129[x1,x2,x3],J6138->I6138[x1,x2,x3],J6147->I6147[x1,x2,x3],J6156->I6156[x1,x2,x3],J6165->I6165[x1,x2,x3],J6174->I6174[x1,x2,x3],J6183->I6183[x1,x2,x3],J6192->I6192[x1,x2,x3],J61101->I61101[x1,x2,x3]}
(Subscript[C, 3B])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 3C])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec33A/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1111->I1111[x1,x2,x3],J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3114->I3114[x1,x2,x3],J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3141->I3141[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4116->I4116[x1,x2,x3],J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4125->I4125[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4134->I4134[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4143->I4143[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4152->I4152[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4161->I4161[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5118->I5118[x1,x2,x3],J5119->I5119[x1,x2,x3],J5127->I5127[x1,x2,x3],J5128->I5128[x1,x2,x3],J5136->I5136[x1,x2,x3],J5137->I5137[x1,x2,x3],J5145->I5145[x1,x2,x3],J5146->I5146[x1,x2,x3],J5154->I5154[x1,x2,x3],J5155->I5155[x1,x2,x3],J5163->I5163[x1,x2,x3],J5164->I5164[x1,x2,x3],J5172->I5172[x1,x2,x3],J5173->I5173[x1,x2,x3],J5181->I5181[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3],
J61110->I61110[x1,x2,x3],J6129->I6129[x1,x2,x3],J6138->I6138[x1,x2,x3],J6147->I6147[x1,x2,x3],J6156->I6156[x1,x2,x3],J6165->I6165[x1,x2,x3],J6174->I6174[x1,x2,x3],J6183->I6183[x1,x2,x3],J6192->I6192[x1,x2,x3],J61101->I61101[x1,x2,x3]}
(Subscript[C, 3C])[x1,x2,x3,xp11,xp1212,xp112];

(Subscript[C, 3D])[x1_,x2_,x3_,xp11_,xp1212_,xp112_]:=ec33A/.{Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 1])]]->xp11,
Pair[Momentum[(Subscript[p, 12])],Momentum[(Subscript[p, 12])]]->xp1212,Pair[Momentum[(Subscript[p, 1])],Momentum[(Subscript[p, 12])]]->xp112}/.{J0111->I0111[x1,x2,x3],J0112->I0112[x1,x2,x3],J0113->I0113[x1,x2,x3],J0121->I0121[x1,x2,x3],J0122->I0122[x1,x2,x3],J0123->I0123[x1,x2,x3],J0131->I0131[x1,x2,x3],J0132->I0132[x1,x2,x3],J0141->I0141[x1,x2,x3],J0114->I0114[x1,x2,x3],
J1111->I1111[x1,x2,x3],J1112->I1112[x1,x2,x3],J1113->I1113[x1,x2,x3],J1114->I1114[x1,x2,x3],J1115->I1115[x1,x2,x3],J1121->I1121[x1,x2,x3],J1122->I1122[x1,x2,x3],J1123->I1123[x1,x2,x3],J1124->I1124[x1,x2,x3],J1131->I1131[x1,x2,x3],J1132->I1132[x1,x2,x3],J1133->I1133[x1,x2,x3],J1141->I1141[x1,x2,x3],J1142->I1142[x1,x2,x3],J1145->I1145[x1,x2,x3],J1151->I1151[x1,x2,x3],
J2113->I2113[x1,x2,x3],J2114->I2114[x1,x2,x3],J2115->I2115[x1,x2,x3],J2116->I2116[x1,x2,x3],J2122->I2122[x1,x2,x3],J2123->I2123[x1,x2,x3],J2124->I2124[x1,x2,x3],J2125->I2125[x1,x2,x3],J2131->I2131[x1,x2,x3],J2132->I2132[x1,x2,x3],J2133->I2133[x1,x2,x3],J2134->I2134[x1,x2,x3],J2141->I2141[x1,x2,x3],J2142->I2142[x1,x2,x3],J2143->I2143[x1,x2,x3],J2151->I2151[x1,x2,x3],J2152->I2152[x1,x2,x3],J2161->I2161[x1,x2,x3],
J3114->I3114[x1,x2,x3],J3115->I3115[x1,x2,x3],J3116->I3116[x1,x2,x3],J3117->I3117[x1,x2,x3],J3124->I3124[x1,x2,x3],J3125->I3125[x1,x2,x3],J3126->I3126[x1,x2,x3],J3133->I3133[x1,x2,x3],J3134->I3134[x1,x2,x3],J3135->I3135[x1,x2,x3],J3141->I3141[x1,x2,x3],J3142->I3142[x1,x2,x3],J3143->I3143[x1,x2,x3],J3144->I3144[x1,x2,x3],J3151->I3151[x1,x2,x3],J3152->I3152[x1,x2,x3],J3153->I3153[x1,x2,x3],J3161->I3161[x1,x2,x3],J3162->I3162[x1,x2,x3],J3163->I3163[x1,x2,x3],J3171->I3171[x1,x2,x3],
J4116->I4116[x1,x2,x3],J4117->I4117[x1,x2,x3],J4118->I4118[x1,x2,x3],J4125->I4125[x1,x2,x3],J4126->I4126[x1,x2,x3],J4127->I4127[x1,x2,x3],J4134->I4134[x1,x2,x3],J4135->I4135[x1,x2,x3],J4136->I4136[x1,x2,x3],J4143->I4143[x1,x2,x3],J4144->I4144[x1,x2,x3],J4145->I4145[x1,x2,x3],J4152->I4152[x1,x2,x3],J4153->I4153[x1,x2,x3],J4154->I4154[x1,x2,x3],J4161->I4161[x1,x2,x3],J4162->I4162[x1,x2,x3],J4163->I4163[x1,x2,x3],J4171->I4171[x1,x2,x3],J4172->I4172[x1,x2,x3],J4181->I4181[x1,x2,x3],
J5118->I5118[x1,x2,x3],J5119->I5119[x1,x2,x3],J5127->I5127[x1,x2,x3],J5128->I5128[x1,x2,x3],J5136->I5136[x1,x2,x3],J5137->I5137[x1,x2,x3],J5145->I5145[x1,x2,x3],J5146->I5146[x1,x2,x3],J5154->I5154[x1,x2,x3],J5155->I5155[x1,x2,x3],J5163->I5163[x1,x2,x3],J5164->I5164[x1,x2,x3],J5172->I5172[x1,x2,x3],J5173->I5173[x1,x2,x3],J5181->I5181[x1,x2,x3],J5182->I5182[x1,x2,x3],J5191->I5191[x1,x2,x3],
J61110->I61110[x1,x2,x3],J6129->I6129[x1,x2,x3],J6138->I6138[x1,x2,x3],J6147->I6147[x1,x2,x3],J6156->I6156[x1,x2,x3],J6165->I6165[x1,x2,x3],J6174->I6174[x1,x2,x3],J6183->I6183[x1,x2,x3],J6192->I6192[x1,x2,x3],J61101->I61101[x1,x2,x3]}
(Subscript[C, 3D])[x1,x2,x3,xp11,xp1212,xp112]

Length[ec3]

Koefc3a[expr_,x_,vx_,y_,vy_,z_,vz_,v_,vv_,w_,vw_]:=Module[{},
Coefficient[Coefficient[Coefficient[Coefficient[Coefficient[expr,x,vx],y,vy],z,vz],v,vv],w,vw]]
Koefc3b[expr_,x_,vx_,y_,vy_,z_,vz_,v_,vv_,w_,vw_,u_,vu_]:=Module[{},
Coefficient[Coefficient[Coefficient[Coefficient[Coefficient[Coefficient[expr,x,vx],
y,vy],z,vz],v,vv],w,vw],u,vu]]

bla

Print["k=1; p g"]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]

Print["k=3; p g"]
Print["μ;νρ"]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Print["ν;μρ"]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Print["ρ;μν"]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Print["k=3; ppp"]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

-((48 J3141)/(D (D+2) (D+4)))-((1920 J4161)/(D (D+2) (D+4) (D+6)))
-((48 J3114)/(D (D+2) (D+4)))-((1920 J4116)/(D (D+2) (D+4) (D+6)))

Print["k=5; p g"]
Print["μ;νρ"]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Print["ν;μρ"]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Print["ρ;μν"]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Print["k=5; ppp"]
Print["111;121212"]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Print["1112;12121"]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Print["1121;12112"]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Print["1211;11212"]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

((192 J3151)/(D (D+2) (D+4)))+((11520 J4171)/(D (D+2) (D+4) (D+6)))
((192 J3115)/(D (D+2) (D+4)))+((11520 J4117)/(D (D+2) (D+4) (D+6)))
((48 J3142)/(D (D+2) (D+4)))-((192 J4143)/(D (D+2) (D+4) (D+6)))+((1920 J4162)/(D (D+2) (D+4) (D+6)))
((48 J3124)/(D (D+2) (D+4)))-((192 J4134)/(D (D+2) (D+4) (D+6)))+((1920 J4126)/(D (D+2) (D+4) (D+6)))

Print["k=7; p g"]
Print["μ;νρ"]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]

Print["ν;μρ"]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]

Print["ρ;μν"]
Print["ρ;μν"]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]

Print["k=7; ppp"]
Print["111;121212"]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

Print["1112;12121"]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]

Print["1121;12112"]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]

Print["1211;11212"]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

-((480 J3161)/(D (D+2) (D+4)))-((40320 J4181)/(D (D+2) (D+4) (D+6)))-((80640 J5181)/(D (D+2) (D+4) (D+6) (D+8)))
-((480 J3116)/(D (D+2) (D+4)))-((40320 J4118)/(D (D+2) (D+4) (D+6)))-((80640 J5118)/(D (D+2) (D+4) (D+6) (D+8)))
-((48 J3143)/(D (D+2) (D+4)))+((576 J4144)/(D (D+2) (D+4) (D+6)))-((1920 J4163)/(D (D+2) (D+4) (D+6)))-((2304 J5145)/(D (D+2) (D+4) (D+6) (D+8)))
-((48 J3134)/(D (D+2) (D+4)))-((1920 J4136)/(D (D+2) (D+4) (D+6)))+((576 J4144)/(D (D+2) (D+4) (D+6)))-((2304 J5154)/(D (D+2) (D+4) (D+6) (D+8)))
-((192 J3152)/(D (D+2) (D+4)))+((768 J4153)/(D (D+2) (D+4) (D+6)))-((11520 J4172)/(D (D+2) (D+4) (D+6)))-((7680 J5163)/(D (D+2) (D+4) (D+6) (D+8)))
-((192 J3125)/(D (D+2) (D+4)))-((11520 J4127)/(D (D+2) (D+4) (D+6)))+((768 J4135)/(D (D+2) (D+4) (D+6)))-((7680 J5136)/(D (D+2) (D+4) (D+6) (D+8)))

Print["k=9; p g"] 
Print["μ;νρ"]
Koefc3a[ec3,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[p, 1μ]),1,(Subscript[g, νρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[p, 12μ]),1,(Subscript[g, νρ]),1]

Print["ν;μρ"]
Koefc3a[ec3,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[p, 1ν]),1,(Subscript[g, μρ]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[p, 12ν]),1,(Subscript[g, μρ]),1]

Print["ρ;μν"] 
Koefc3a[ec3,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),4,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),4,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),2,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),3,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[p, 1ρ]),1,(Subscript[g, μν]),1]
Koefc3a[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),4,(Subscript[p, 12ρ]),1,(Subscript[g, μν]),1]

Print["k=9; ppp"]
Print["111;121212"]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

Print["1112;12121"]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]

Print["1121;12112"]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 12ρ]),1]

Print["1211;11212"]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),2,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),0,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),1,(Subscript[p, 112]),1,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),1,(Subscript[p, 112]),2,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),0,(Subscript[p, 112]),2,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 12μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),0,(Subscript[p, 112]),3,(Subscript[p, 1μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

Print["k=9; ppp"]
Print["111;121212"]
Koefc3b[ec3,(Subscript[p, 11]),3,(Subscript[p, 1212]),0,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),0,(Subscript[p, 1212]),3,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),1,(Subscript[p, 1212]),2,(Subscript[p, 112]),0,(Subscript[p, 1μ]),1,(Subscript[p, 1ν]),1,(Subscript[p, 1ρ]),1]
Koefc3b[ec3,(Subscript[p, 11]),2,(Subscript[p, 1212]),1,(Subscript[p, 112]),0,(Subscript[p, 12μ]),1,(Subscript[p, 12ν]),1,(Subscript[p, 12ρ]),1]

((960 J3171)/(D (D+2) (D+4)))+((645120 J5191)/(D (D+2) (D+4) (D+6) (D+8)))-((3870720 J61101)/(D (D+2) (D+4) (D+6) (D+8) (D+10)))
((960 J3117)/(D (D+2) (D+4)))+((645120 J5119)/(D (D+2) (D+4) (D+6) (D+8)))-((3870720 J61110)/(D (D+2) (D+4) (D+6) (D+8) (D+10)))
((480 J3162)/(D (D+2) (D+4)))-((1920 J4163)/(D (D+2) (D+4) (D+6)))+((46080 J5173)/(D (D+2) (D+4) (D+6) (D+8)))+((80640 J5182)/(D (D+2) (D+4) (D+6) (D+8)))-((322560 J6183)/(D (D+2) (D+4) (D+6) (D+8) (D+10)))
((480 J3126)/(D (D+2) (D+4)))-((1920 J4136)/(D (D+2) (D+4) (D+6)))+((80640 J5128)/(D (D+2) (D+4) (D+6) (D+8)))+((46080 J5137)/(D (D+2) (D+4) (D+6) (D+8)))-((322560 J6138)/(D (D+2) (D+4) (D+6) (D+8) (D+10)))
((192 J3153)/(D (D+2) (D+4)))-((2304 J4154)/(D (D+2) (D+4) (D+6)))+((9216 J5155)/(D (D+2) (D+4) (D+6) (D+8)))+((23040 J5164)/(D (D+2) (D+4) (D+6) (D+8)))-((92160 J6165)/(D (D+2) (D+4) (D+6) (D+8) (D+10)))
((192 J3135)/(D (D+2) (D+4)))-((2304 J4145)/(D (D+2) (D+4) (D+6)))+((23040 J5146)/(D (D+2) (D+4) (D+6) (D+8)))+((9216 J5155)/(D (D+2) (D+4) (D+6) (D+8)))-((92160 J6156)/(D (D+2) (D+4) (D+6) (D+8) (D+10)))

(Subscript[D, 0]),(Subscript[D, μ]),(Subscript[D, μν]),(Subscript[D, μνρ]),(Subscript[D, μνρσ])

(Subscript[lp, 123])=Pair[Momentum[l,__],Momentum[(Subscript[p, 123]),__]]
(Subscript[p, 1123])=Pair[Momentum[(Subscript[p, 1]),__],Momentum[(Subscript[p, 123]),__]]
(Subscript[p, 12123])=Pair[Momentum[(Subscript[p, 12]),__],Momentum[(Subscript[p, 123]),__]]

izrazd1=(1/(((l^2)-(Subscript[m, 2]^2))(1+((2 (Subscript[lp, 1])+((Subscript[p, 1])^2))/((l^2)-(Subscript[m, 2]^2))))));

izrazd2=(1/(((l^2)-(Subscript[m, 3]^2))(1+((2 (Subscript[lp, 12])+((Subscript[p, 12])^2))/((l^2)-(Subscript[m, 3]^2))))));

izrazd3=(1/(((l^2)-(Subscript[m, 3]^2))(1+((2 (Subscript[lp, 123])+((Subscript[p, 123])^2))/((l^2)-(Subscript[m, 34]^2))))));

Checks of PV equations

Definition of loop functions

J01[a1_]:=JInt[{0,1},{a1}][[1]]+JInt[{0,1},{a1}][[2]]

J011[a1_,a2_]:=JInt[{0,1,1},{a1,a2}][[1]]+JInt[{0,1,1},{a1,a2}][[2]]
J012[a1_,a2_]:=JInt[{0,1,2},{a1,a2}][[1]]+JInt[{0,1,2},{a1,a2}][[2]]
J013[a1_,a2_]:=JInt[{0,1,3},{a1,a2}][[1]]+JInt[{0,1,3},{a1,a2}][[2]]
J014[a1_,a2_]:=JInt[{0,1,4},{a1,a2}][[1]]+JInt[{0,1,4},{a1,a2}][[2]]
J015[a1_,a2_]:=JInt[{0,1,5},{a1,a2}][[1]]+JInt[{0,1,5},{a1,a2}][[2]]
J016[a1_,a2_]:=JInt[{0,1,6},{a1,a2}][[1]]+JInt[{0,1,6},{a1,a2}][[2]]
J017[a1_,a2_]:=JInt[{0,1,7},{a1,a2}][[1]]+JInt[{0,1,7},{a1,a2}][[2]]
J111[a1_,a2_]:=JInt[{1,1,1},{a1,a2}][[1]]+JInt[{1,1,1},{a1,a2}][[2]]
J112[a1_,a2_]:=JInt[{1,1,2},{a1,a2}][[1]]+JInt[{1,1,2},{a1,a2}][[2]]
J113[a1_,a2_]:=JInt[{1,1,3},{a1,a2}][[1]]+JInt[{1,1,3},{a1,a2}][[2]]
J114[a1_,a2_]:=JInt[{1,1,4},{a1,a2}][[1]]+JInt[{1,1,4},{a1,a2}][[2]]
J115[a1_,a2_]:=JInt[{1,1,5},{a1,a2}][[1]]+JInt[{1,1,5},{a1,a2}][[2]]
J116[a1_,a2_]:=JInt[{1,1,6},{a1,a2}][[1]]+JInt[{1,1,6},{a1,a2}][[2]]
J213[a1_,a2_]:=JInt[{2,1,3},{a1,a2}][[1]]+JInt[{2,1,3},{a1,a2}][[2]]
J214[a1_,a2_]:=JInt[{2,1,4},{a1,a2}][[1]]+JInt[{2,1,4},{a1,a2}][[2]]
J215[a1_,a2_]:=JInt[{2,1,5},{a1,a2}][[1]]+JInt[{2,1,5},{a1,a2}][[2]]
J216[a1_,a2_]:=JInt[{2,1,6},{a1,a2}][[1]]+JInt[{2,1,6},{a1,a2}][[2]]
J315[a1_,a2_]:=JInt[{3,1,5},{a1,a2}][[1]]+JInt[{3,1,5},{a1,a2}][[2]]
J316[a1_,a2_]:=JInt[{3,1,6},{a1,a2}][[1]]+JInt[{3,1,6},{a1,a2}][[2]]
J317[a1_,a2_]:=JInt[{3,1,7},{a1,a2}][[1]]+JInt[{3,1,7},{a1,a2}][[2]]
J417[a1_,a2_]:=JInt[{4,1,7},{a1,a2}][[1]]+JInt[{4,1,7},{a1,a2}][[2]]
J418[a1_,a2_]:=JInt[{4,1,8},{a1,a2}][[1]]+JInt[{4,1,8},{a1,a2}][[2]]
J519[a1_,a2_]:=JInt[{5,1,9},{a1,a2}][[1]]+JInt[{5,1,9},{a1,a2}][[2]]

J111[a1_,a2_]:=Module[{Omega,OFa1,INT3,c1,c2,c3},
Omega[D_]:=2*Pi^(D/2)/Gamma[D/2];
OFa1[D_]:=I*Omega[D]*μ^(4-D)/(2*(2*Pi)^D)*(16 π^2)/I;
INT3[a_,b_,c_]:=(-1)^(a+b+c)*Assuming[{x>0,y>0,D≤2 (b+c-a+1)},
Integrate[t^(D/2-1+a)/(((t+x)^b) ((t+y)^c)),{t,0,∞}]][[1]];
c1=Normal[Series[(OFa1[D]*INT3[1,1,1])/.D->4-2*ϵ,{ϵ,0,0}]]/.{x->a1,y->a2};
c2=Simplify[c1/.{Log[a1]->0,Log[a2]->0}/.{Log[π]+Log[4]->Log[4*π]}];
c3=Simplify[c1-c2]+c2]

J111[a1,a2]

J0111[a1_,a2_,a3_]:=JInt[{0,1,1,1},{a1,a2,a3}][[1]]+JInt[{0,1,1,1},{a1,a2,a3}][[2]]
J0112[a1_,a2_,a3_]:=JInt[{0,1,1,2},{a1,a2,a3}][[1]]+JInt[{0,1,1,2},{a1,a2,a3}][[2]]
J0113[a1_,a2_,a3_]:=JInt[{0,1,1,3},{a1,a2,a3}][[1]]+JInt[{0,1,1,3},{a1,a2,a3}][[2]]
J0114[a1_,a2_,a3_]:=JInt[{0,1,1,4},{a1,a2,a3}][[1]]+JInt[{0,1,1,4},{a1,a2,a3}][[2]]
J0131[a1_,a2_,a3_]:=JInt[{0,1,3,1},{a1,a2,a3}][[1]]+JInt[{0,1,3,1},{a1,a2,a3}][[2]]
J0121[a1_,a2_,a3_]:=JInt[{0,1,2,1},{a1,a2,a3}][[1]]+JInt[{0,1,2,1},{a1,a2,a3}][[2]]
J0122[a1_,a2_,a3_]:=JInt[{0,1,2,2},{a1,a2,a3}][[1]]+JInt[{0,1,2,2},{a1,a2,a3}][[2]]
J0123[a1_,a2_,a3_]:=JInt[{0,1,2,3},{a1,a2,a3}][[1]]+JInt[{0,1,2,3},{a1,a2,a3}][[2]]
J0131[a1_,a2_,a3_]:=JInt[{0,1,3,1},{a1,a2,a3}][[1]]+JInt[{0,1,3,1},{a1,a2,a3}][[2]]
J0132[a1_,a2_,a3_]:=JInt[{0,1,3,2},{a1,a2,a3}][[1]]+JInt[{0,1,3,2},{a1,a2,a3}][[2]]
J0114[a1_,a2_,a3_]:=JInt[{0,1,1,4},{a1,a2,a3}][[1]]+JInt[{0,1,1,4},{a1,a2,a3}][[2]]
J0141[a1_,a2_,a3_]:=JInt[{0,1,4,1},{a1,a2,a3}][[1]]+JInt[{0,1,4,1},{a1,a2,a3}][[2]]
J1111[a1_,a2_,a3_]:=JInt[{1,1,1,1},{a1,a2,a3}][[1]]+JInt[{1,1,1,1},{a1,a2,a3}][[2]]
J1112[a1_,a2_,a3_]:=JInt[{1,1,1,2},{a1,a2,a3}][[1]]+JInt[{1,1,1,2},{a1,a2,a3}][[2]]
J1113[a1_,a2_,a3_]:=JInt[{1,1,1,3},{a1,a2,a3}][[1]]+JInt[{1,1,1,3},{a1,a2,a3}][[2]]
J1114[a1_,a2_,a3_]:=JInt[{1,1,1,4},{a1,a2,a3}][[1]]+JInt[{1,1,1,4},{a1,a2,a3}][[2]]
J1115[a1_,a2_,a3_]:=JInt[{1,1,1,5},{a1,a2,a3}][[1]]+JInt[{1,1,1,5},{a1,a2,a3}][[2]]
J1121[a1_,a2_,a3_]:=JInt[{1,1,2,1},{a1,a2,a3}][[1]]+JInt[{1,1,2,1},{a1,a2,a3}][[2]]
J1122[a1_,a2_,a3_]:=JInt[{1,1,2,2},{a1,a2,a3}][[1]]+JInt[{1,1,2,2},{a1,a2,a3}][[2]]
J1123[a1_,a2_,a3_]:=JInt[{1,1,2,3},{a1,a2,a3}][[1]]+JInt[{1,1,2,3},{a1,a2,a3}][[2]]
J1124[a1_,a2_,a3_]:=JInt[{1,1,2,4},{a1,a2,a3}][[1]]+JInt[{1,1,2,4},{a1,a2,a3}][[2]]
J1131[a1_,a2_,a3_]:=JInt[{1,1,3,1},{a1,a2,a3}][[1]]+JInt[{1,1,3,1},{a1,a2,a3}][[2]]
J1132[a1_,a2_,a3_]:=JInt[{1,1,3,2},{a1,a2,a3}][[1]]+JInt[{1,1,3,2},{a1,a2,a3}][[2]]
J1133[a1_,a2_,a3_]:=JInt[{1,1,3,3},{a1,a2,a3}][[1]]+JInt[{1,1,3,3},{a1,a2,a3}][[2]]
J1141[a1_,a2_,a3_]:=JInt[{1,1,4,1},{a1,a2,a3}][[1]]+JInt[{1,1,4,1},{a1,a2,a3}][[2]]
J1142[a1_,a2_,a3_]:=JInt[{1,1,4,2},{a1,a2,a3}][[1]]+JInt[{1,1,4,2},{a1,a2,a3}][[2]]
J1145[a1_,a2_,a3_]:=JInt[{1,1,4,5},{a1,a2,a3}][[1]]+JInt[{1,1,4,5},{a1,a2,a3}][[2]]
J1151[a1_,a2_,a3_]:=JInt[{1,1,5,1},{a1,a2,a3}][[1]]+JInt[{1,1,5,1},{a1,a2,a3}][[2]]
J1154[a1_,a2_,a3_]:=JInt[{1,1,5,4},{a1,a2,a3}][[1]]+JInt[{1,1,5,4},{a1,a2,a3}][[2]]
J2113[a1_,a2_,a3_]:=JInt[{2,1,1,3},{a1,a2,a3}][[1]]+JInt[{2,1,1,3},{a1,a2,a3}][[2]]
J2114[a1_,a2_,a3_]:=JInt[{2,1,1,4},{a1,a2,a3}][[1]]+JInt[{2,1,1,4},{a1,a2,a3}][[2]]
J2115[a1_,a2_,a3_]:=JInt[{2,1,1,5},{a1,a2,a3}][[1]]+JInt[{2,1,1,5},{a1,a2,a3}][[2]]
J2116[a1_,a2_,a3_]:=JInt[{2,1,1,6},{a1,a2,a3}][[1]]+JInt[{2,1,1,6},{a1,a2,a3}][[2]]
J2131[a1_,a2_,a3_]:=JInt[{2,1,3,1},{a1,a2,a3}][[1]]+JInt[{2,1,3,1},{a1,a2,a3}][[2]]
J2122[a1_,a2_,a3_]:=JInt[{2,1,2,2},{a1,a2,a3}][[1]]+JInt[{2,1,2,2},{a1,a2,a3}][[2]]
J2123[a1_,a2_,a3_]:=JInt[{2,1,2,3},{a1,a2,a3}][[1]]+JInt[{2,1,2,3},{a1,a2,a3}][[2]]
J2124[a1_,a2_,a3_]:=JInt[{2,1,2,4},{a1,a2,a3}][[1]]+JInt[{2,1,2,4},{a1,a2,a3}][[2]]
J2125[a1_,a2_,a3_]:=JInt[{2,1,2,5},{a1,a2,a3}][[1]]+JInt[{2,1,2,5},{a1,a2,a3}][[2]]
J2126[a1_,a2_,a3_]:=JInt[{2,1,2,6},{a1,a2,a3}][[1]]+JInt[{2,1,2,6},{a1,a2,a3}][[2]]
J2131[a1_,a2_,a3_]:=JInt[{2,1,3,1},{a1,a2,a3}][[1]]+JInt[{2,1,3,1},{a1,a2,a3}][[2]]
J2132[a1_,a2_,a3_]:=JInt[{2,1,3,2},{a1,a2,a3}][[1]]+JInt[{2,1,3,2},{a1,a2,a3}][[2]]
J2133[a1_,a2_,a3_]:=JInt[{2,1,3,3},{a1,a2,a3}][[1]]+JInt[{2,1,3,3},{a1,a2,a3}][[2]]
J2134[a1_,a2_,a3_]:=JInt[{2,1,3,4},{a1,a2,a3}][[1]]+JInt[{2,1,3,4},{a1,a2,a3}][[2]]
J2141[a1_,a2_,a3_]:=JInt[{2,1,4,1},{a1,a2,a3}][[1]]+JInt[{2,1,4,1},{a1,a2,a3}][[2]]
J2142[a1_,a2_,a3_]:=JInt[{2,1,4,2},{a1,a2,a3}][[1]]+JInt[{2,1,4,2},{a1,a2,a3}][[2]]
J2143[a1_,a2_,a3_]:=JInt[{2,1,4,3},{a1,a2,a3}][[1]]+JInt[{2,1,4,3},{a1,a2,a3}][[2]]
J2151[a1_,a2_,a3_]:=JInt[{2,1,5,1},{a1,a2,a3}][[1]]+JInt[{2,1,5,1},{a1,a2,a3}][[2]]
J2152[a1_,a2_,a3_]:=JInt[{2,1,5,2},{a1,a2,a3}][[1]]+JInt[{2,1,5,2},{a1,a2,a3}][[2]]
J2161[a1_,a2_,a3_]:=JInt[{2,1,6,1},{a1,a2,a3}][[1]]+JInt[{2,1,6,1},{a1,a2,a3}][[2]]
J2162[a1_,a2_,a3_]:=JInt[{2,1,6,2},{a1,a2,a3}][[1]]+JInt[{2,1,6,1},{a1,a2,a3}][[2]]
J3115[a1_,a2_,a3_]:=JInt[{3,1,1,5},{a1,a2,a3}][[1]]+JInt[{3,1,1,5},{a1,a2,a3}][[2]]
J3116[a1_,a2_,a3_]:=JInt[{3,1,1,6},{a1,a2,a3}][[1]]+JInt[{3,1,1,6},{a1,a2,a3}][[2]]
J3117[a1_,a2_,a3_]:=JInt[{3,1,1,7},{a1,a2,a3}][[1]]+JInt[{3,1,1,7},{a1,a2,a3}][[2]]
J3124[a1_,a2_,a3_]:=JInt[{3,1,2,4},{a1,a2,a3}][[1]]+JInt[{3,1,2,4},{a1,a2,a3}][[2]]
J3125[a1_,a2_,a3_]:=JInt[{3,1,2,5},{a1,a2,a3}][[1]]+JInt[{3,1,2,5},{a1,a2,a3}][[2]]
J3126[a1_,a2_,a3_]:=JInt[{3,1,2,6},{a1,a2,a3}][[1]]+JInt[{3,1,2,6},{a1,a2,a3}][[2]]
J3133[a1_,a2_,a3_]:=JInt[{3,1,3,3},{a1,a2,a3}][[1]]+JInt[{3,1,3,3},{a1,a2,a3}][[2]]
J3134[a1_,a2_,a3_]:=JInt[{3,1,3,4},{a1,a2,a3}][[1]]+JInt[{3,1,3,4},{a1,a2,a3}][[2]]
J3135[a1_,a2_,a3_]:=JInt[{3,1,3,5},{a1,a2,a3}][[1]]+JInt[{3,1,3,5},{a1,a2,a3}][[2]]
J3136[a1_,a2_,a3_]:=JInt[{3,1,3,6},{a1,a2,a3}][[1]]+JInt[{3,1,3,6},{a1,a2,a3}][[2]]
J3142[a1_,a2_,a3_]:=JInt[{3,1,4,2},{a1,a2,a3}][[1]]+JInt[{3,1,4,2},{a1,a2,a3}][[2]]
J3143[a1_,a2_,a3_]:=JInt[{3,1,4,3},{a1,a2,a3}][[1]]+JInt[{3,1,4,3},{a1,a2,a3}][[2]]
J3144[a1_,a2_,a3_]:=JInt[{3,1,4,4},{a1,a2,a3}][[1]]+JInt[{3,1,4,4},{a1,a2,a3}][[2]]
J3151[a1_,a2_,a3_]:=JInt[{3,1,5,1},{a1,a2,a3}][[1]]+JInt[{3,1,5,1},{a1,a2,a3}][[2]]
J3152[a1_,a2_,a3_]:=JInt[{3,1,5,2},{a1,a2,a3}][[1]]+JInt[{3,1,5,2},{a1,a2,a3}][[2]]
J3153[a1_,a2_,a3_]:=JInt[{3,1,5,3},{a1,a2,a3}][[1]]+JInt[{3,1,5,3},{a1,a2,a3}][[2]]
J3161[a1_,a2_,a3_]:=JInt[{3,1,6,1},{a1,a2,a3}][[1]]+JInt[{3,1,6,1},{a1,a2,a3}][[2]]
J3162[a1_,a2_,a3_]:=JInt[{3,1,6,2},{a1,a2,a3}][[1]]+JInt[{3,1,6,2},{a1,a2,a3}][[2]]
J3163[a1_,a2_,a3_]:=JInt[{3,1,6,3},{a1,a2,a3}][[1]]+JInt[{3,1,6,3},{a1,a2,a3}][[2]]
J3171[a1_,a2_,a3_]:=JInt[{3,1,7,1},{a1,a2,a3}][[1]]+JInt[{3,1,7,1},{a1,a2,a3}][[2]]
J4117[a1_,a2_,a3_]:=JInt[{4,1,1,7},{a1,a2,a3}][[1]]+JInt[{4,1,1,7},{a1,a2,a3}][[2]]
J4118[a1_,a2_,a3_]:=JInt[{4,1,1,8},{a1,a2,a3}][[1]]+JInt[{4,1,1,8},{a1,a2,a3}][[2]]
J4126[a1_,a2_,a3_]:=JInt[{4,1,2,6},{a1,a2,a3}][[1]]+JInt[{4,1,2,6},{a1,a2,a3}][[2]]
J4127[a1_,a2_,a3_]:=JInt[{4,1,2,7},{a1,a2,a3}][[1]]+JInt[{4,1,2,7},{a1,a2,a3}][[2]]
J4135[a1_,a2_,a3_]:=JInt[{4,1,3,5},{a1,a2,a3}][[1]]+JInt[{4,1,3,5},{a1,a2,a3}][[2]]
J4136[a1_,a2_,a3_]:=JInt[{4,1,3,6},{a1,a2,a3}][[1]]+JInt[{4,1,3,6},{a1,a2,a3}][[2]]
J4137[a1_,a2_,a3_]:=JInt[{4,1,3,7},{a1,a2,a3}][[1]]+JInt[{4,1,3,7},{a1,a2,a3}][[2]]
J4144[a1_,a2_,a3_]:=JInt[{4,1,4,4},{a1,a2,a3}][[1]]+JInt[{4,1,4,4},{a1,a2,a3}][[2]]
J4145[a1_,a2_,a3_]:=JInt[{4,1,4,5},{a1,a2,a3}][[1]]+JInt[{4,1,4,5},{a1,a2,a3}][[2]]
J4153[a1_,a2_,a3_]:=JInt[{4,1,5,3},{a1,a2,a3}][[1]]+JInt[{4,1,5,3},{a1,a2,a3}][[2]]
J4154[a1_,a2_,a3_]:=JInt[{4,1,5,4},{a1,a2,a3}][[1]]+JInt[{4,1,5,4},{a1,a2,a3}][[2]]
J4162[a1_,a2_,a3_]:=JInt[{4,1,6,2},{a1,a2,a3}][[1]]+JInt[{4,1,6,2},{a1,a2,a3}][[2]]
J4163[a1_,a2_,a3_]:=JInt[{4,1,6,3},{a1,a2,a3}][[1]]+JInt[{4,1,6,3},{a1,a2,a3}][[2]]
J4171[a1_,a2_,a3_]:=JInt[{4,1,7,1},{a1,a2,a3}][[1]]+JInt[{4,1,7,1},{a1,a2,a3}][[2]]
J4172[a1_,a2_,a3_]:=JInt[{4,1,7,2},{a1,a2,a3}][[1]]+JInt[{4,1,7,2},{a1,a2,a3}][[2]]
J4173[a1_,a2_,a3_]:=JInt[{4,1,7,3},{a1,a2,a3}][[1]]+JInt[{4,1,7,3},{a1,a2,a3}][[2]]
J4181[a1_,a2_,a3_]:=JInt[{4,1,8,1},{a1,a2,a3}][[1]]+JInt[{4,1,8,1},{a1,a2,a3}][[2]]
J5119[a1_,a2_,a3_]:=JInt[{5,1,1,9},{a1,a2,a3}][[1]]+JInt[{5,1,1,9},{a1,a2,a3}][[2]]
J5128[a1_,a2_,a3_]:=JInt[{5,1,2,8},{a1,a2,a3}][[1]]+JInt[{5,1,2,8},{a1,a2,a3}][[2]]
J5137[a1_,a2_,a3_]:=JInt[{5,1,3,7},{a1,a2,a3}][[1]]+JInt[{5,1,3,7},{a1,a2,a3}][[2]]
J5146[a1_,a2_,a3_]:=JInt[{5,1,4,6},{a1,a2,a3}][[1]]+JInt[{5,1,4,6},{a1,a2,a3}][[2]]
J5155[a1_,a2_,a3_]:=JInt[{5,1,5,5},{a1,a2,a3}][[1]]+JInt[{5,1,5,5},{a1,a2,a3}][[2]]
J5164[a1_,a2_,a3_]:=JInt[{5,1,6,4},{a1,a2,a3}][[1]]+JInt[{5,1,6,4},{a1,a2,a3}][[2]]
J5173[a1_,a2_,a3_]:=JInt[{5,1,7,3},{a1,a2,a3}][[1]]+JInt[{5,1,7,3},{a1,a2,a3}][[2]]
J5182[a1_,a2_,a3_]:=JInt[{5,1,8,2},{a1,a2,a3}][[1]]+JInt[{5,1,8,2},{a1,a2,a3}][[2]]
J5191[a1_,a2_,a3_]:=JInt[{5,1,9,1},{a1,a2,a3}][[1]]+JInt[{5,1,9,1},{a1,a2,a3}][[2]]

Definition of scalar loop integrals needed for  evaluation of PV equations for 
three-point functions

B0i12=(Subscript[B, 0])[x1,x2,xp11];
B0i13=(Subscript[B, 0])[x1,x3,xp1212];
B0i23=(Subscript[B, 0])[x2,x3,xp1212+xp11-2*xp112];
B1i12=(Subscript[B, 1])[x1,x2,xp11];
B1i13=(Subscript[B, 1])[x1,x3,xp1212];
B1i23=(Subscript[B, 1])[x2,x3,xp1212+xp11-2*xp112];
C0i123=(Subscript[C, 0])[x1,x2,x3,xp11,xp1212,xp112];
C1Ai123=(Subscript[C, 1A])[x1,x2,x3,xp11,xp1212,xp112];
C12i123=(Subscript[C, 12])[x1,x2,x3,xp11,xp1212,xp112];
C2Ai123=(Subscript[C, 2A])[x1,x2,x3,xp11,xp1212,xp112];
C22i123=(Subscript[C, 22])[x1,x2,x3,xp11,xp1212,xp112];
C2Bi123=(Subscript[C, 2B])[x1,x2,x3,xp11,xp1212,xp112];
C24i123=(Subscript[C, 24])[x1,x2,x3,xp11,xp1212,xp112];

PV equation for (Subscript[B, 1])

rplB={I01[x1]->J01[x1],I01[x2]->J01[x2],I011[x1,x2]->J011[x1,x2] ,I012[x1,x2]->J012[x1,x2],I013[x1,x2]->J013[x1,x2],I014[x1,x2]->J014[x1,x2],I111[x1,x2]->J111[x1,x2],I112[x1,x2]->J112[x1,x2],I113[x1,x2]->J113[x1,x2],I114 [x1,x2]->J114 [x1,x2],I115[x1,x2]-> J115[x1,x2],I213[x1,x2]->J213[x1,x2],I214[x1,x2]->J214[x1,x2],I215[x1,x2]->J215[x1,x2],I216[x1,x2]->J216[x1,x2],I315[x1,x2]->J315[x1,x2],I316[x1,x2]->J316[x1,x2],I317[x1,x2]->J317[x1,x2],I417[x1,x2]->J417[x1,x2],I418[x1,x2]->J418[x1,x2],I519[x1,x2]->J519[x1,x2]};

PVB1=Expand[-2*xp11*(Subscript[B, 1])[x1,x2,xp11]+(Subscript[A, 0])[x1]-(Subscript[A, 0])[x2]-(xp11+x1-x2)*(Subscript[B, 0])[x1,x2,xp11]]

Normal[Series[Coefficient[PVB1,xp11,0]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]

Normal[Series[Coefficient[PVB1,xp11,1]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]

Normal[Series[Coefficient[PVB1,xp11,2]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]

Normal[Series[Coefficient[PVB1,xp11,3]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]

PVB1a=Coefficient[PVB1,xp11,0]+Coefficient[PVB1,xp11,1]+
Coefficient[PVB1,xp11,2]+Coefficient[PVB1,xp11,3];
Normal[Series[PVB1a/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]

PV equations for B21  (p1p1) and B22 (g)

PVB2122a=-(xp11*(Subscript[B, 21])[x1,x2,xp11]+(Subscript[B, 22])[x1,x2,xp11])+(1/2)*((Subscript[A, 0])[x2]+(x2-x1-xp11)*(Subscript[B, 1])[x1,x2,xp11]);

PVB2122b=-(xp11*(Subscript[B, 21])[x1,x2,xp11]+D*(Subscript[B, 22])[x1,x2,xp11])+((Subscript[A, 0])[x2]+x1*(Subscript[B, 0])[x1,x2,xp11]);

Coefficient[PVB2122a,xp11,0]
Simplify[Normal[Series[Coefficient[PVB2122a,xp11,0]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]
Coefficient[PVB2122b,xp11,0]
Simplify[Normal[Series[Coefficient[PVB2122b,xp11,0]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]

Coefficient[PVB2122a,xp11,1]
FullSimplify[Normal[Series[Coefficient[PVB2122a,xp11,1]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]
Coefficient[PVB2122b,xp11,1]
Simplify[Normal[Series[Coefficient[PVB2122b,xp11,1]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]

Coefficient[PVB2122a,xp11,2]
FullSimplify[Normal[Series[Coefficient[PVB2122a,xp11,2]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]
Coefficient[PVB2122b,xp11,2]
Simplify[Normal[Series[Coefficient[PVB2122b,xp11,2]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]

Coefficient[PVB2122a,xp11,3]
FullSimplify[Normal[Series[Coefficient[PVB2122a,xp11,3]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]
Coefficient[PVB2122b,xp11,3]
Simplify[Normal[Series[Coefficient[PVB2122b,xp11,3]/.rplB/.D->4-2*ϵ,{ϵ,0,0}]]]

PV equations for C1A ((Subscript[p, 1]))  and C12 ((Subscript[p, 2]))

rplC1={I01[x1]->J01[x1],I01[x2]->J01[x2],
I011[x1,x2]->J011[x1,x2] ,I012[x1,x2]->J012[x1,x2],I013[x1,x2]->J013[x1,x2],I014[x1,x2]->J014[x1,x2],I111[x1,x2]->J111[x1,x2],I112[x1,x2]->J112[x1,x2],I113[x1,x2]->J113[x1,x2],I114 [x1,x2]->J114 [x1,x2],I115[x1,x2]-> J115[x1,x2],I213[x1,x2]->J213[x1,x2],I214[x1,x2]->J214[x1,x2],I215[x1,x2]->J215[x1,x2],I216[x1,x2]->J216[x1,x2],I315[x1,x2]->J315[x1,x2],I316[x1,x2]->J316[x1,x2],I317[x1,x2]->J317[x1,x2],I417[x1,x2]->J417[x1,x2],I418[x1,x2]->J418[x1,x2],I519[x1,x2]->J519[x1,x2],
I011[x1,x3]->J011[x1,x3] ,I012[x1,x3]->J012[x1,x3],I013[x1,x3]->J013[x1,x3],I014[x1,x3]->J014[x1,x3],I111[x1,x3]->J111[x1,x3],I112[x1,x3]->J112[x1,x3],I113[x1,x3]->J113[x1,x3],I114 [x1,x3]->J114 [x1,x3],I115[x1,x3]-> J115[x1,x3],I213[x1,x3]->J213[x1,x3],I214[x1,x3]->J214[x1,x3],I215[x1,x3]->J215[x1,x3],I216[x1,x3]->J216[x1,x3],I315[x1,x3]->J315[x1,x3],I316[x1,x3]->J316[x1,x3],I317[x1,x3]->J317[x1,x3],I417[x1,x3]->J417[x1,x3],I418[x1,x3]->J418[x1,x3],I519[x1,x3]->J519[x1,x3],
I011[x2,x3]->J011[x2,x3] ,I012[x2,x3]->J012[x2,x3],I013[x2,x3]->J013[x2,x3],I014[x2,x3]->J014[x2,x3],I111[x2,x3]->J111[x2,x3],I112[x2,x3]->J112[x2,x3],I113[x2,x3]->J113[x2,x3],I114 [x2,x3]->J114 [x2,x3],I115[x2,x3]-> J115[x2,x3],I213[x2,x3]->J213[x2,x3],I214[x2,x3]->J214[x2,x3],I215[x2,x3]->J215[x2,x3],I216[x2,x3]->J216[x2,x3],I315[x2,x3]->J315[x2,x3],I316[x2,x3]->J316[x2,x3],I317[x2,x3]->J317[x2,x3],I417[x2,x3]->J417[x2,x3],I418[x2,x3]->J418[x2,x3],I519[x2,x3]->J519[x2,x3]};

rplC2={I0111[x1,x2,x3]->J0111[x1,x2,x3],I0112[x1,x2,x3]->J0112[x1,x2,x3],I0113[x1,x2,x3]->J0113[x1,x2,x3],I0114[x1,x2,x3]->J0114[x1,x2,x3],I0121[x1,x2,x3]->J0121[x1,x2,x3],I0122[x1,x2,x3]->J0122[x1,x2,x3],I0123[x1,x2,x3]->J0123[x1,x2,x3],I0131[x1,x2,x3]->J0131[x1,x2,x3],I0132[x1,x2,x3]->J0132[x1,x2,x3],I0141[x1,x2,x3]->J0141[x1,x2,x3],I0114[x1,x2,x3]->J0114[x1,x2,x3],
I1111[x1,x2,x3]->J1111[x1,x2,x3],I1112[x1,x2,x3]->J1112[x1,x2,x3],I1113[x1,x2,x3]->J1113[x1,x2,x3],I1114[x1,x2,x3]->J1114[x1,x2,x3],I1115[x1,x2,x3]->J1115[x1,x2,x3],I1121[x1,x2,x3]->J1121[x1,x2,x3],I1122[x1,x2,x3]->J1122[x1,x2,x3],I1123[x1,x2,x3]->J1123[x1,x2,x3],I1124[x1,x2,x3]->J1124[x1,x2,x3],I1131[x1,x2,x3]->J1131[x1,x2,x3],I1132[x1,x2,x3]->J1132[x1,x2,x3],I1133[x1,x2,x3]->J1133[x1,x2,x3],I1141[x1,x2,x3]->J1141[x1,x2,x3],I1142[x1,x2,x3]->J1142[x1,x2,x3],I1145[x1,x2,x3]->J1145[x1,x2,x3],I1151[x1,x2,x3]->J1151[x1,x2,x3],
I2113[x1,x2,x3]->J2113[x1,x2,x3],I2114[x1,x2,x3]->J2114[x1,x2,x3],I2115[x1,x2,x3]->J2115[x1,x2,x3],I2116[x1,x2,x3]->J2116[x1,x2,x3],I2122[x1,x2,x3]->J2122[x1,x2,x3],I2123[x1,x2,x3]->J2123[x1,x2,x3],I2124[x1,x2,x3]->J2124[x1,x2,x3],I2125[x1,x2,x3]->J2125[x1,x2,x3],I2131[x1,x2,x3]->J2131[x1,x2,x3],I2132[x1,x2,x3]->J2132[x1,x2,x3],I2133[x1,x2,x3]->J2133[x1,x2,x3],I2134[x1,x2,x3]->J2134[x1,x2,x3],I2141[x1,x2,x3]->J2141[x1,x2,x3],I2142[x1,x2,x3]->J2142[x1,x2,x3],I2143[x1,x2,x3]->J2143[x1,x2,x3],I2151[x1,x2,x3]->J2151[x1,x2,x3],I2152[x1,x2,x3]->J2152[x1,x2,x3],I2161[x1,x2,x3]->J2161[x1,x2,x3],
I3115[x1,x2,x3]->J3115[x1,x2,x3],I3116[x1,x2,x3]->J3116[x1,x2,x3],I3117[x1,x2,x3]->J3117[x1,x2,x3],I3124[x1,x2,x3]->J3124[x1,x2,x3],I3125[x1,x2,x3]->J3125[x1,x2,x3],I3126[x1,x2,x3]->J3126[x1,x2,x3],I3133[x1,x2,x3]->J3133[x1,x2,x3],I3134[x1,x2,x3]->J3134[x1,x2,x3],I3135[x1,x2,x3]->J3135[x1,x2,x3],I3142[x1,x2,x3]->J3142[x1,x2,x3],I3143[x1,x2,x3]->J3143[x1,x2,x3],I3144[x1,x2,x3]->J3144[x1,x2,x3],I3151[x1,x2,x3]->J3151[x1,x2,x3],I3152[x1,x2,x3]->J3152[x1,x2,x3],I3153[x1,x2,x3]->J3153[x1,x2,x3],I3161[x1,x2,x3]->J3161[x1,x2,x3],I3162[x1,x2,x3]->J3162[x1,x2,x3],I3163[x1,x2,x3]->J3163[x1,x2,x3],I3171[x1,x2,x3]->J3171[x1,x2,x3],
I4117[x1,x2,x3]->J4117[x1,x2,x3],I4118[x1,x2,x3]->J4118[x1,x2,x3],I4126[x1,x2,x3]->J4126[x1,x2,x3],I4127[x1,x2,x3]->J4127[x1,x2,x3],I4135[x1,x2,x3]->J4135[x1,x2,x3],I4136[x1,x2,x3]->J4136[x1,x2,x3],I4144[x1,x2,x3]->J4144[x1,x2,x3],I4145[x1,x2,x3]->J4145[x1,x2,x3],I4153[x1,x2,x3]->J4153[x1,x2,x3],I4154[x1,x2,x3]->J4154[x1,x2,x3],I4162[x1,x2,x3]->J4162[x1,x2,x3],I4163[x1,x2,x3]->J4163[x1,x2,x3],I4171[x1,x2,x3]->J4171[x1,x2,x3],I4172[x1,x2,x3]->J4172[x1,x2,x3],I4173[x1,x2,x3]->J4173[x1,x2,x3],I4181[x1,x2,x3]->J4181[x1,x2,x3],
I5119[x1,x2,x3]->J5119[x1,x2,x3],I5128[x1,x2,x3]->J5128[x1,x2,x3],I5137[x1,x2,x3]->J5137[x1,x2,x3],I5146[x1,x2,x3]->J5146[x1,x2,x3],I5155[x1,x2,x3]->J5155[x1,x2,x3],I5164[x1,x2,x3]->J5164[x1,x2,x3],I5173[x1,x2,x3]->J5173[x1,x2,x3],I5182[x1,x2,x3]->J5182[x1,x2,x3],I5191[x1,x2,x3]->J5191[x1,x2,x3]};

PVC1A12a=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[xp11*C1Ai123+xp112*C12i123+1/2*(xp11+x1-x2)*C0i123-1/2*(B0i13-B0i23)];
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[PVC1A12a[[1]]/.rplC1/.rplC2]
Simplify[Normal[Series[(PVC1A12a[[2]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12a[[3]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12a[[4]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12a[[5]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
(*Normal[Series[(Simplify[
Expand[xp11*C1Ai123+xp112*C12i123+1/2*(xp1212+x1-x2)*C0i123-1/2*(B0i13-B0i23)]/.rplC]/.D->4-2ϵ),{ϵ,0,0}]]*)

PVC1A12b=Module[{a1,a2,a30,a32,a34,a36,a3},
(*a1=Expand[(xp11-xp112)*C1Ai123+(xp112-xp1212)*C12i123+1/2*(xp11-xp1212+x3-x2)*C0i123-
1/2*(B0i12-B0i13)];*)
a1=xp112*C1Ai123+xp1212*C12i123+1/2*(xp1212+x1-x3)*C0i123-
1/2*(B0i12-B0i23);
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[PVC1A12b[[1]]/.rplC1/.rplC2]
Simplify[Normal[Series[(PVC1A12b[[2]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12b[[3]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12b[[4]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12b[[5]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]

PVC1A12b=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[(xp11-xp112)*C1Ai123+(xp112-xp1212)*C12i123+1/2*(xp11-xp1212+x3-x2)*C0i123+
1/2*(B0i12-B0i13)];
(*a1=xp112*C1Ai123+xp1212*C12i123+1/2*(xp1212+x1-x2)*C0i123-
1/2*(B0i12-B0i23);*)
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[PVC1A12b[[1]]/.rplC1/.rplC2]
Simplify[Normal[Series[(PVC1A12b[[2]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12b[[3]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12b[[4]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]
Simplify[Normal[Series[(PVC1A12b[[5]]/.rplC1/.rplC2/.D->4-2*ϵ),{ϵ,0,0}]]]

I011[x2,x3]

PV equations for C2A ((Subscript[p, 1])(Subscript[p, 1 ])) , C12 ((Subscript[p, 12])(Subscript[p, 12])) ,C2B ((Subscript[p, 1])(Subscript[p, 12 ])+(Subscript[p, 12])(Subscript[p, 1 ]))  and C24(g)

PV2g=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[xp11*C2Ai123+xp1212*C22i123+2*xp112*C2Bi123+D*C24i123-x1*C0i123-B0i23];
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[Normal[Series[PV2g[[1]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2g[[2]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2g[[3]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2g[[4]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2g[[5]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]

PV2p1a=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[xp11*C2Ai123+xp112*C2Bi123+C24i123-1/2*(x2-x1-xp11)*C1Ai123-1/2*(B1i23+B0i23)];
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[Normal[Series[PV2p1a[[1]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1a[[2]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1a[[3]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1a[[4]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1a[[5]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]

PV2p1b=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[xp112*C22i123+xp11*C2Bi123-1/2*(x2-x1-xp11)*C12i123-1/2*(B1i13-B1i23)];
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[Normal[Series[PV2p1b[[1]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1b[[2]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1b[[3]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1b[[4]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p1b[[5]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]

PV2p12a=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[xp112*C2Ai123+xp1212*C2Bi123-1/2*(x3-x1-xp1212)*C1Ai123-1/2*(B1i12+B1i23+B0i23)];
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[Normal[Series[PV2p12a[[1]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12a[[2]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12a[[3]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12a[[4]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12a[[5]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]

PV2p12b=Module[{a1,a2,a30,a32,a34,a36,a3},
a1=Expand[xp1212*C22i123+xp112*C2Bi123+C24i123-1/2*(x3-x1-xp1212)*C12i123+1/2*B1i23];
a2=a1/.{xp11->(k^2)*xp11,xp112->(k^2)*xp112,xp1212->(k^2)*xp1212};
a30=Coefficient[a2,k,0];
a32=Coefficient[a2,k,2];
a34=Coefficient[a2,k,4];
a36=Coefficient[a2,k,6];
a3=a30+a32+a34+a36;
{a30,a32,a34,a36,a3}];
Simplify[Normal[Series[PV2p12b[[1]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12b[[2]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12b[[3]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12b[[4]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]
Simplify[Normal[Series[PV2p12b[[5]]/.rplC1/.rplC2/.D->4-2*ϵ,{ϵ,0,0}]]]

PV equations for (Subscript[C, μνρ]) :

B0i12=(Subscript[B, 0])[x1,x2,xp11];
B0i13=(Subscript[B, 0])[x1,x3,xp1212];
B0i23=(Subscript[B, 0])[x2,x3,xp1212+xp11-2*xp112];
B1i12=(Subscript[B, 1])[x1,x2,xp11];
B1i13=(Subscript[B, 1])[x1,x3,xp1212];
B1i23=(Subscript[B, 1])[x2,x3,xp1212+xp11-2*xp112];
C0i123=(Subscript[C, 0])[x1,x2,x3,xp11,xp1212,xp112];
C1Ai123=(Subscript[C, 1A])[x1,x2,x3,xp11,xp1212,xp112];
C12i123=(Subscript[C, 12])[x1,x2,x3,xp11,xp1212,xp112];
C2Ai123=(Subscript[C, 2A])[x1,x2,x3,xp11,xp1212,xp112];
C22i123=(Subscript[C, 22])[x1,x2,x3,xp11,xp1212,xp112];
C2Bi123=(Subscript[C, 2B])[x1,x2,x3,xp11,xp1212,xp112];
C24i123=(Subscript[C, 24])[x1,x2,x3,xp11,xp1212,xp112];