The finite cross section for dark matter annihilation chi chi -> f fbar (gamma), summed over virtual and real photon (absorption and emission) diagrams . These are sums of non log terms (from virtual and real) and finite remainder from log terms (from virtual and real) . The soft IR divergences cancel between virtual and real non - log K and Ktilde terms while soft plus collinear divergences cancel between virtual and real log terms . There are three contributions : non - log virtual (including self energy diagrams), non - log real, and log (virtual + real) sums that leave a finite remainder. The self-energy contributions are a part of the virtual set; the soft IR divergent pieces are cancelled and the finite remainder of K and Ktilde labelled as the “real” Ktilde_fin terms.

Combined real and virtual contributions  for final cross section  for dark matter annihilation to order T^2 + T^4 at NLO (order alpha).

I. First, the non-log terms:
    . Virtual from virtualt_clean, virtualu_clean and     virtualtu_clean.nb. and virtualself_clean.nb  and  virtualself_antifermion_clean.nb
   . Real from realg_new_clean.nb, realf_new_clean.nb and reala_new_clean.nb 

II. Next, the finite part from real and virtual Collinear  log terms  from final_coll_div_expand.nb

Original mathematica files are total_virtual_rot_nondynt.nb (thermal photon and thermal fermion for t-channel), total_virtual_rot_nondynu.nb and ...tu.nb (for u and tu cross channels) and  total_virtual_rot_nondyn_self.nb  (total_virtual_rot_nondyn_selfa.nb) for the self energy for fermion (anti-fermion). Checked that fermion and anti-fermion self energy results are NOT identical, so have to consider them separately.
Cleaned up files are in virtualt_clean.nb, etc., and virtualself-clean.nb/virtualself_antifermion_clean.nb

Original mathematica files are total_real_rot_nondyn.nb (thermal photon),  total_real_rot_nondyn_fermion.nb (thermal fermion), total_real_rot_nondyn_antifermion.nb (thermal antifermion), and total_real_rot_nondyn_T=0.nb (zero T case since also O(α)). 
Cleaned up files are realg_new_clean.nb (for thermal gamma), realf_new_clean.nb and reala_new_clean.nb for thermal fermion and thermal anti-fermion respectively.

Various factors and LO cross section (just for the record)

Overall factors relating matrix element squares to cross section:

factorLO=(Pp/(128 π (H^2) P)) (* 1/(64 (pi^2) s) (Pp/P) (2pi); s = 4(H^2); 2pi from dphi integration *)

IntLO = (( (λ^(4 )))/(((mh))^4)) ( 8 (H^2)((H^2)- (mc^2)) + (mf^2)(5 (mc^2)- 2(H^2)))

sigmaLO = (1/((12 π s))) (Pp/P) IntLO

IntLODirac = (( (λ^(4 )))/(((mh))^4)) (  (H^2)(4 (H^2)- (mc^2)) - (mf^2)( (H^2) - (mc^2)))

factorNLOreal=Simplify[(1/((32 P) (2H)(((2 π))^4)))]  (* [1/Flux] [1/8(2pi)^4] which comes from 
1. [1/(2(2pi)^6) from two 1/(2pi)^4 times (2pi) from the phase space of the momentum that is integrated out using the en-mom delta fn, and 1/((2pi)^3 2E )],  
2. then a [2pi from dphi integration of nonthermal particle], 
3. [1/2 from 1/(2 |vec{p'}. vec{k}|) of costheta' delta fn,
4. [(2pi) from 2 pi delta(k^2) of thermal particle
5. [(1/2) from 1/|2 k0| of delta(k^2), with Flux = 4 Sqrt[s] Q *)

factorNLOVirtual=(Pp/((128 (H^2)) P (16 (π^4))))  (* = Pp /Sqrt[s] factorNLOreal *)
(* (1/ (32 s) (Pp/P) (1/(2pi)^4 coming from
1. 1/(64 (pi^2) s) Pp/P (1/(2pi)^4)x [(2pi) from dphi] x[ (2pi) from 2pi delta n_B or n_F] x
[(1/2) from delta(k^2) -> 1/|2 k0|] ; s = 4(H^2) *)

factorNLOvirtualg=((Pp ω)/(2 H))

factorNLOvirtualf=((Pp Kt)/(2 H))

Now for the factors required for B3, F3, which corresponds to dsigma/dmf^2

factorNLO3=factorNLOVirtual

InttLO=((8 (λ^4) (3 (H^4)+(P^2) (Pp^2)))/(3 (mh^4)))

IntuLO=((8 (λ^4) (3 (H^4)+(P^2) (Pp^2)))/(3 (mh^4)))

InttuLO=((8 (λ^4) (mc^2) ((H^2)+(Pp^2)))/(mh^4))

InttotLO=Simplify[InttLO+IntuLO-InttuLO]

sigmaDiracLO=Simplify[InttLO factorLO]

dsigmaDiracm2=Simplify[(((∂_mf2)(InttLO factorLO/. {Pp->(Sqrt[(H^2)-mf2])}))/factorLO)/. {mf2->(mf^2)}]

sigmaMajoranaLO=Simplify[InttotLO factorLO]

dsigmaMajoranam2=Simplify[(((∂_mf2)(InttotLO factorLO/. {Pp->(Sqrt[(H^2)-mf2])}))/factorLO)/. {mf2->(mf^2)}]

sigmatLO=Simplify[InttLO factorLO]

dsigmatm2=Simplify[(((Sqrt[(H^2)-(mf^2)]) (∂_mf2)(InttLO factorLO/. {Pp->(Sqrt[(H^2)-mf2])}))/(Pp factorLO))/. {mf2->(mf^2)}]

dsigmaum2=Simplify[(((Sqrt[(H^2)-(mf^2)]) (∂_mf2)(IntuLO factorLO/. {Pp->(Sqrt[(H^2)-mf2])}))/(Pp factorLO))/. {mf2->(mf^2)}]

dsigmatum2=Simplify[(((Sqrt[(H^2)-(mf^2)]) (∂_mf2)(InttuLO factorLO/. {Pp->(Sqrt[(H^2)-mf2])}))/(Pp factorLO))/. {mf2->(mf^2)}]

Simplify[dsigmaMajoranam2-dsigmatm2-dsigmaum2+dsigmatum2/. Pp->(Sqrt[(H^2)-(mf^2)])]

Factors needed for omega/ot integration :

nB=(1/(Exp[beta ω]-1))

I2=Simplify[(∫_0^∞)ω nB\[DifferentialD]ω,Re[beta>0]]

I4=(∫_0^∞)(ω^3) nB\[DifferentialD]ω

Zeta[2]

Zeta[4]

nF=(1/(Exp[beta ot]+1))

If2=(∫_0^∞)ot nF\[DifferentialD]ot

If4=(∫_0^∞)(ot^3) nF\[DifferentialD]ot

Virtual photon thermal contributions (thermal photon and thermal fermion) for Dirac and Majorana dark matter to order (mf^2): G, Gtot and K. From virtual(t,u,tu)_clean.nb. and virtualself_clean.nb/self_antifermion_clean). Phase Space Integral Calculations with special choice of frame of reference for minimizing calculations: After phi’, theta’, and theta integrations; only omega/ot integration left

Start with the non - self energy diagrams 1 - 5

t-channel original expressions:

IntG1t1t=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (4 Pp (3 (H^4)+(P^2) (Pp^2)) ω+(2 (Pp^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t2t=ConditionalExpression[-(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (-4 Pp (3 (H^4)+(P^2) (Pp^2)) ω-(-2 (Pp^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t1ttot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (4 Pp (3 (H^4)+(P^2) (Pp^2)) ω+(2 (Pp^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t2ttot=ConditionalExpression[-(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (-4 Pp (3 (H^4)+(P^2) (Pp^2)) ω-(-2 (Pp^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK1t1t=0

IntK1t2t=0

IntG1f1ttot=ConditionalExpression[-(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) Pp+(-3 (H^4) (mf^2)+6 (H^5) ot-4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))+(mf^2) (P^2) (mf-Pp) (mf+Pp)-H ot (P^2) ((mf^2)-2 (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG1f2ttot=ConditionalExpression[-(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) Pp-(3 (H^4) (mf^2)+6 (H^5) ot+4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))-H ot (P^2) ((mf^2)-2 (Pp^2))+(mf^2) (P^2) (-(mf^2)+(Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2t1t=ConditionalExpression[-(1/(3 H (mh^4) Pp))16 (e^2) π (λ^4) (-6 (H^3) Pp-2 H (P^2) Pp-(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG2t2t=ConditionalExpression[-(1/(3 H (mh^4) Pp))16 (e^2) π (λ^4) (-6 (H^3) Pp-2 H (P^2) Pp-(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG2t1ttot=ConditionalExpression[-(1/(3 H (mh^4) Pp (ω^2)))16 (e^2) π (λ^4) (-2 H (3 (H^2)+(P^2)) Pp (ω^2)-(2 ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2))+(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (ω^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG2t2ttot=ConditionalExpression[-(1/(3 H (mh^4) Pp (ω^2)))16 (e^2) π (λ^4) (-2 H (3 (H^2)+(P^2)) Pp (ω^2)-(2 ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2))+(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (ω^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK2t1t=ConditionalExpression[-((64 (e^2) π ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2)) (λ^4) ArcTanh[(Pp/H)])/(3 H (mh^4) Pp (ω^2))),Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals)]

IntK2t2t=ConditionalExpression[-((64 (e^2) π ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2)) (λ^4) ArcTanh[(Pp/H)])/(3 H (mh^4) Pp (ω^2))),Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals)]

IntG2f1ttot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)+3 (H^3) ot+(H^2) (P^2)+H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))-(9 (H^5) ot+3 (H^4) (-(mf^2)+(ot^2))+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))-(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) (((Kt^2)-(mf^2)-2 (ot^2)) (P^2)-3 (ot^2) (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG2f2ttot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)-3 (H^3) ot+(H^2) (P^2)-H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))+(9 (H^5) ot+3 (H^4) (mf-ot) (mf+ot)+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))+(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) ((-(Kt^2)+(mf^2)+2 (ot^2)) (P^2)+3 (ot^2) (Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)+2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2a1ttot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)-3 (H^3) ot+(H^2) (P^2)-H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))+(9 (H^5) ot+3 (H^4) (mf-ot) (mf+ot)+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))+(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) ((-(Kt^2)+(mf^2)+2 (ot^2)) (P^2)+3 (ot^2) (Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)+2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2a2ttot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)+3 (H^3) ot+(H^2) (P^2)+H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))-(9 (H^5) ot+3 (H^4) (-(mf^2)+(ot^2))+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))-(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) (((Kt^2)-(mf^2)-2 (ot^2)) (P^2)-3 (ot^2) (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG3t1t=ConditionalExpression[-(1/(3 (mh^6) (H-Pp) Pp (H+Pp) ω))32 (e^2) π (λ^4) (4 H (mf^2) Pp (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+2 (-((H^2) Pp)+(Pp^3)) (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω+H (H-Pp) (H+Pp) (6 (H^5)+2 H (P^2) (2 (mf^2)+3 (Pp^2))-6 (H^4) ω+(H^2) (3 (mf^2)-4 (P^2)) ω+(P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t2t=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (((4 H (mf^2) Pp (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)))/((H-Pp) (H+Pp)))+2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω+H (6 (H^5)+2 H (P^2) (2 (mf^2)+3 (Pp^2))+6 (H^4) ω+(H^2) (-3 (mf^2)+4 (P^2)) ω-(P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t1ttot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω-(6 (H^6)-6 (H^4) (mf^2)+6 (H^2) (P^2) (Pp^2)-2 (mf^2) (P^2) (Pp^2)-6 (H^5) ω+(H^3) (3 (mf^2)-4 (P^2)) ω+H (P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t2ttot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω+(6 (H^6)-6 (H^4) (mf^2)+6 (H^2) (P^2) (Pp^2)-2 (mf^2) (P^2) (Pp^2)+6 (H^5) ω+(H^3) (-3 (mf^2)+4 (P^2)) ω-H (P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK3t1t=ConditionalExpression[-((64 (e^2) (mf^2) π (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)) (λ^4) (-((2 H Pp)/((H^2)-(Pp^2)))-Log[H-Pp]+Log[H+Pp]))/(3 (mh^6) Pp ω)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK3t2t=ConditionalExpression[-((64 (e^2) (mf^2) π (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)) (λ^4) (((2 H Pp)/((H^2)-(Pp^2)))+Log[H-Pp]-Log[H+Pp]))/(3 (mh^6) Pp ω)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3a1ttot=ConditionalExpression[-(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) Pp+(-3 (H^4) (mf^2)+6 (H^5) ot-4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))+(mf^2) (P^2) (mf-Pp) (mf+Pp)-H ot (P^2) ((mf^2)-2 (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG3a2ttot=ConditionalExpression[-(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) Pp-(3 (H^4) (mf^2)+6 (H^5) ot+4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))-H ot (P^2) ((mf^2)-2 (Pp^2))+(mf^2) (P^2) (-(mf^2)+(Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG4t1t=ConditionalExpression[(1/(15 (mh^8) (H-Pp) Pp (H+Pp)))256 (e^2) π (λ^4) ((H^2) (15 (H^4) (2 (H^2)-(mc^2)+(mf^2))+45 (H^2) (mf^2) (P^2)+4 (mf^2) (P^4)) Pp-(30 (H^6)+5 (H^2) ((mc^2)+3 (mf^2)) (P^2)+(mf^2) (P^4)-15 (H^4) ((mc^2)+2 (P^2))) (Pp^3)+5 (-6 (H^2)+(mc^2)) (P^2) (Pp^5)+H (mf^2) (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG4t2t=ConditionalExpression[(1/(15 (mh^8) (H-Pp) Pp (H+Pp)))256 (e^2) π (λ^4) ((H^2) (15 (H^4) (2 (H^2)-(mc^2)+(mf^2))+45 (H^2) (mf^2) (P^2)+4 (mf^2) (P^4)) Pp-(30 (H^6)+5 (H^2) ((mc^2)+3 (mf^2)) (P^2)+(mf^2) (P^4)-15 (H^4) ((mc^2)+2 (P^2))) (Pp^3)+5 (-6 (H^2)+(mc^2)) (P^2) (Pp^5)+H (mf^2) (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG4t1ttot=((256 (e^2) π (6 (H^6)-3 (H^4) ((mc^2)+(mf^2))+6 (H^2) (P^2) (Pp^2)-((mc^2)+(mf^2)) (P^2) (Pp^2)) (λ^4))/(3 (mh^8)))

IntG4t2ttot=((256 (e^2) π (6 (H^6)-3 (H^4) ((mc^2)+(mf^2))+6 (H^2) (P^2) (Pp^2)-((mc^2)+(mf^2)) (P^2) (Pp^2)) (λ^4))/(3 (mh^8)))

IntK4t1t=ConditionalExpression[-(1/(15 (mh^8) (H-Pp) Pp (H+Pp)))256 (e^2) (mf^2) π (λ^4) ((H^2) (30 (H^4)+45 (H^2) (P^2)+4 (P^4)) Pp-(15 (H^4)+10 (H^2) (P^2)+(P^4)) (Pp^3)-5 (P^2) (Pp^5)+H (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK4t2t=ConditionalExpression[-(1/(15 (mh^8) Pp (-H+Pp) (H+Pp)))256 (e^2) (mf^2) π (λ^4) (-((H^2) (30 (H^4)+45 (H^2) (P^2)+4 (P^4)) Pp)+(15 (H^4)+10 (H^2) (P^2)+(P^4)) (Pp^3)+5 (P^2) (Pp^5)+H (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (-Log[H-Pp]+Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG5t1t=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntG5t2t=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntG5t1ttot=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntG5t2ttot=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntK5t1t=0

IntK5t2t=0

u channel original expressions:

IntG1t1u=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (4 Pp (((H (mf^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)))/((H-Pp) (H+Pp)))+(3 (H^4)+(P^2) (Pp^2)) ω)+(2 ((mf^2)+(Pp^2)) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t2u=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (-((4 H (mf^2) Pp (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)))/((H-Pp) (H+Pp)))+4 Pp (3 (H^4)+(P^2) (Pp^2)) ω+(-2 ((mf^2)+(Pp^2)) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t1utot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (4 Pp (3 (H^4)+(P^2) (Pp^2)) ω+(2 (Pp^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t2utot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (4 Pp (3 (H^4)+(P^2) (Pp^2)) ω+(-2 (Pp^2) (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2))+3 H ((H^2)+(P^2)) ((H^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK1t1u=ConditionalExpression[-((64 (e^2) (mf^2) π (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)) (λ^4) (((2 H Pp)/((H^2)-(Pp^2)))+Log[H-Pp]-Log[H+Pp]))/(3 (mh^6) Pp ω)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK1t2u=ConditionalExpression[-((64 (e^2) (mf^2) π (3 (H^4)+2 (H^2) (P^2)+(P^2) (Pp^2)) (λ^4) (-((2 H Pp)/((H^2)-(Pp^2)))-Log[H-Pp]+Log[H+Pp]))/(3 (mh^6) Pp ω)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1f1utot=ConditionalExpression[-(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) Pp+(-3 (H^4) (mf^2)+6 (H^5) ot-4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))+(mf^2) (P^2) (mf-Pp) (mf+Pp)-H ot (P^2) ((mf^2)-2 (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG1f2utot=ConditionalExpression[(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))) Pp+(3 (H^4) (mf^2)+6 (H^5) ot+4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))-H ot (P^2) ((mf^2)-2 (Pp^2))+(mf^2) (P^2) (-(mf^2)+(Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2t1u=ConditionalExpression[-(1/(3 H (mh^4) Pp))16 (e^2) π (λ^4) (-6 (H^3) Pp-2 H (P^2) Pp-(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG2t2u=ConditionalExpression[-(1/(3 H (mh^4) Pp))16 (e^2) π (λ^4) (-6 (H^3) Pp-2 H (P^2) Pp-(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG2t1utot=ConditionalExpression[-(1/(3 H (mh^4) Pp (ω^2)))16 (e^2) π (λ^4) (-2 H (3 (H^2)+(P^2)) Pp (ω^2)-(2 ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2))+(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (ω^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG2t2utot=ConditionalExpression[-(1/(3 H (mh^4) Pp (ω^2)))16 (e^2) π (λ^4) (-2 H (3 (H^2)+(P^2)) Pp (ω^2)-(2 ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2))+(3 (H^2)-(P^2)) (H-Pp) (H+Pp) (ω^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK2t1u=ConditionalExpression[-((64 (e^2) π ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2)) (λ^4) ArcTanh[(Pp/H)])/(3 H (mh^4) Pp (ω^2))),Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals)]

IntK2t2u=ConditionalExpression[-((64 (e^2) π ((H^2)+(Pp^2)) (3 (H^4)+(P^2) (Pp^2)) (λ^4) ArcTanh[(Pp/H)])/(3 H (mh^4) Pp (ω^2))),Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals)]

IntG2f1utot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)+3 (H^3) ot+(H^2) (P^2)+H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))-(9 (H^5) ot+3 (H^4) (-(mf^2)+(ot^2))+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))-(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) (((Kt^2)-(mf^2)-2 (ot^2)) (P^2)-3 (ot^2) (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG2f2utot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)-3 (H^3) ot+(H^2) (P^2)-H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))+(9 (H^5) ot+3 (H^4) (mf-ot) (mf+ot)+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))+(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) ((-(Kt^2)+(mf^2)+2 (ot^2)) (P^2)+3 (ot^2) (Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)+2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2a1utot=ConditionalExpression[(16 (e^2) π (λ^4) (-2 Kt Pp (6 (H^4)+3 (H^3) ot+(H^2) (P^2)+H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))+(9 (H^5) ot+3 (H^4) (-(mf^2)+(ot^2))+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))-(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) (((Kt^2)-(mf^2)-2 (ot^2)) (P^2)-3 (ot^2) (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG2a2utot=ConditionalExpression[-((16 (e^2) π (λ^4) (2 Kt Pp (6 (H^4)-3 (H^3) ot+(H^2) (P^2)-H ot (P^2)+(P^2) ((mf^2)+(Pp^2)))+(9 (H^5) ot+3 (H^4) (mf-ot) (mf+ot)+3 H ot (P^2) ((mf^2)+(Pp^2))+(H^3) ot (-3 (mf^2)+(P^2)+3 (Pp^2))+(P^2) ((mf^4)-((Kt^2)-2 (mf^2)) (Pp^2))+(H^2) ((-(Kt^2)+(mf^2)+2 (ot^2)) (P^2)+3 (ot^2) (Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])))/(3 Kt (mh^4) Pp ((H^2)+(mf^2)+2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG3t1u=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω-(6 (H^6)-6 (H^4) (mf^2)+6 (H^2) (P^2) (Pp^2)-2 (mf^2) (P^2) (Pp^2)-6 (H^5) ω+(H^3) (3 (mf^2)-4 (P^2)) ω+H (P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t2u=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω+(6 (H^6)-6 (H^4) (mf^2)+6 (H^2) (P^2) (Pp^2)-2 (mf^2) (P^2) (Pp^2)+6 (H^5) ω+(H^3) (-3 (mf^2)+4 (P^2)) ω-H (P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t1utot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω-(6 (H^6)-6 (H^4) (mf^2)+6 (H^2) (P^2) (Pp^2)-2 (mf^2) (P^2) (Pp^2)-6 (H^5) ω+(H^3) (3 (mf^2)-4 (P^2)) ω+H (P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t2utot=ConditionalExpression[(1/(3 (mh^6) Pp ω))32 (e^2) π (λ^4) (2 Pp (3 (H^4)+(H^2) (3 (mc^2)+4 (P^2))+(P^2) (-(mf^2)+(Pp^2))) ω+(6 (H^6)-6 (H^4) (mf^2)+6 (H^2) (P^2) (Pp^2)-2 (mf^2) (P^2) (Pp^2)+6 (H^5) ω+(H^3) (-3 (mf^2)+4 (P^2)) ω-H (P^2) ((mf^2)-2 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK3t1u=0

IntK3t2u=0

IntG3a1utot=ConditionalExpression[-(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) Pp+(-3 (H^4) (mf^2)+6 (H^5) ot-4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))+(mf^2) (P^2) (mf-Pp) (mf+Pp)-H ot (P^2) ((mf^2)-2 (Pp^2))) (Log[(mf^2)-H ot-Kt Pp]-Log[(mf^2)-H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG3a2utot=ConditionalExpression[(1/(3 Kt (mh^6) Pp))32 (e^2) π (λ^4) (2 Kt (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))) Pp+(3 (H^4) (mf^2)+6 (H^5) ot+4 (H^2) (mf^2) (P^2)+(H^3) ot (-3 (mf^2)+4 (P^2))-H ot (P^2) ((mf^2)-2 (Pp^2))+(mf^2) (P^2) (-(mf^2)+(Pp^2))) (Log[(mf^2)+H ot-Kt Pp]-Log[(mf^2)+H ot+Kt Pp])),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG4t1u=ConditionalExpression[(1/(15 (mh^8) Pp (-H+Pp) (H+Pp)))256 (e^2) π (λ^4) (-30 (H^8) Pp+(mf^2) (P^4) (Pp^3)-5 (mc^2) (P^2) (Pp^5)+15 (H^6) Pp ((mc^2)-(mf^2)+2 (Pp^2))-15 (H^4) (3 (mf^2) (P^2) Pp+((mc^2)+2 (P^2)) (Pp^3))+(H^2) (P^2) Pp (-4 (mf^2) (P^2)+5 ((mc^2)+3 (mf^2)) (Pp^2)+30 (Pp^4))+H (mf^2) (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (-Log[H-Pp]+Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG4t2u=ConditionalExpression[(1/(15 (mh^8) (H-Pp) Pp (H+Pp)))256 (e^2) π (λ^4) ((H^2) (15 (H^4) (2 (H^2)-(mc^2)+(mf^2))+45 (H^2) (mf^2) (P^2)+4 (mf^2) (P^4)) Pp-(30 (H^6)+5 (H^2) ((mc^2)+3 (mf^2)) (P^2)+(mf^2) (P^4)-15 (H^4) ((mc^2)+2 (P^2))) (Pp^3)+5 (-6 (H^2)+(mc^2)) (P^2) (Pp^5)+H (mf^2) (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG4t1utot=((64 (e^2) π (8 (H^6)-4 (H^4) ((mc^2)+(mf^2))+8 (H^2) (P^2) (Pp^2)-(4/3) ((mc^2)+(mf^2)) (P^2) (Pp^2)) (λ^4))/(mh^8))

IntG4t2utot=((64 (e^2) π (8 (H^6)-4 (H^4) ((mc^2)+(mf^2))+8 (H^2) (P^2) (Pp^2)-(4/3) ((mc^2)+(mf^2)) (P^2) (Pp^2)) (λ^4))/(mh^8))

IntK4t1u=ConditionalExpression[-(1/(15 (mh^8) Pp (-H+Pp) (H+Pp)))256 (e^2) (mf^2) π (λ^4) (-((H^2) (30 (H^4)+45 (H^2) (P^2)+4 (P^4)) Pp)+(15 (H^4)+10 (H^2) (P^2)+(P^4)) (Pp^3)+5 (P^2) (Pp^5)+H (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (-Log[H-Pp]+Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK4t2u=ConditionalExpression[-(1/(15 (mh^8) (H-Pp) Pp (H+Pp)))256 (e^2) (mf^2) π (λ^4) ((H^2) (30 (H^4)+45 (H^2) (P^2)+4 (P^4)) Pp-(15 (H^4)+10 (H^2) (P^2)+(P^4)) (Pp^3)-5 (P^2) (Pp^5)+H (H-Pp) (H+Pp) (15 (H^4)+20 (H^2) (P^2)+2 (P^4)+5 (P^2) (Pp^2)) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG5t1u=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntG5t2u=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntG5t1utot=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntG5t2utot=-((256 (e^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^6)))

IntK5t1u=0

IntK5t2u=0

tu cross channel original expressions:

IntG1t1tu=ConditionalExpression[(1/((mh^6) Pp ω))32 (e^2) (mc^2) π (λ^4) (2 Pp (((H (mf^2) ((H^2)+(Pp^2)))/((H-Pp) (H+Pp)))+(H^2) ω+(mf^2) ω+3 (Pp^2) ω)+(((H^2)+(Pp^2)) ((mf^2)+2 (Pp^2))+H ((H^2)+3 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t2tu=ConditionalExpression[-(1/((mh^6) Pp ω))32 (e^2) (mc^2) π (λ^4) (2 Pp (((H (mf^2) ((H^2)+(Pp^2)))/((H-Pp) (H+Pp)))-((H^2)+(mf^2)+3 (Pp^2)) ω)+(((H^2)+(Pp^2)) ((mf^2)+2 (Pp^2))-H ((H^2)+3 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t1tutot=ConditionalExpression[((32 (e^2) (mc^2) π (λ^4) (2 ((H^2)+(mf^2)+3 (Pp^2))+(((2 (Pp^2) ((H^2)+(Pp^2))+H ((H^2)+3 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp]))/(Pp ω))))/(mh^6)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1t2tutot=ConditionalExpression[(1/(mh^6))32 (e^2) (mc^2) π (λ^4) (2 ((H^2)+(mf^2)+3 (Pp^2))+(((-2 (Pp^2) ((H^2)+(Pp^2))+H ((H^2)+3 (Pp^2)) ω) (Log[H-Pp]-Log[H+Pp]))/(Pp ω))),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK1t1tu=ConditionalExpression[-((32 (e^2) (mc^2) (mf^2) π ((H^2)+(Pp^2)) (λ^4) (-2 H Pp-(H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])))/((mh^6) Pp (-H+Pp) (H+Pp) ω)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK1t2tu=ConditionalExpression[(32 (e^2) (mc^2) (mf^2) π ((H^2)+(Pp^2)) (λ^4) (-2 H Pp-(H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])))/((mh^6) Pp (-H+Pp) (H+Pp) ω),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG1f1tutot=ConditionalExpression[-(1/(Kt (mh^6) Pp))32 (e^2) (mc^2) π (λ^4) (2 Kt (-2 (H^2)+(mf^2)) Pp+(-2 (H^2) (mf^2)+(mf^4)+3 (H^3) ot-(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)-H ot-Kt Pp]-(-2 (H^2) (mf^2)+(mf^4)+3 (H^3) ot-(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)-H ot+Kt Pp]),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG1f2tutot=ConditionalExpression[(1/(Kt (mh^6) Pp))32 (e^2) (mc^2) π (λ^4) (2 Kt (2 (H^2)-(mf^2)) Pp+(2 (H^2) (mf^2)-(mf^4)+3 (H^3) ot+(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)+H ot-Kt Pp]-(2 (H^2) (mf^2)-(mf^4)+3 (H^3) ot+(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)+H ot+Kt Pp]),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2t1tu=ConditionalExpression[((64 (e^2) (mc^2) π (λ^4))/(mh^4)),((Im[H])^2)≤((Re[H])^2)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)&&((Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])∉(Reals)||Re[(Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])]≥1||Im[H] (Im[H]+((Re[H] Re[Pp])/(Im[Pp])))≤Re[H] (Re[H]+((Im[H] Im[Pp])/(Re[Pp]))))]

IntG2t2tu=ConditionalExpression[((64 (e^2) (mc^2) π (λ^4))/(mh^4)),((Im[H])^2)≤((Re[H])^2)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)&&((Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])∉(Reals)||Re[(Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])]≥1||Im[H] (Im[H]+((Re[H] Re[Pp])/(Im[Pp])))≤Re[H] (Re[H]+((Im[H] Im[Pp])/(Re[Pp]))))]

IntG2t1tutot=ConditionalExpression[-((64 (e^2) (mc^2) π (λ^4) (-(H Pp (ω^2))+((((H^2)+(Pp^2)))^2) ArcTanh[(Pp/H)]))/(H (mh^4) Pp (ω^2))),((Im[H])^2)≤((Re[H])^2)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)&&((Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])∉(Reals)||Re[(Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])]≥1||Im[H] (Im[H]+((Re[H] Re[Pp])/(Im[Pp])))≤Re[H] (Re[H]+((Im[H] Im[Pp])/(Re[Pp]))))&&(Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals))]

IntG2t2tutot=ConditionalExpression[-((64 (e^2) (mc^2) π (λ^4) (-(H Pp (ω^2))+((((H^2)+(Pp^2)))^2) ArcTanh[(Pp/H)]))/(H (mh^4) Pp (ω^2))),((Im[H])^2)≤((Re[H])^2)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)&&((Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])∉(Reals)||Re[(Sqrt[((Im[H] Re[H])/(Im[Pp] Re[Pp]))])]≥1||Im[H] (Im[H]+((Re[H] Re[Pp])/(Im[Pp])))≤Re[H] (Re[H]+((Im[H] Im[Pp])/(Re[Pp]))))&&(Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals))]

IntK2t1tu=ConditionalExpression[-((64 (e^2) (mc^2) π ((((H^2)+(Pp^2)))^2) (λ^4) ArcTanh[(Pp/H)])/(H (mh^4) Pp (ω^2))),Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals)]

IntK2t2tu=ConditionalExpression[-((64 (e^2) (mc^2) π ((((H^2)+(Pp^2)))^2) (λ^4) ArcTanh[(Pp/H)])/(H (mh^4) Pp (ω^2))),Re[((H^2)/(Pp^2))]≥1||Re[((H^2)/(Pp^2))]≤0||((H^2)/(Pp^2))∉(Reals)]

IntG2f1tutot=ConditionalExpression[(16 (e^2) (mc^2) π (λ^4) (-4 Kt Pp ((H^2)+(mf^2)+H ot+(Pp^2))+(-3 (H^2) (mf^2)+4 (H^3) ot+2 H ot ((mf^2)+2 (Pp^2))-(mf^2) ((mf^2)+3 (Pp^2))) Log[(mf^2)-H ot-Kt Pp]+(3 (H^2) (mf^2)+(mf^4)-4 (H^3) ot+3 (mf^2) (Pp^2)-2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)-H ot+Kt Pp]))/(Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG2f2tutot=ConditionalExpression[-((16 (e^2) (mc^2) π (λ^4) (4 Kt Pp ((H^2)+(mf^2)-H ot+(Pp^2))+(3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot+3 (mf^2) (Pp^2)+2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)+H ot-Kt Pp]-(3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot+3 (mf^2) (Pp^2)+2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)+H ot+Kt Pp]))/(Kt (mh^4) Pp ((H^2)+(mf^2)+2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG2a1tutot=ConditionalExpression[-((8 (e^2) (mc^2) π (λ^4) (4 Kt Pp ((H^4)-H Kt ot Pp+((((mf^2)+(Pp^2)))^2)+2 (H^2) ((mf^2)+(ot^2)+(Pp^2)))+4 Kt Pp ((H^4)+H Kt ot Pp+((((mf^2)+(Pp^2)))^2)+2 (H^2) ((mf^2)+(ot^2)+(Pp^2)))+((H^2)+(mf^2)+2 H ot+(Pp^2)) (3 (H^2) (mf^2)+(mf^4)-4 (H^3) ot+3 (mf^2) (Pp^2)-2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)-H ot-Kt Pp]+((H^2)+(mf^2)-2 H ot+(Pp^2)) (3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot+3 (mf^2) (Pp^2)+2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)+H ot-Kt Pp]-((H^2)+(mf^2)+2 H ot+(Pp^2)) (3 (H^2) (mf^2)+(mf^4)-4 (H^3) ot+3 (mf^2) (Pp^2)-2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)-H ot+Kt Pp]-((H^2)+(mf^2)-2 H ot+(Pp^2)) (3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot+3 (mf^2) (Pp^2)+2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)+H ot+Kt Pp]))/(Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2)) ((H^2)+(mf^2)+2 H ot+(Pp^2)))),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]>1||Re[(((mf^2)+H ot)/(Kt Pp))]<-1)]

IntG2a2tutot=ConditionalExpression[-((8 (e^2) (mc^2) π (λ^4) (4 Kt Pp ((H^4)-H Kt ot Pp+((((mf^2)+(Pp^2)))^2)+2 (H^2) ((mf^2)+(ot^2)+(Pp^2)))+4 Kt Pp ((H^4)+H Kt ot Pp+((((mf^2)+(Pp^2)))^2)+2 (H^2) ((mf^2)+(ot^2)+(Pp^2)))-((H^2)+(mf^2)+2 H ot+(Pp^2)) (-3 (H^2) (mf^2)+4 (H^3) ot+2 H ot ((mf^2)+2 (Pp^2))-(mf^2) ((mf^2)+3 (Pp^2))) Log[(mf^2)-H ot-Kt Pp]+((H^2)+(mf^2)-2 H ot+(Pp^2)) (3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot+3 (mf^2) (Pp^2)+2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)+H ot-Kt Pp]+((H^2)+(mf^2)+2 H ot+(Pp^2)) (-3 (H^2) (mf^2)+4 (H^3) ot+2 H ot ((mf^2)+2 (Pp^2))-(mf^2) ((mf^2)+3 (Pp^2))) Log[(mf^2)-H ot+Kt Pp]-((H^2)+(mf^2)-2 H ot+(Pp^2)) (3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot+3 (mf^2) (Pp^2)+2 H ot ((mf^2)+2 (Pp^2))) Log[(mf^2)+H ot+Kt Pp]))/(Kt (mh^4) Pp ((H^2)+(mf^2)-2 H ot+(Pp^2)) ((H^2)+(mf^2)+2 H ot+(Pp^2)))),(((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2)||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]>1||Re[(((mf^2)+H ot)/(Kt Pp))]<-1)]

IntG3t1tu=ConditionalExpression[(1/((mh^6) Pp ω))32 (e^2) (mc^2) π (λ^4) (2 Pp (-((H (mf^2) ((H^2)+(Pp^2)))/((H-Pp) (H+Pp)))+3 (H^2) ω-(mf^2) ω+(Pp^2) ω)+(-((2 (H^2)-(mf^2)) ((H^2)+(Pp^2)))+H (3 (H^2)-2 (mf^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t2tu=ConditionalExpression[-(1/((mh^6) ω))16 (e^2) (mc^2) π (λ^4) (-((4 H (mf^2) ((H^2)+(Pp^2)))/((H-Pp) (H+Pp)))-12 (H^2) ω+4 (mf^2) ω-4 (Pp^2) ω-(1/Pp)2 ((2 (H^2)-(mf^2)) ((H^2)+(Pp^2))+H (3 (H^2)-2 (mf^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t1tutot=ConditionalExpression[(1/((mh^6) ω))32 (e^2) (mc^2) π (λ^4) (2 (3 (H^2)-(mf^2)+(Pp^2)) ω-(1/Pp)(2 (H-mf) (H+mf) ((H^2)+(Pp^2))-H (3 (H^2)-2 (mf^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3t2tutot=ConditionalExpression[-(1/((mh^6) ω))32 (e^2) (mc^2) π (λ^4) (-2 (3 (H^2)-(mf^2)+(Pp^2)) ω-(1/Pp)(2 (H-mf) (H+mf) ((H^2)+(Pp^2))+H (3 (H^2)-2 (mf^2)+(Pp^2)) ω) (Log[H-Pp]-Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK3t1tu=ConditionalExpression[(32 (e^2) (mc^2) (mf^2) π ((H^2)+(Pp^2)) (λ^4) (2 H Pp+(H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])))/((mh^6) (H-Pp) Pp (H+Pp) ω),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK3t2tu=ConditionalExpression[-((32 (e^2) (mc^2) (mf^2) π ((H^2)+(Pp^2)) (λ^4) (2 H Pp+(H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])))/((mh^6) (H-Pp) Pp (H+Pp) ω)),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG3a1tutot=ConditionalExpression[-(1/(Kt (mh^6) Pp))32 (e^2) (mc^2) π (λ^4) (2 Kt (-2 (H^2)+(mf^2)) Pp+(-2 (H^2) (mf^2)+(mf^4)+3 (H^3) ot-(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)-H ot-Kt Pp]-(-2 (H^2) (mf^2)+(mf^4)+3 (H^3) ot-(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)-H ot+Kt Pp]),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[ot] Re[H]+Im[H] Re[ot]≥Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≤Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp])))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[H] Re[ot]≤Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[Kt] Re[Pp]||Im[ot] Re[H]+Im[Pp] Re[Kt]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥2 Im[mf] Re[mf]||Re[Kt] (((Im[mf])^2) Im[Pp]+Im[Pp] Re[H] Re[ot]+2 Im[mf] Re[mf] Re[Pp])+Im[Kt] (Im[ot] Im[Pp] Re[H]+Im[H] Im[Pp] Re[ot]+(((Im[mf])^2)+Re[H] Re[ot]) Re[Pp])≥Re[Kt] (Im[Pp] ((Re[mf])^2)+Im[ot] Re[H] Re[Pp])+Im[Kt] Re[mf] (2 Im[mf] Im[Pp]+Re[mf] Re[Pp])+Im[H] (Im[ot] Im[Pp] Re[Kt]+Im[Kt] Im[ot] Re[Pp]+Re[Kt] Re[ot] Re[Pp]))))&&((((mf^2)-H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)-H ot)/(Kt Pp))]>1||Re[(((mf^2)-H ot)/(Kt Pp))]<-1)]

IntG3a2tutot=ConditionalExpression[(1/(Kt (mh^6) Pp))32 (e^2) (mc^2) π (λ^4) (2 Kt (2 (H^2)-(mf^2)) Pp+(2 (H^2) (mf^2)-(mf^4)+3 (H^3) ot+(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)+H ot-Kt Pp]-(2 (H^2) (mf^2)-(mf^4)+3 (H^3) ot+(mf^2) (Pp^2)+H ot (-2 (mf^2)+(Pp^2))) Log[(mf^2)+H ot+Kt Pp]),((Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≥0&&(Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≥Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])||Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≤0))||(Im[Pp] Re[Kt]+Im[Kt] Re[Pp]≤0&&(Im[ot] Re[H]+Im[Pp] Re[Kt]+2 Im[mf] Re[mf]+Im[H] Re[ot]+Im[Kt] Re[Pp]≥0||Im[Kt] (Im[ot] Im[Pp] Re[H]+2 Im[mf] Im[Pp] Re[mf]+Im[H] Im[Pp] Re[ot]-((Im[mf])^2) Re[Pp]-Im[H] Im[ot] Re[Pp]+((Re[mf])^2) Re[Pp]+Re[H] Re[ot] Re[Pp])≤Re[Kt] (((Im[mf])^2) Im[Pp]+Im[H] Im[ot] Im[Pp]-Im[Pp] ((Re[mf])^2)-Im[Pp] Re[H] Re[ot]+Im[ot] Re[H] Re[Pp]+2 Im[mf] Re[mf] Re[Pp]+Im[H] Re[ot] Re[Pp])))||((Im[ot] Re[H]+2 Im[mf] Re[mf]+Im[H] Re[ot])/(2 Im[Pp] Re[Kt]+2 Im[Kt] Re[Pp]))≥(1/2))&&((((mf^2)+H ot)/(Kt Pp))∉(Reals)||Re[(((mf^2)+H ot)/(Kt Pp))]<-1||Re[(((mf^2)+H ot)/(Kt Pp))]>1)]

IntG4t1tu=ConditionalExpression[-(1/(3 (mh^8) Pp))256 (e^2) (mc^2) π ((H^2)+(Pp^2)) (λ^4) (-((Pp (6 (H^4)+(mf^2) (P^2)+3 (mc^2) (Pp^2)-3 (H^2) ((mc^2)-(mf^2)+2 (Pp^2))))/((H-Pp) (H+Pp)))+3 H (mf^2) (-Log[H-Pp]+Log[H+Pp])),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG4t2tu=ConditionalExpression[-(1/(3 (mh^8) Pp))256 π (e^2) (λ^4) (mc^2) ((H^2)+(Pp^2)) (3 H (mf^2) (Log[H+Pp]-Log[H-Pp])-((Pp (6 (H^4)-3 (H^2) ((mc^2)-(mf^2)+2 (Pp^2))+3 (mc^2) (Pp^2)+(mf^2) (P^2)))/((H-Pp) (H+Pp)))),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG4t1tutot=-((256 (e^2) (mc^2) (-2 (H^2)+(mc^2)+(mf^2)) π ((H^2)+(Pp^2)) (λ^4))/(mh^8))

IntG4t2tutot=-((256 π (e^2) (λ^4) (mc^2) ((H^2)+(Pp^2)) (-(2 (H^2))+(mc^2)+(mf^2)))/(mh^8))

IntK4t1tu=ConditionalExpression[-((256 (e^2) (mc^2) (mf^2) π ((H^2)+(Pp^2)) (λ^4) (Pp (6 (H^2)+(P^2)-3 (Pp^2))+3 H (H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])))/(3 (mh^8) (H-Pp) Pp (H+Pp))),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntK4t2tu=ConditionalExpression[-((256 π (e^2) (λ^4) (mc^2) (mf^2) ((H^2)+(Pp^2)) (Pp (6 (H^2)+(P^2)-3 (Pp^2))+3 H (H-Pp) (H+Pp) (Log[H-Pp]-Log[H+Pp])))/(3 (mh^8) Pp (H-Pp) (H+Pp))),(((Im[H])/(Im[Pp]))≥1||Re[H]≥((Im[H] Re[Pp])/(Im[Pp]))||((Im[H])/(Im[Pp]))≤-1)&&((H/Pp)∉(Reals)||Re[(H/Pp)]<-1||Re[(H/Pp)]>1)]

IntG5t1tu=-((256 (e^2) (mc^2) π ((H^2)+(Pp^2)) (λ^4))/(mh^6))

IntG5t2tu=-((256 (e^2) (mc^2) π ((H^2)+(Pp^2)) (λ^4))/(mh^6))

IntG5t1tutot=-((256 (e^2) (mc^2) π ((H^2)+(Pp^2)) (λ^4))/(mh^6))

IntG5t2tutot=-((256 (e^2) (mc^2) π ((H^2)+(Pp^2)) (λ^4))/(mh^6))

IntK5t1tu=0

IntK5t2tu=0

Simplifying the G and K terms. First, G terms:

t-channel thermal photons

G1t=Simplify[Normal[IntG1t1t+IntG1t2t]/. Log[a_]->0]

G2t=Simplify[Normal[IntG2t1t+IntG2t2t]/. Log[a_]->0]

G3t=Simplify[Normal[IntG3t1t+IntG3t2t]/. Log[a_]->0]

G4t=Simplify[Normal[IntG4t1t+IntG4t2t]/. Log[a_]->0]

((G4t /. Pp-> Sqrt[(H^2)- (mf^2)]) (2(H^2)-(mf^2))/4/(H^2))/. {H-> mc, P-> 0} // Simplify

G5t=Simplify[Normal[IntG5t1t+IntG5t2t]/. Log[a_]->0]

((G5t /. Pp-> Sqrt[(H^2)- (mf^2)]) (2(H^2)-(mf^2))/4/(H^2))/. {H-> mc, P-> 0} // Simplify

Thermal fermions and anti - fermions (finite, so no K photon):

G1fttot=Simplify[Normal[IntG1f1ttot+IntG1f2ttot]/. Log[a_]->0]

G2fttot=Simplify[Normal[IntG2f1ttot+IntG2f2ttot]/. Log[a_]->0]

G2attot=Simplify[Normal[IntG2a1ttot+IntG2a2ttot]/. Log[a_]->0]

G3attot=Simplify[Normal[IntG3a1ttot+IntG3a2ttot]/. Log[a_]->0]

u-channel thermal photons

G1u=Simplify[Normal[IntG1t1u+IntG1t2u]/. Log[a_]->0]

G2u=Simplify[Normal[IntG2t1u+IntG2t2u]/. Log[a_]->0]

G3u=Simplify[Normal[IntG3t1u+IntG3t2u]/. Log[a_]->0]

G4u=Simplify[Normal[IntG4t1u+IntG4t2u]/. Log[a_]->0]

G5u=Simplify[Normal[IntG5t1u+IntG5t2u]/. Log[a_]->0]

u-channel thermal fermions, no K photon, so total :

G1futot=Simplify[Normal[IntG1f1utot+IntG1f2utot]/. Log[a_]->0]

G2futot=Simplify[Normal[IntG2f1utot+IntG2f2utot]/. Log[a_]->0]

G2autot=Simplify[Normal[IntG2a1utot+IntG2a2utot]/. Log[a_]->0]

G3autot=Simplify[Normal[IntG3a1utot+IntG3a2utot]/. Log[a_]->0]

tu-cross channel thermal photons

G1tu=Simplify[Normal[IntG1t1tu+IntG1t2tu]/. Log[a_]->0]

G2tu=Simplify[Normal[IntG2t1tu+IntG2t2tu]/. Log[a_]->0]

G3tu=Simplify[Normal[IntG3t1tu+IntG3t2tu]/. Log[a_]->0]

G4tu=Simplify[Normal[IntG4t1tu+IntG4t2tu]/. Log[a_]->0]

G5tu=Simplify[Normal[IntG5t1tu+IntG5t2tu]/. Log[a_]->0]

tu-cross channel thermal fermions, no K photon, so total :

G1ftutot=Simplify[Normal[IntG1f1tutot+IntG1f2tutot]/. Log[a_]->0]

G2ftutot=Simplify[Normal[IntG2f1tutot+IntG2f2tutot]/. Log[a_]->0]

G2atutot=Simplify[Normal[IntG2a1tutot+IntG2a2tutot]/. Log[a_]->0]

G3atutot=Simplify[Normal[IntG3a1tutot+IntG3a2tutot]/. Log[a_]->0]

Now K terms:

K terms, t - channel thermal photons  only

K1t=Simplify[Normal[IntK1t1t+IntK1t2t]/. Log[a_]->0]

K2t=Simplify[Normal[IntK2t1t+IntK2t2t]/. {ArcTanh[(Pp/H)]->-(1/2) (Log[H-Pp]-Log[H+Pp])}/. Log[a_]->0]

K3t=Simplify[Normal[IntK3t1t+IntK3t2t]/. Log[a_]->0]

K4t=Simplify[Normal[IntK4t1t+IntK4t2t]/. Log[a_]->0]

((K4t /. Pp-> Sqrt[(H^2)- (mf^2)]) (2(H^2)-(mf^2))/4/(H^2))/. {H-> mc, P-> 0} // Simplify

K5t=Simplify[Normal[IntK5t1t+IntK5t2t]/. Log[a_]->0]

K terms, u-channel thermal photons only

K1u=Simplify[Normal[IntK1t1u+IntK1t2u]/. Log[a_]->0]

K2u=Simplify[Normal[IntK2t1u+IntK2t2u]/. {ArcTanh[(Pp/H)]->-(1/2) (Log[H-Pp]-Log[H+Pp])}/. Log[a_]->0]

K3u=Simplify[Normal[IntK3t1u+IntK3t2u]/. Log[a_]->0]

K4u=Simplify[Normal[IntK4t1u+IntK4t2u]/. Log[a_]->0]

K5u=Simplify[Normal[IntK5t1u+IntK5t2u]/. Log[a_]->0]

K terms, tu-cross channel thermal photons  only

K1tu=Simplify[Normal[IntK1t1tu+IntK1t2tu]/. Log[a_]->0]

K2tu=Simplify[Normal[IntK2t1tu+IntK2t2tu]/. {ArcTanh[(Pp/H)]->-(1/2) (Log[H-Pp]-Log[H+Pp])}/. Log[a_]->0]

K3tu=Simplify[Normal[IntK3t1tu+IntK3t2tu]/. Log[a_]->0]

K4tu=Simplify[Normal[IntK4t1tu+IntK4t2tu]/. Log[a_]->0]

K5tu=Simplify[Normal[IntK5t1tu+IntK5t2tu]/. Log[a_]->0]

Self energy part: contributions to both G, K, and Gtot (coll div) from the self-energy parts:

Self Energy diagrams corresponding to the 11, 44, 14 (t, u, tu) terms of real photon case, and for 33, 66, and 16 contributions for antifermion self - energy. Self energy part (from both B1, B2, B3, and F1, F2, F3; see virtualself_clean. nb and virtualself_antifermion_clean.nb). First, the results for contributions from fermion self energy(diagram 6)

Thermal photon contribution. Original expressions. Log term are also defined here

B1t=((64 π (e^2) (λ^4) (P^2))/(3 (mh^4)))

B1tlog=((32 π (e^2) H (λ^4) (3 (H^2)+(P^2)) (xlm-xlp))/(3 (mh^4) Pp))

B2t=((64 π (e^2) (λ^4) (mf^2) (3 (H^4)+(P^2) (Pp^2)))/(3 (mh^4) (ω^2) (H-Pp) (H+Pp)))

((B2t Pp/2/H/. Pp-> (2(H^2)-(mf^2))/2/H)/. {H-> mc, P-> 0}) + O[mf]^3 // Simplify

B2tlog=0

B3t=-((32 π (e^2) (λ^4) ((H^4)+(H^2) (P^2)-(mf^2) (P^2)))/((mh^4) (Pp^2)))

B3tlog=0

B1u=((64 π (e^2) (λ^4) (P^2))/(3 (mh^4)))

B1ulog=((32 π (e^2) H (λ^4) (3 (H^2)+(P^2)) (xlm-xlp))/(3 (mh^4) Pp))

B2u=((64 π (e^2) (λ^4) (mf^2) (3 (H^4)+(P^2) (Pp^2)))/(3 (mh^4) (ω^2) (H-Pp) (H+Pp)))

B2ulog=0

B3u=-((32 π (e^2) (λ^4) ((H^4)+(H^2) (P^2)-(mf^2) (P^2)))/((mh^4) (Pp^2)))

B3ulog=0

B1tu=((64 π (e^2) (λ^4) (mc^2))/(mh^4))

B1tulog=((64 π (e^2) H (λ^4) (mc^2) (xlm-xlp))/((mh^4) Pp))

B2tu=((64 π (e^2) (λ^4) (mc^2) (mf^2) ((H^2)+(Pp^2)))/((mh^4) (ω^2) (H-Pp) (H+Pp)))

B2tulog=0

B3tu=-((32 π (e^2) (λ^4) (mc^2) (4 (H^2)-3 (mf^2)))/((mh^4) (Pp^2)))

B3tulog=0

Now, thermal fermion contributions. Original expressions. Log terms also.

F1t=((64 π (e^2) (λ^4) (P^2))/(3 (mh^4)))

F1tlog=(1/(3 Kt (mh^4) Pp))16 π (e^2) (λ^4) (3 (H^3) ot (zlm1-zlm2+zlp1-zlp2)+H ot (P^2) (zlm1-zlm2+zlp1-zlp2)+(mf^2) (P^2) (-zlm1+zlm2+zlp1-zlp2))

F2t=0

F2tlog=-((32 π (e^2) (λ^4) (3 (H^4)+(P^2) (Pp^2)) (zlm1-zlm2-zlp1+zlp2))/(3 Kt (mh^4) Pp))

F3t=-((32 π (e^2) (λ^4) ((H^4)+(H^2) (P^2)-(mf^2) (P^2)))/((mh^4) (Pp^2)))

F3tlog=-((8 π (e^2) (λ^4) (mf^2) ((H^4)+(H^2) (P^2)-(mf^2) (P^2)) (zlm1-zlm2-zlp1+zlp2))/(Kt (mh^4) (Pp^3)))

F1u=((64 π (e^2) (λ^4) (P^2))/(3 (mh^4)))

F1ulog=(1/(3 Kt (mh^4) Pp))16 π (e^2) (λ^4) (3 (H^3) ot (zlm1-zlm2+zlp1-zlp2)+H ot (P^2) (zlm1-zlm2+zlp1-zlp2)+(mf^2) (P^2) (-zlm1+zlm2+zlp1-zlp2))

F2u=0

F2ulog=-((32 π (e^2) (λ^4) (3 (H^4)+(P^2) (Pp^2)) (zlm1-zlm2-zlp1+zlp2))/(3 Kt (mh^4) Pp))

F3u=-((32 π (e^2) (λ^4) ((H^4)+(H^2) (P^2)-(mf^2) (P^2)))/((mh^4) (Pp^2)))

F3ulog=-((8 π (e^2) (λ^4) (mf^2) ((H^4)+(H^2) (P^2)-(mf^2) (P^2)) (zlm1-zlm2-zlp1+zlp2))/(Kt (mh^4) (Pp^3)))

F1tu=((64 π (e^2) (λ^4) (mc^2))/(mh^4))

F1tulog=(1/(Kt (mh^4) Pp))16 π (e^2) (λ^4) (mc^2) (2 H ot (zlm1-zlm2+zlp1-zlp2)+(mf^2) (-zlm1+zlm2+zlp1-zlp2))

F2tu=0

F2tulog=-((32 π (e^2) (λ^4) (mc^2) ((H^2)+(Pp^2)) (zlm1-zlm2-zlp1+zlp2))/(Kt (mh^4) Pp))

F3tu=-((32 π (e^2) (λ^4) (mc^2) (4 (H^2)-3 (mf^2)))/((mh^4) (Pp^2)))

F3tulog=((8 π (e^2) (λ^4) (mc^2) (mf^2) (3 (mf^2)-4 (H^2)) (zlm1-zlm2-zlp1+zlp2))/(Kt (mh^4) (Pp^3)))

Simplify[F2tlog+F2ulog-F2tulog/. Pp->(Sqrt[(H^2)-(mf^2)])]

Self energy contributions from anti - fermion corresponding to Diagram 7

Now all terms have same coefficient of factorNLOVirtual, which differs from NLOReal by (( P’/Sqrt[s]) ω). Simplifying the NLO G and K terms. First, thermal photon contributions.  Note B2 is the K photon contribution

B1ta=B1t

B1talog=B1tlog

B2ta=B2t

B2talog=0

B3ta=Simplify[B3t/. {(Sqrt[(H^2)-(mf^2)])->Pp}]

B3talog=0

B1ua=B1u

B1ualog=B1ulog

B2ua=B2u

B2ualog=0

B3ua=Simplify[B3u/. {(Sqrt[(H^2)-(mf^2)])->Pp}]

B3ualog=0

B1tua=B1tu

B1tualog=B1tulog

B2tua=B2tu

B2tualog=B2tulog

B3tua=Simplify[B3tu/. Pp->(Sqrt[(H^2)-(mf^2)])]

B3tualog=B3tulog

Now, thermal anti-fermion contributions.

F1ta=F1t

F1talog=F1tlog

F2ta=F2t

F2talog=F2tlog

F3ta=Simplify[F3t/. Pp->(Sqrt[(H^2)-(mf^2)])]

F3talog=F3tlog

F1ua=F1u

F1ualog=F1ulog

F2ua=F2u

F2ualog=F2ulog

F3ua=Simplify[F3u/. Pp->(Sqrt[(H^2)-(mf^2)])]

F3ualog=F3ulog

F1tua=F1tu

F1tualog=F1tulog

F2tua=F2tu

F2tualog=F2tulog

F3tua=Simplify[F3tu/. Pp->(Sqrt[(H^2)-(mf^2)])]

F3tualog=F3tulog

Simplifying only self energy non log terms photon and fermion since log terms are dealt with later:

Bt=Simplify[Simplify[B1t+B2t+B3t/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Btfinite=Simplify[Simplify[B1t+B3t/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Bu=Simplify[Simplify[B1u+B2u+B3u/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Bufinite=Simplify[Simplify[B1u+B3u/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Btu=Simplify[Simplify[B1tu+B2tu+B3tu/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Btufinite=Simplify[Simplify[B1tu+B3tu/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Bfinite=Simplify[Btfinite+Bufinite-Btufinite/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Bfinite /. {H-> mc, P-> 0} // Simplify

BDirac=Simplify[Btfinite/. Pp->(Sqrt[(H^2)-(mf^2)])]

Ftfinite=Simplify[F1t+F2t+F3t/. Pp->(Sqrt[(H^2)-(mf^2)])]

Fufinite=Simplify[Simplify[F1u+F2u+F3u/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Ftufinite=Simplify[Simplify[F1tu+F2tu+F3tu/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Ffinite=Simplify[Ftfinite+Fufinite-Ftufinite/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Ffinite /. {H-> mc, P-> 0} // Simplify

FDirac=Simplify[Ftfinite/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Simplifying non log terms photon and fermion for anti-fermion self energy:

Bta=Simplify[B1ta+B2ta+B3ta/. Pp->(Sqrt[(H^2)-(mf^2)])]

Simplify[Bt-Bta]

Btafinite=Simplify[Simplify[B1ta+B3ta/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Bua=Simplify[Simplify[B1ua+B2ua+B3ua/. Pp->(Sqrt[(H^2)-(mf^2)])]]

Simplify[Bu-Bua]

Buafinite=Simplify[B1ua+B3ua/. Pp->(Sqrt[(H^2)-(mf^2)])]

Btua=Simplify[B1tua+B2tua+B3tua/. Pp->(Sqrt[(H^2)-(mf^2)])]

Btuafinite=Simplify[B1tua+B3tua]

Bafinite=Simplify[Btafinite+Buafinite-Btuafinite/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

BaDirac=Simplify[Btafinite/. Pp->(Sqrt[(H^2)-(mf^2)])]

Btfinite-Btafinite

Ftafinite=Simplify[F1ta+F2ta+F3ta/. Pp->(Sqrt[(H^2)-(mf^2)])]

Simplify[Ftafinite+Ftfinite-2 F3ta]

Fuafinite=Simplify[F1ua+F2ua+F3ua/. Pp->(Sqrt[(H^2)-(mf^2)])]

Simplify[Fuafinite+Fufinite-2 F3ua]

Ftuafinite=Simplify[F1tua+F2tua+F3tua/. Pp->(Sqrt[(H^2)-(mf^2)])]

Simplify[Ftuafinite+Ftufinite-2 F3tua]

Fafinite=Simplify[Ftafinite+Fuafinite-Ftuafinite/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Simplify[F3t+F3u-F3tu]

Simplify[F3ta+F3ua-F3tua]

Ffinite

FaDirac=Simplify[Ftafinite/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

The non-log finite parts, converted to match with real photon coefficients; first Diagrams 1-5 :

The matched G and K thermal photon part :

(G1t factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])} ) + O[mf]^3// Simplify

Gtsum=Simplify[(G1t+G2t+G3t+G4t+G5t) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gusum=Simplify[(G1u+G2u+G3u+G4u+G5u) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gtusum=Simplify[(G1tu+G2tu+G3tu+G4tu+G5tu) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Ktsum=Simplify[(K1t+K2t+K3t+K4t+K5t) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Kusum=Simplify[(K1u+K2u+K3u+K4u+K5u) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Ktusum=Simplify[(K1tu+K2tu+K3tu+K4tu+K5tu) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

The matched G fermion  + anti-fermion contributions ; here they are totals:

Gfattot=Simplify[(G1fttot+G2fttot+G2attot+G3attot) factorNLOvirtualf/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gfautot=Simplify[(G1futot+G2futot+G2autot+G3autot) factorNLOvirtualf/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gfatutot=Simplify[(G1ftutot+G2ftutot+G2atutot+G3atutot) factorNLOvirtualf/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Matched Self energy finite virtual (thermal photon then thermal fermion) contributions; SUMMED for f and  fbar:

Selft=Simplify[(Btfinite+Btafinite) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Selft/.{H-> mc, P-> 0} // Simplify

Selfu=Simplify[(Bufinite+Buafinite) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Selftu=Simplify[(Btufinite+Btuafinite) factorNLOvirtualg/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Selfgamma = Simplify[Selft+Selfu-Selftu]/. {H-> mc, P-> 0}

Selftfa=Simplify[(Ftfinite+Ftafinite) factorNLOvirtualf/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Selfufa=Simplify[(Fufinite+Fuafinite) factorNLOvirtualf/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Selftufa=Simplify[(Ftufinite+Ftuafinite) factorNLOvirtualf/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Selffa= Simplify[Selftfa+Selfufa-Selftufa] /. {H-> mc, P-> 0}

Selftot = Selfgamma + Selffa/2 // Simplify

Total matched virtual contribution, summed over G, K, f+fbar, and self :

First, total matched virtual thermal photon contribution :

virtualttot=Simplify[Gtsum+Ktsum+Selft]/.{ mc-> Sqrt[(H^2)-(P^2)]} // Simplify

virtualutot=Simplify[Gusum+Kusum+Selfu] /.{ mc-> Sqrt[(H^2)-(P^2)]} // Simplify

virtualtutot=Simplify[Gtusum+Ktusum+Selftu] /.{ mc-> Sqrt[(H^2)-(P^2)]} // Simplify

virtualtot=Simplify[Simplify[virtualttot+virtualutot-virtualtutot,H>0]]

virtualtotswave=Simplify[(virtualtot + O[mf]^3)/. {H->mc,P->0}, mc>0]

virtualtotDirac=Simplify[Simplify[(virtualttot + O[mf]^3)/. {mc-> Sqrt[(H^2)-(P^2)]},H>0]]

virtualtotDiracswave=Simplify[virtualtotDirac/. {H->mc,P->0}]

Matched Virtual thermal fermion  plus anti-fermion summed :

virtualfattot=Simplify[(Gfattot+Selftfa)/. mc-> Sqrt[(H^2)-(P^2)]] + O[ot]^4

virtualfautot=Simplify[(Gfautot+Selfufa)/. mc-> Sqrt[(H^2)-(P^2)]] + O[ot]^4

virtualfatutot=Simplify[(Gfatutot+Selftufa)/. mc-> Sqrt[(H^2)-(P^2)]] + O[ot]^4

Simplify[Selftfa+Selfufa-Selftufa/. {H->mc,P->0}]

virtualfatot=Simplify[(virtualfattot+virtualfautot-virtualfatutot) + O[mf]^3,H>0]

virtualfatotswave=Simplify[virtualfatot/. {H->mc,P->0}]

virtualfatotnoself = (* NOT matched with real; agrees with earlier result *) (Normal@((G1fttot+G2fttot+G2attot+G3attot)+ (G1futot+G2futot+G2autot+G3autot)- (G1ftutot+G2ftutot+G2atutot+G3atutot)) /. {Pp-> Sqrt[(H^2)- (mf^2)], P-> 0})  // Simplify

virtualfatotnoselfmatchreal =(Normal@( Gfattot + Gfautot - Gfatutot)/.P-> 0)  // Simplify

virtualfatotselfmatchreal =(Normal@( Selftfa + Selfufa - Selftufa)/.P-> 0)  // Simplify

virtualfatotDirac=Simplify[Normal@(Simplify[(virtualfattot/.mc-> Sqrt[(H^2)-(P^2)]) + O[mf]^3, H>0]) + O[mf]^3, H> 0] // Simplify

virtualfatotDiracswave=Simplify[virtualfatotDirac/. {H->mc,P->0}]

Coefficient[virtualfatotDiracswave, ot, 2]

Total integrated matched finite virtual part from gamma, f and fbar: Need to integrate *separately* with nB or nF before adding :  
Integrate is having some problems in Mathematica on laptop so calculating directly.

The individual terms :

intvirtualtotmatchreal1=Simplify[Simplify[Simplify[Coefficient[Normal[Normal[virtualtot]+((O[ω])^4)],ω,1],H>0] I2,beta>0]+Simplify[Simplify[Coefficient[Normal[Normal[virtualtot]+((O[ω])^4)],ω,3],H>0] I4,beta>0]]

intvirtualtotmatchreal=Simplify[Simplify[Normal[intvirtualtotmatchreal1+((O[mf])^3)],H>0]]

intvirtualtotmatchrealswave=Simplify[intvirtualtotmatchreal+((O[mf])^3)/. {H->mc,P->0}]

intvirtualtotDiracmatchreal1=Simplify[Simplify[Simplify[Coefficient[Normal[Normal[virtualtotDirac]+((O[ω])^4)],ω,1],H>0] I2,beta>0]+Simplify[Simplify[Coefficient[Normal[Normal[virtualtotDirac]+((O[ω])^4)],ω,3],H>0] I4,beta>0]]

intvirtualtotDiracmatchreal=Simplify[Simplify[Normal[intvirtualtotDiracmatchreal1+((O[mf])^3)],H>0]]

intvirtualtotDiracmatchrealswave=Simplify[intvirtualtotDiracmatchreal/. {H->mc,P->0}]

intvirtualfatotmatchreal1=Simplify[Coefficient[Normal[Normal[virtualfatot/. Kt->ot]+((O[ot])^4)],ot,1] If2+Coefficient[Normal[Normal[virtualfatot/. Kt->ot]+((O[ot])^4)],ot,3] If4+((O[mf])^3)]

intvirtualfatotmatchreal=Simplify[Normal[intvirtualfatotmatchreal1],H>0]

intvirtualfatotmatchrealswave=Simplify[Simplify[intvirtualfatotmatchreal+((O[mf])^3),H>0]/. {H->mc,P->0}]

intvirtualtotmatchrealswave + intvirtualfatotmatchrealswave  // Simplify

intvirtualfatotDiracmatchreal1=Simplify[Coefficient[Normal[Normal[virtualfatotDirac/. Kt->ot]+((O[ot])^4)],ot,1] If2+Coefficient[Normal[Normal[virtualfatotDirac/. Kt->ot]+((O[ot])^4)],ot,3] If4+((O[mf])^3)]

intvirtualfatotDiracmatchreal=Simplify[Simplify[Normal[intvirtualfatotDiracmatchreal1],H>0]]

intvirtualfatotDiracmatchrealswave=Simplify[intvirtualfatotDiracmatchreal/. {H->mc,P->0}]

Coefficient[(beta^4) Normal[intvirtualfatotmatchrealDiracswave],beta,2]

Coefficient[(beta^4) Normal[intvirtualfatotmatchrealDiracswave],beta,0]

The sum of gamma and f, fbar terms for virtual non - log case :

intvirtualgammafamatchreal = Simplify[Simplify[(intvirtualtotmatchreal+intvirtualfatotmatchreal)+((O[mf])^3),H>0]]

intvirtualgammafamatchrealswave = (* no T^4 term  in swave limit only *) Simplify[Simplify[(intvirtualtotmatchrealswave+intvirtualfatotmatchrealswave)+((O[mf])^3),H>0]]

Save["final.nb",intvirtualtotmatchreal ]

Save["final.nb",intvirtualfatotmatchreal ]

Save["final.nb",intvirtualgammafamatchreal ]

intvirtualgammafaDiracmatchreal = Simplify[Simplify[(intvirtualtotDiracmatchreal+intvirtualfatotDiracmatchreal)+((O[mf])^3),H>0]]

intvirtualgammafaDiracmatchrealswave = (* no T^4 term  in swave limit only *) Simplify[Simplify[(intvirtualtotDiracmatchrealswave+intvirtualfatotDiracmatchrealswave)+((O[mf])^3),H>0]]

Save["final.nb",intvirtualtotDiracmatchreal ]

Save["final.nb",intvirtualfatotDiracmatchreal ]

Save["final.nb",intvirtualgammafaDiracmatchreal ]

virtualT2Diracswave = Coefficient[(beta^4) Normal[intvirtualtotDiracmatchrealswave +  intvirtualfatotDiracmatchrealswave],beta,2]/beta^2 // Simplify

End of virtual calculations for non - log part

Real photon non-log thermal contributions for Dirac and Majorana dark matter to order (mf^2): Gtilde, Gtildetot and Ktilde. Phase Space Integral Calculations with special choice of frame of reference for minimizing calculations: After phi’, theta, and E’ integrations; only omega/ot integration left

The real gamma NLO contributions: Gtilde, Gtottilde (for collinear div) and Ktilde (for finite and div part)

Gtilde and Gtildetot original expressions:

Int1Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (4 (H^2) (3 (mc^2)+4 (P^2)) (H-ω)-((4 (H^2) (mf^2) (3 (mc^2)+4 (P^2)) (-H+ω))/(-4 (H^2)+(mf^2)+4 H ω))-(((mf^2) ω (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H-ω)))+((ω (-4 (H^2)+(mf^2)+4 H ω) (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (-H+ω)))-(-2 H (mf^2) (P^2)+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+(-2 H (mf^2) (P^2)+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int1Gom2=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (4 (H^2) (3 (mc^2)+4 (P^2)) (H+ω)-((4 (H^2) (mf^2) (3 (mc^2)+4 (P^2)) (H+ω))/(4 (H^2)-(mf^2)+4 H ω))-(((mf^2) ω (-2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H+ω)))+2 H (-2 H (P^2)+3 (H^2) ω-(P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-(-2 H (mf^2) (P^2)-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(-2 H (mf^2) (P^2)-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int1Gom1tot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (((4 H (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))) (H-ω))/ω)+((4 H (-((mf^4) (P^2))+(H^2) (mf^2) (3 (mc^2)+4 (P^2))) (H-ω))/(ω (-4 (H^2)+(mf^2)+4 H ω)))-(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(4 (H^2)-4 H ω))+((ω (-4 (H^2)+(mf^2)+4 H ω) ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(4 H (-H+ω)))+H (3 (H^2) (mf^2)-(mf^2) (3 (mc^2)+(P^2))+H (6 (mc^2) ω+8 (P^2) ω)) Log[(((mf^2) ω)/((H^2)-H ω))]+H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+(P^2))-2 H (3 (mc^2)+4 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int1Gom2tot=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (((4 H (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) (H+ω))/ω)+(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))-6 (H^3) ω+2 H (P^2) ω))/(4 H (H+ω)))-(((mf^2) (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)))/(ω-(((mf^2) ω)/(4 H (H+ω)))))+(-((mf^2) (P^2))+(H^2) (3 (mf^2)-4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+(P^2))+H (6 (mc^2) ω+8 (P^2) ω)) Log[(((mf^2) ω)/(H (H+ω)))]+H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+(P^2))+H (6 (mc^2) ω+8 (P^2) ω)) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int2Gom1=ConditionalExpression[-(1/(45 ((H^2) (mh^8))))(e^2) π (λ^4) ω (((5 (mf^6) (ω^2) (3 (mc^2) (P^2)+4 (P^4)-(H^2) (3 (mc^2)+8 (P^2))+3 (H^3) ω-H (P^2) ω))/(H (((H-ω))^3)))+192 H (H-ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)-(1/(-4 (H^2)+(mf^2)+4 H ω))192 H (mf^2) (-H+ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)+5 (H^2) (ω^2) (3 (mc^2) (P^2)+4 (P^4)-(H^2) (3 (mc^2)+8 (P^2))+3 (H^3) ω-H (P^2) ω) (((-4+((mf^2)/((H^2)-H ω))))^3)-(1/(((H-ω))^2))30 (mf^4) ω (3 (H^4) ω+(P^2) (2 (mc^2)+(mf^2)+3 (P^2)) ω-(H^2) (6 (mc^2)+3 (mf^2)+10 (P^2)) ω+(H^3) (-3 (mc^2)-8 (P^2)+3 (ω^2))+H (3 (mc^4)+11 (mc^2) (P^2)+8 (P^4)-(P^2) (ω^2)))+(1/(((H-ω))^2))30 ω (((-4 (H^2)+(mf^2)+4 H ω))^2) (3 (H^4) ω+(P^2) (2 (mc^2)+(mf^2)+3 (P^2)) ω-(H^2) (6 (mc^2)+3 (mf^2)+10 (P^2)) ω+(H^3) (-3 (mc^2)-8 (P^2)+3 (ω^2))+H (3 (mc^4)+11 (mc^2) (P^2)+8 (P^4)-(P^2) (ω^2)))-12 (-4+((mf^2)/((H^2)-H ω))) (60 (H^5) (2 (mc^2)+(mf^2)+5 (P^2)) ω+4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω-20 (H^3) ((mc^2) (3 (mf^2)-2 (P^2))+3 (P^2) ((mf^2)-(P^2))) ω-3 (mf^2) (P^4) (ω^2)+4 (H^2) (mf^2) (P^2) (5 (mc^2)+8 (P^2)-5 (ω^2))-20 (H^6) (2 (P^2)+3 (ω^2))-5 (H^4) (12 (mc^4)+48 (mc^2) (P^2)+40 (P^4)-15 (mf^2) (ω^2)+12 (P^2) (ω^2)))+(1/(H (H-ω)))12 (mf^2) (-60 (H^5) (2 (mc^2)+(mf^2)+5 (P^2)) ω-4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω+20 (H^3) ((mc^2) (3 (mf^2)-2 (P^2))+3 (P^2) ((mf^2)-(P^2))) ω+3 (mf^2) (P^4) (ω^2)-4 (H^2) (mf^2) (P^2) (5 (mc^2)+8 (P^2)-5 (ω^2))+20 (H^6) (2 (P^2)+3 (ω^2))+5 (H^4) (12 (mc^4)+48 (mc^2) (P^2)+40 (P^4)-15 (mf^2) (ω^2)+12 (P^2) (ω^2)))+48 (mf^2) (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω-3 (P^4) (ω^2)+(H^3) (-15 (mc^2) ω+80 (P^2) ω)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]-48 (mf^2) (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω-3 (P^4) (ω^2)+(H^3) (-15 (mc^2) ω+80 (P^2) ω)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int2Gom2=ConditionalExpression[(1/(15 (H^2) (mh^8)))16 (e^2) π (λ^4) (-((5 (mf^6) (ω^3) (3 (mc^2) (P^2)+4 (P^4)-(H^2) (3 (mc^2)+8 (P^2))-3 (H^3) ω+H (P^2) ω))/(48 H (((H+ω))^3)))+4 H ω (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)+(1/(-4 (H^2)+(mf^2)-4 H ω))4 H (mf^2) ω (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)-(20/3) (H^2) (-3 (mc^2) (P^2)-4 (P^4)+(H^2) (3 (mc^2)+8 (P^2))+3 (H^3) ω-H (P^2) ω) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^3)+(1/(8 (((H+ω))^2)))5 (mf^4) (ω^2) (3 (H^4) ω+(P^2) (2 (mc^2)+(mf^2)+3 (P^2)) ω-(H^2) (6 (mc^2)+3 (mf^2)+10 (P^2)) ω+(H^3) (3 (mc^2)+8 (P^2)-3 (ω^2))+H (-3 (mc^4)-11 (mc^2) (P^2)-8 (P^4)+(P^2) (ω^2)))-10 (((H ω-(((mf^2) ω)/(4 (H+ω)))))^2) (3 (H^4) ω+(P^2) (2 (mc^2)+(mf^2)+3 (P^2)) ω-(H^2) (6 (mc^2)+3 (mf^2)+10 (P^2)) ω+(H^3) (3 (mc^2)+8 (P^2)-3 (ω^2))+H (-3 (mc^4)-11 (mc^2) (P^2)-8 (P^4)+(P^2) (ω^2)))-(1/(4 H (H+ω)))(mf^2) ω (60 (H^5) (2 (mc^2)+(mf^2)+5 (P^2)) ω+4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω-20 (H^3) ((mc^2) (3 (mf^2)-2 (P^2))+3 (P^2) ((mf^2)-(P^2))) ω+3 (mf^2) (P^4) (ω^2)-4 (H^2) (mf^2) (P^2) (5 (mc^2)+8 (P^2)-5 (ω^2))+20 (H^6) (2 (P^2)+3 (ω^2))+5 (H^4) (12 (mc^4)+48 (mc^2) (P^2)+40 (P^4)-15 (mf^2) (ω^2)+12 (P^2) (ω^2)))+(ω-(((mf^2) ω)/(4 H (H+ω)))) (60 (H^5) (2 (mc^2)+(mf^2)+5 (P^2)) ω+4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω-20 (H^3) ((mc^2) (3 (mf^2)-2 (P^2))+3 (P^2) ((mf^2)-(P^2))) ω+3 (mf^2) (P^4) (ω^2)-4 (H^2) (mf^2) (P^2) (5 (mc^2)+8 (P^2)-5 (ω^2))+20 (H^6) (2 (P^2)+3 (ω^2))+5 (H^4) (12 (mc^4)+48 (mc^2) (P^2)+40 (P^4)-15 (mf^2) (ω^2)+12 (P^2) (ω^2)))+(mf^2) ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω+3 (P^4) (ω^2)+(H^3) (-15 (mc^2) ω+80 (P^2) ω)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]-(mf^2) ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω+3 (P^4) (ω^2)+(H^3) (-15 (mc^2) ω+80 (P^2) ω)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int2Gom1tot=(1/(3 (mh^8)))64 (e^2) π (λ^4) (-(1/(4 (H (H-ω))))(-(mf^2)+2 H (H-ω)) (2 H-ω) ω (-3 H ((H^2)+(mc^2)) (mc-mf) (mc+mf)+H (-8 (H^2)-5 (mc^2)+(mf^2)) (P^2)+(3 (H^2)-(P^2)) ((H^2)+2 (mc^2)-(mf^2)+3 (P^2)) ω+H (-3 (H^2)+(P^2)) (ω^2))-(1/(96 (H^3) (((H-ω))^3)))(P^2) ω (48 (H^4) (4 (H^4)+(mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(H^2) (7 (mc^2)-5 (mf^2)+10 (P^2)))-48 (H^3) (19 (H^4)+2 (mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(H^2) (21 (mc^2)-16 (mf^2)+30 (P^2))) ω+(1616 (H^6)+2 (H^2) (mf^2) (-78 (mc^2)+27 (mf^2)-104 (P^2))+(mf^4) (3 (mc^2)-(mf^2)+4 (P^2))+8 (H^4) (132 (mc^2)-105 (mf^2)+188 (P^2))) (ω^2)+H (-1312 (H^4)+(mf^2) (12 (mc^2)-7 (mf^2)+16 (P^2))-4 (H^2) (108 (mc^2)-85 (mf^2)+152 (P^2))) (ω^3)+4 (H^2) (116 (H^2)+12 (mc^2)-7 (mf^2)+16 (P^2)) (ω^4)-48 (H^3) (ω^5)) ((mf^2)+2 H (-H+ω))+(1/3) H (H (-3 (mc^2)+3 (mf^2)-10 (P^2))+3 (H^2) ω+2 (P^2) ω) ((((H-(((mf^2) ω)/(4 (H^2)-4 H ω))))^3)-(((H+ω (-1+((mf^2)/(4 (H^2)-4 H ω)))))^3)))

Int2Gom2tot=(1/(9 (H^3) (mh^8) (((H+ω))^3)))(e^2) π (λ^4) (48 (H^2) ω (((H+ω))^2) (2 H+ω) (3 H ((H^2)+(mc^2)) (mc-mf) (mc+mf)+H (8 (H^2)+5 (mc^2)-(mf^2)) (P^2)+(3 (H^2)-(P^2)) ((H^2)+2 (mc^2)-(mf^2)+3 (P^2)) ω+H (3 (H^2)-(P^2)) (ω^2)) (-(mf^2)+2 H (H+ω))-2 (P^2) ω ((mf^2)-2 H (H+ω)) (192 (H^8)+912 (H^7) ω+(mf^4) (3 (mc^2)-(mf^2)+4 (P^2)) (ω^2)+H (mf^2) (-12 (mc^2)+7 (mf^2)-16 (P^2)) (ω^3)+16 (H^5) ω (63 (mc^2)-48 (mf^2)+90 (P^2)+82 (ω^2))+16 (H^6) (21 (mc^2)-15 (mf^2)+30 (P^2)+101 (ω^2))+2 (H^2) (ω^2) ((mf^2) (-78 (mc^2)+27 (mf^2)-104 (P^2))+2 (12 (mc^2)-7 (mf^2)+16 (P^2)) (ω^2))+4 (H^3) ω (24 (mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(108 (mc^2)-85 (mf^2)+152 (P^2)) (ω^2)+12 (ω^4))+8 (H^4) (6 (mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(132 (mc^2)-105 (mf^2)+188 (P^2)) (ω^2)+58 (ω^4)))+H (H (3 (mc^2)-3 (mf^2)+10 (P^2))+3 (H^2) ω+2 (P^2) ω) (((((mf^2) ω+4 (H^2) (H+ω)))^3)+((((mf^2) ω-4 (H^2) (H+ω)-4 H ω (H+ω)))^3)))

Int3Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (4 (H^2) (3 (H^2)+(P^2)) (H-ω)-((4 (H^2) (mf^2) (3 (H^2)+(P^2)) (H-ω))/(4 (H^2)-(mf^2)-4 H ω))-(((mf^2) ω (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H-ω)))-((ω (-4 (H^2)+(mf^2)+4 H ω) (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H-ω)))-(2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[4]+(2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-(2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int3Gom2=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) ((1/((H+ω) (4 (H^2)-(mf^2)+4 H ω)))(2 (H^2)-(mf^2)+2 H ω) (24 (H^6)+48 (H^5) ω+(mf^2) (P^2) (ω^2)-(H^2) (3 (mf^2)+4 (P^2)) (ω^2)+2 H (P^2) ω ((mf^2)-2 (ω^2))+4 (H^4) (2 (P^2)+9 (ω^2))+4 (H^3) (2 (P^2) ω+3 (ω^3)))+(2 H (mf^2) (P^2)-6 (H^4) ω+(mf^2) (P^2) ω-(H^2) (3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(-2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int3Gom1tot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((4 H (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) (H-ω))/ω)-(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(4 H (H-ω)))-((4 (mf^2) (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)))/(ω (-4+((mf^2)/((H^2)-H ω)))))-(1/4) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (-4+((mf^2)/((H^2)-H ω)))-H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+5 (P^2))+6 (H^3) ω+2 H (P^2) ω) Log[4]+H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+5 (P^2))+6 (H^3) ω+2 H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+5 (P^2))+6 (H^3) ω+2 H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int3Gom2tot=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((4 H (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))) (H+ω))/ω)+(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))-6 (H^3) ω+2 H (P^2) ω))/(4 H (H+ω)))+((-((mf^4) (P^2))+(H^2) (mf^2) (3 (mc^2)+4 (P^2)))/(ω-(((mf^2) ω)/(4 H (H+ω)))))+(-((mf^2) (P^2))+(H^2) (3 (mf^2)-4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-H ((mf^2) (3 (H^2)-3 (mc^2)-5 (P^2))+2 H (3 (H^2)+(P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+H ((mf^2) (3 (H^2)-3 (mc^2)-5 (P^2))+2 H (3 (H^2)+(P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int4Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (4 (H^2) (3 (mc^2)+4 (P^2)) (H-ω)-((4 (H^2) (mf^2) (3 (mc^2)+4 (P^2)) (-H+ω))/(-4 (H^2)+(mf^2)+4 H ω))-(((mf^2) ω (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H-ω)))+((ω (-4 (H^2)+(mf^2)+4 H ω) (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (-H+ω)))-(-2 H (mf^2) (P^2)+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+(-2 H (mf^2) (P^2)+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int4Gom2=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (4 (H^2) (3 (mc^2)+4 (P^2)) (H+ω)-((4 (H^2) (mf^2) (3 (mc^2)+4 (P^2)) (H+ω))/(4 (H^2)-(mf^2)+4 H ω))-(((mf^2) ω (-2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H+ω)))+2 H (-2 H (P^2)+3 (H^2) ω-(P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-(-2 H (mf^2) (P^2)-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(-2 H (mf^2) (P^2)-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+8 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int4Gom1tot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (((4 H (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))) (H-ω))/ω)+((4 H (-((mf^4) (P^2))+(H^2) (mf^2) (3 (mc^2)+4 (P^2))) (H-ω))/(ω (-4 (H^2)+(mf^2)+4 H ω)))-(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(4 (H^2)-4 H ω))+((ω (-4 (H^2)+(mf^2)+4 H ω) ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(4 H (-H+ω)))+H (3 (H^2) (mf^2)-(mf^2) (3 (mc^2)+(P^2))+H (6 (mc^2) ω+8 (P^2) ω)) Log[(((mf^2) ω)/((H^2)-H ω))]+H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+(P^2))-2 H (3 (mc^2)+4 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int4Gom2tot=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (((4 H (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) (H+ω))/ω)+(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))-6 (H^3) ω+2 H (P^2) ω))/(4 H (H+ω)))-(((mf^2) (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)))/(ω-(((mf^2) ω)/(4 H (H+ω)))))+(-((mf^2) (P^2))+(H^2) (3 (mf^2)-4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+(P^2))+H (6 (mc^2) ω+8 (P^2) ω)) Log[(((mf^2) ω)/(H (H+ω)))]+H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+(P^2))+H (6 (mc^2) ω+8 (P^2) ω)) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int5Gom1=ConditionalExpression[-(1/(45 ((H^2) (mh^8))))(e^2) π (λ^4) ω (((5 (ω^2) (((-4 (H^2)+(mf^2)+4 H ω))^3) (3 (mc^2) (P^2)+4 (P^4)-(H^2) (3 (mc^2)+8 (P^2))+3 (H^3) ω-H (P^2) ω))/(H (((H-ω))^3)))-((5 (mf^6) (ω^2) (-3 (mc^2) (P^2)-4 (P^4)+(H^2) (3 (mc^2)+8 (P^2))-3 (H^3) ω+H (P^2) ω))/(H (((H-ω))^3)))+192 H (H-ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)+(1/(-4 (H^2)+(mf^2)+4 H ω))192 H (mf^2) (H-ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)+(1/(((H-ω))^2))30 ω (((-4 (H^2)+(mf^2)+4 H ω))^2) (-3 (H^4) ω-3 (H^2) ((mf^2)+2 (P^2)) ω+(P^2) (4 (mc^2)+(mf^2)+5 (P^2)) ω+(H^3) (3 (mc^2)+8 (P^2)+3 (ω^2))-H (3 (mc^4)+11 (mc^2) (P^2)+8 (P^4)+(P^2) (ω^2)))+(1/(((H-ω))^2))30 (mf^4) ω (3 (H^4) ω+3 (H^2) ((mf^2)+2 (P^2)) ω-(P^2) (4 (mc^2)+(mf^2)+5 (P^2)) ω-(H^3) (3 (mc^2)+8 (P^2)+3 (ω^2))+H (3 (mc^4)+11 (mc^2) (P^2)+8 (P^4)+(P^2) (ω^2)))+(1/(H (-H+ω)))12 (-4 (H^2)+(mf^2)+4 H ω) (-40 (H^6) (P^2)+4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω+20 (H^5) (3 (mc^2)-3 (mf^2)+7 (P^2)) ω+20 (H^3) (3 (mc^4)+3 (mf^2) (P^2)+11 (P^4)+(mc^2) (3 (mf^2)+13 (P^2))) ω-3 (mf^2) (P^4) (ω^2)+4 (H^2) (P^2) (-5 (P^2) (ω^2)+(mf^2) (8 (P^2)-5 (ω^2))+5 (mc^2) ((mf^2)-(ω^2)))-5 (H^4) (12 (mc^4)+12 (mc^2) (4 (P^2)+(ω^2))+5 (8 (P^4)-3 (mf^2) (ω^2)+4 (P^2) (ω^2))))+(1/(H (H-ω)))12 (mf^2) (40 (H^6) (P^2)-4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω-20 (H^5) (3 (mc^2)-3 (mf^2)+7 (P^2)) ω-20 (H^3) (3 (mc^4)+3 (mf^2) (P^2)+11 (P^4)+(mc^2) (3 (mf^2)+13 (P^2))) ω+3 (mf^2) (P^4) (ω^2)-4 (H^2) (P^2) (-5 (P^2) (ω^2)+(mf^2) (8 (P^2)-5 (ω^2))+5 (mc^2) ((mf^2)-(ω^2)))+5 (H^4) (12 (mc^4)+12 (mc^2) (4 (P^2)+(ω^2))+5 (8 (P^4)-3 (mf^2) (ω^2)+4 (P^2) (ω^2))))-48 (mf^2) (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+15 (H^5) ω-5 (H^3) (15 (mc^2)+28 (P^2)) ω-H (P^2) (35 (mc^2)+43 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[(((mf^2) ω)/((H^2)-H ω))]+48 (mf^2) (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+15 (H^5) ω-5 (H^3) (15 (mc^2)+28 (P^2)) ω-H (P^2) (35 (mc^2)+43 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int5Gom2=ConditionalExpression[(1/(15 (H^2) (mh^8)))16 (e^2) π (λ^4) (-4 H ω (H+ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))-15 (H^3) ((mc^2)+2 (P^2)) ω-3 H (P^2) (5 (mc^2)+6 (P^2)) ω)+(1/(-4 (H^2)+(mf^2)-4 H ω))4 H (mf^2) ω (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)-((5 (3 (mc^2) (P^2)+4 (P^4)-(H^2) (3 (mc^2)+8 (P^2))-3 (H^3) ω+H (P^2) ω) (((4 (H^3)+(mf^2) ω-4 H (ω^2)))^3))/(48 H (((H+ω))^3)))-(20/3) (H^2) (-3 (mc^2) (P^2)-4 (P^4)+(H^2) (3 (mc^2)+8 (P^2))+3 (H^3) ω-H (P^2) ω) (((H-(((mf^2) ω)/(4 H (H+ω)))))^3)-(1/(8 (((H+ω))^2)))5 (((4 (H^3)+(mf^2) ω-4 H (ω^2)))^2) (3 (H^4) ω+(P^2) (4 (mc^2)+(mf^2)+5 (P^2)) ω-(H^2) (3 (mf^2)+8 (P^2)) ω+(H^3) (3 (mc^2)+8 (P^2)-3 (ω^2))+H (3 (mc^4)+5 (mc^2) (P^2)+(P^2) (ω^2)))+10 ((((H^2)-(((mf^2) ω)/(4 (H+ω)))))^2) (3 (H^4) ω+(P^2) (4 (mc^2)+(mf^2)+5 (P^2)) ω-(H^2) (3 (mf^2)+8 (P^2)) ω+(H^3) (3 (mc^2)+8 (P^2)-3 (ω^2))+H (3 (mc^4)+5 (mc^2) (P^2)+(P^2) (ω^2)))+(H-(((mf^2) ω)/(4 H (H+ω)))) (4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω+20 (H^5) (3 (mc^2)+14 (P^2)) ω+20 (H^3) (3 (mc^4)+3 (mc^2) ((mf^2)+3 (P^2))+2 (P^2) ((mf^2)+3 (P^2))) ω+3 (mf^2) (P^4) (ω^2)+20 (H^6) (2 (P^2)+3 (ω^2))-4 (H^2) (P^2) (-5 (P^2) (ω^2)+(mf^2) (8 (P^2)-5 (ω^2))+5 (mc^2) ((mf^2)-(ω^2)))+5 (H^4) (24 (P^4)-15 (mf^2) (ω^2)+16 (P^2) (ω^2)+4 (mc^2) (4 (P^2)+3 (ω^2))))-(H-ω+(((mf^2) ω)/(4 H (H+ω)))) (4 H (mf^2) (P^2) (5 (mc^2)+7 (P^2)) ω+20 (H^5) (3 (mc^2)+14 (P^2)) ω+20 (H^3) (3 (mc^4)+3 (mc^2) ((mf^2)+3 (P^2))+2 (P^2) ((mf^2)+3 (P^2))) ω+3 (mf^2) (P^4) (ω^2)+20 (H^6) (2 (P^2)+3 (ω^2))-4 (H^2) (P^2) (-5 (P^2) (ω^2)+(mf^2) (8 (P^2)-5 (ω^2))+5 (mc^2) ((mf^2)-(ω^2)))+5 (H^4) (24 (P^4)-15 (mf^2) (ω^2)+16 (P^2) (ω^2)+4 (mc^2) (4 (P^2)+3 (ω^2))))+(mf^2) ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-15 (H^5) ω+5 (H^3) (15 (mc^2)+28 (P^2)) ω+H (P^2) (35 (mc^2)+43 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(mf^2) ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-15 (H^5) ω+5 (H^3) (15 (mc^2)+28 (P^2)) ω+H (P^2) (35 (mc^2)+43 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int5Gom1tot=(1/(3 (mh^8)))64 (e^2) π (λ^4) (-(1/(4 (H (H-ω))))(-(mf^2)+2 H (H-ω)) (2 H-ω) ω (-3 H ((H^2)+(mc^2)) (mc-mf) (mc+mf)+H (-8 (H^2)-5 (mc^2)+(mf^2)) (P^2)+(3 (H^2)-(P^2)) ((H^2)+2 (mc^2)-(mf^2)+3 (P^2)) ω+H (-3 (H^2)+(P^2)) (ω^2))-(1/(96 (H^3) (((H-ω))^3)))(P^2) ω (48 (H^4) (4 (H^4)+(mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(H^2) (7 (mc^2)-5 (mf^2)+10 (P^2)))-48 (H^3) (19 (H^4)+2 (mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(H^2) (21 (mc^2)-16 (mf^2)+30 (P^2))) ω+(1616 (H^6)+2 (H^2) (mf^2) (-78 (mc^2)+27 (mf^2)-104 (P^2))+(mf^4) (3 (mc^2)-(mf^2)+4 (P^2))+8 (H^4) (132 (mc^2)-105 (mf^2)+188 (P^2))) (ω^2)+H (-1312 (H^4)+(mf^2) (12 (mc^2)-7 (mf^2)+16 (P^2))-4 (H^2) (108 (mc^2)-85 (mf^2)+152 (P^2))) (ω^3)+4 (H^2) (116 (H^2)+12 (mc^2)-7 (mf^2)+16 (P^2)) (ω^4)-48 (H^3) (ω^5)) ((mf^2)+2 H (-H+ω))+(1/3) H (H (-3 (mc^2)+3 (mf^2)-10 (P^2))+3 (H^2) ω+2 (P^2) ω) ((((H-(((mf^2) ω)/(4 (H^2)-4 H ω))))^3)-(((H+ω (-1+((mf^2)/(4 (H^2)-4 H ω)))))^3)))

Int5Gom2tot=(1/(9 (H^3) (mh^8) (((H+ω))^3)))(e^2) π (λ^4) (48 (H^2) ω (((H+ω))^2) (2 H+ω) (3 H ((H^2)+(mc^2)) (mc-mf) (mc+mf)+H (8 (H^2)+5 (mc^2)-(mf^2)) (P^2)+(3 (H^2)-(P^2)) ((H^2)+2 (mc^2)-(mf^2)+3 (P^2)) ω+H (3 (H^2)-(P^2)) (ω^2)) (-(mf^2)+2 H (H+ω))-2 (P^2) ω ((mf^2)-2 H (H+ω)) (192 (H^8)+912 (H^7) ω+(mf^4) (3 (mc^2)-(mf^2)+4 (P^2)) (ω^2)+H (mf^2) (-12 (mc^2)+7 (mf^2)-16 (P^2)) (ω^3)+16 (H^5) ω (63 (mc^2)-48 (mf^2)+90 (P^2)+82 (ω^2))+16 (H^6) (21 (mc^2)-15 (mf^2)+30 (P^2)+101 (ω^2))+2 (H^2) (ω^2) ((mf^2) (-78 (mc^2)+27 (mf^2)-104 (P^2))+2 (12 (mc^2)-7 (mf^2)+16 (P^2)) (ω^2))+4 (H^3) ω (24 (mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(108 (mc^2)-85 (mf^2)+152 (P^2)) (ω^2)+12 (ω^4))+8 (H^4) (6 (mf^2) (-3 (mc^2)+(mf^2)-4 (P^2))+(132 (mc^2)-105 (mf^2)+188 (P^2)) (ω^2)+58 (ω^4)))+H (H (3 (mc^2)-3 (mf^2)+10 (P^2))+3 (H^2) ω+2 (P^2) ω) (((((mf^2) ω+4 (H^2) (H+ω)))^3)+((((mf^2) ω-4 (H^2) (H+ω)-4 H ω (H+ω)))^3)))

Int6Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (4 (H^2) (3 (H^2)+(P^2)) (H-ω)-((4 (H^2) (mf^2) (3 (H^2)+(P^2)) (H-ω))/(4 (H^2)-(mf^2)-4 H ω))-(((mf^2) ω (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H-ω)))-((ω (-4 (H^2)+(mf^2)+4 H ω) (2 H (P^2)+3 (H^2) ω-(P^2) ω))/(2 (H-ω)))-(2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[4]+(2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-(2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int6Gom2=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) ((1/((H+ω) (4 (H^2)-(mf^2)+4 H ω)))(2 (H^2)-(mf^2)+2 H ω) (24 (H^6)+48 (H^5) ω+(mf^2) (P^2) (ω^2)-(H^2) (3 (mf^2)+4 (P^2)) (ω^2)+2 H (P^2) ω ((mf^2)-2 (ω^2))+4 (H^4) (2 (P^2)+9 (ω^2))+4 (H^3) (2 (P^2) ω+3 (ω^3)))+(2 H (mf^2) (P^2)-6 (H^4) ω+(mf^2) (P^2) ω-(H^2) (3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(-2 H (mf^2) (P^2)+6 (H^4) ω-(mf^2) (P^2) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int6Gom1tot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((4 H (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)) (H-ω))/ω)-(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(4 H (H-ω)))-((4 (mf^2) (-3 (H^2) (mc^2)+(-4 (H^2)+(mf^2)) (P^2)))/(ω (-4+((mf^2)/((H^2)-H ω)))))-(1/4) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (-4+((mf^2)/((H^2)-H ω)))-H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+5 (P^2))+6 (H^3) ω+2 H (P^2) ω) Log[4]+H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+5 (P^2))+6 (H^3) ω+2 H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-H (-3 (H^2) (mf^2)+(mf^2) (3 (mc^2)+5 (P^2))+6 (H^3) ω+2 H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int6Gom2tot=ConditionalExpression[(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((4 H (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))) (H+ω))/ω)+(((mf^2) ω ((mf^2) (P^2)+(H^2) (-3 (mf^2)+4 (P^2))-6 (H^3) ω+2 H (P^2) ω))/(4 H (H+ω)))+((-((mf^4) (P^2))+(H^2) (mf^2) (3 (mc^2)+4 (P^2)))/(ω-(((mf^2) ω)/(4 H (H+ω)))))+(-((mf^2) (P^2))+(H^2) (3 (mf^2)-4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-H ((mf^2) (3 (H^2)-3 (mc^2)-5 (P^2))+2 H (3 (H^2)+(P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+H ((mf^2) (3 (H^2)-3 (mc^2)-5 (P^2))+2 H (3 (H^2)+(P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int12Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(1/(16 (H (((H-ω))^2))))(mf^2) ω (24 (H^7)-8 (H^5) (3 (mc^2)+5 (P^2))-48 (H^6) ω-(mf^2) (P^2) ((mc^2)+(P^2)) ω-2 H (mf^2) (P^2) (ω^2)+3 (H^4) ω (32 (mc^2)-(mf^2)+8 (4 (P^2)+(ω^2)))-2 (H^3) (12 (mc^4)+24 (P^2) (ω^2)+12 (mc^2) ((P^2)+3 (ω^2))-(mf^2) (4 (P^2)+3 (ω^2)))+(H^2) ω (24 (mc^4)-3 (mc^2) ((mf^2)-8 (P^2))-2 (P^2) (3 (mf^2)+4 (ω^2))))-(1/(16 H (((H-ω))^2)))ω (-4 (H^2)+(mf^2)+4 H ω) (24 (H^7)-60 (H^6) ω+(mf^2) (P^2) ((mc^2)+(P^2)) ω+(H^4) (84 (mc^2)+3 (mf^2)+104 (P^2)) ω+(H^2) (24 (mc^4)-2 (P^2) (5 (mf^2)+2 (P^2))+(mc^2) (3 (mf^2)+20 (P^2))) ω+2 H (P^2) (2 (mc^2)+(mf^2)+2 (P^2)) (ω^2)-4 (H^5) (6 (mc^2)+10 (P^2)-9 (ω^2))-2 (H^3) (12 (mc^4)+32 (P^2) (ω^2)+(mf^2) (-4 (P^2)+3 (ω^2))+6 (mc^2) (2 (P^2)+5 (ω^2))))-H (2 (H^2)-(mf^2)-2 H ω) (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[4]+H (2 (H^2)-(mf^2)-2 H ω) (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-(-((mf^2) (P^2) ((mc^2)+(P^2)) ω)+(H^2) (P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω+2 (H^4) (3 (mc^2)+5 (P^2)) ω-(H^3) (3 (mc^2)+5 (P^2)) ((mf^2)+2 (ω^2))-H (P^2) (-(mf^4)+(mf^2) (P^2)+2 (P^2) (ω^2)+(mc^2) ((mf^2)+2 (ω^2)))) Log[(((mf^2) ω)/((H^2)-H ω))]+(-((mf^2) (P^2) ((mc^2)+(P^2)) ω)+(H^2) (P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω+2 (H^4) (3 (mc^2)+5 (P^2)) ω-(H^3) (3 (mc^2)+5 (P^2)) ((mf^2)+2 (ω^2))-H (P^2) (-(mf^4)+(mf^2) (P^2)+2 (P^2) (ω^2)+(mc^2) ((mf^2)+2 (ω^2)))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-H (2 (H^2)-(mf^2)-2 H ω) (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int12Gom2=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H+ω)))(mf^2) ω (3 (H^5)-(H^3) (9 (mc^2)+8 (P^2))-H (6 (mc^4)+(7 (mc^2)-2 (mf^2)) (P^2)+(P^4))+3 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω-(H^2) (15 (mc^2)+14 (P^2)) ω+(3 (H^4)+(H^2) (3 (mc^2)-2 (P^2))+(P^2) ((mc^2)+(P^2))+6 (H^3) ω-2 H (P^2) ω) (H+ω-(((mf^2) ω)/(4 H (H+ω)))))-(1/4) H ω (-4+((mf^2)/(H (H+ω)))) (3 (H^5)-(H^3) (9 (mc^2)+8 (P^2))-H (6 (mc^4)+(7 (mc^2)-2 (mf^2)) (P^2)+(P^4))+3 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω-(H^2) (15 (mc^2)+14 (P^2)) ω+(3 (H^4)+(H^2) (3 (mc^2)-2 (P^2))+(P^2) ((mc^2)+(P^2))+6 (H^3) ω-2 H (P^2) ω) (H+(((mf^2) ω)/(4 H (H+ω)))))+H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) (-(mf^2)+2 H (H+ω)) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(-((mf^2) (P^2) ((mc^2)+(P^2)) ω)+(H^2) (P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω+2 (H^4) (3 (mc^2)+5 (P^2)) ω+(H^3) (3 (mc^2)+5 (P^2)) ((mf^2)+2 (ω^2))+H (P^2) ((mf^2) ((mc^2)-(mf^2)+(P^2))+2 ((mc^2)+(P^2)) (ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]-H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) (-(mf^2)+2 H (H+ω)) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+(-((mf^2) (P^2) ((mc^2)+(P^2)) ω)+(H^2) (P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω+2 (H^4) (3 (mc^2)+5 (P^2)) ω+(H^3) (3 (mc^2)+5 (P^2)) ((mf^2)+2 (ω^2))+H (P^2) ((mf^2) ((mc^2)-(mf^2)+(P^2))+2 ((mc^2)+(P^2)) (ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int12Gom1tot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) ((ω-(((mf^2) ω)/(4 (H^2)-4 H ω))) (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(-3 (H^4)+(P^2) ((mc^2)+(P^2))-(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H-(((mf^2) ω)/(4 (H^2)-4 H ω))))-(1/(4 (H^2)-4 H ω))(mf^2) ω (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(-3 (H^4)+(P^2) ((mc^2)+(P^2))-(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H+ω (-1+((mf^2)/(4 (H^2)-4 H ω)))))+(-2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[4]-(-2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int12Gom2tot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H (H+ω))))(mf^2) ω (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(3 (H^4)-(P^2) ((mc^2)+(P^2))+(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H+ω-(((mf^2) ω)/(4 H (H+ω)))))-(1/4) ω (-4+((mf^2)/(H (H+ω)))) (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(3 (H^4)-(P^2) ((mc^2)+(P^2))+(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H+(((mf^2) ω)/(4 H (H+ω)))))-(2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int13Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (((ω (4 (H^2)-(mf^2)-4 H ω) (3 (H^3)+H (3 (mc^2)+(P^2))-6 (H^2) ω+2 (P^2) ω))/(H-ω))-(-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-(mf^2) (P^2) ω+(H^2) (-12 (mc^2)+3 (mf^2)-16 (P^2)) ω) Log[4]+(6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))-18 (H^4) ω-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-(mf^2) (P^2) ω+(H^2) (-12 (mc^2)+3 (mf^2)-16 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(1/(H-ω))(3 (H^3) (mf^2) ω+3 H (mc^2) (mf^2) ω+H (mf^2) (P^2) ω-6 (H^2) (mf^2) (ω^2)+2 (mf^2) (P^2) (ω^2)+6 (H^6) Log[4]-6 (H^2) (mc^4) Log[4]-12 (H^2) (mc^2) (P^2) Log[4]-6 (H^2) (P^4) Log[4]-24 (H^5) ω Log[4]+18 (H^3) (mc^2) ω Log[4]+6 H (mc^4) ω Log[4]+18 (H^3) (P^2) ω Log[4]+12 H (mc^2) (P^2) ω Log[4]+6 H (P^4) ω Log[4]+18 (H^4) (ω^2) Log[4]-18 (H^2) (mc^2) (ω^2) Log[4]-18 (H^2) (P^2) (ω^2) Log[4]+(H-ω) (-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-(mf^2) (P^2) ω+(H^2) (-12 (mc^2)+3 (mf^2)-16 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))])-(6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))-18 (H^4) ω-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int13Gom2=ConditionalExpression[-(1/(3 (H^2) (mh^4) (H+ω)))4 (e^2) π (λ^4) (12 (H^5) ω+12 (H^3) (mc^2) ω-6 (H^3) (mf^2) ω-6 H (mc^2) (mf^2) ω+4 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω+36 (H^4) (ω^2)+12 (H^2) (mc^2) (ω^2)-12 (H^2) (mf^2) (ω^2)-4 (H^2) (P^2) (ω^2)+4 (mf^2) (P^2) (ω^2)+24 (H^3) (ω^3)-8 H (P^2) (ω^3)-(H+ω) (6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))+18 (H^4) ω+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(H+ω) (-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))+(mf^2) (P^2) ω+(H^2) (12 (mc^2)-3 (mf^2)+16 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(H+ω) (6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))+18 (H^4) ω+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+(H+ω) (-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))+(mf^2) (P^2) ω+(H^2) (12 (mc^2)-3 (mf^2)+16 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int13Gom1tot=ConditionalExpression[-(1/(3 (H^2) (mh^4) ω))2 (e^2) π (λ^4) ((((mf^2) (ω^2) ((mf^2) (P^2)-(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(H (H-ω)))+(((ω^2) (-4 (H^2)+(mf^2)+4 H ω) ((mf^2) (P^2)-(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(H (H-ω)))+2 (6 (H^5) ω+H (6 (mc^4)+3 (mc^2) ((mf^2)+4 (P^2))+(P^2) ((mf^2)+6 (P^2))) ω+(H^3) (-3 (mf^2) ω+4 (P^2) ω)-2 (H^4) (6 (mc^2)+8 (P^2)-3 (ω^2))+(mf^2) (P^2) (-2 (mf^2)+(ω^2))+3 (H^2) (-2 (P^2) (ω^2)+2 (mc^2) ((mf^2)-(ω^2))+(mf^2) (4 (P^2)-(ω^2)))) Log[4]-2 (6 (H^5) ω+H (6 (mc^4)+3 (mc^2) ((mf^2)+4 (P^2))+(P^2) ((mf^2)+6 (P^2))) ω+(H^3) (-3 (mf^2) ω+4 (P^2) ω)-2 (H^4) (6 (mc^2)+8 (P^2)-3 (ω^2))+(mf^2) (P^2) (-2 (mf^2)+(ω^2))+3 (H^2) (-2 (P^2) (ω^2)+2 (mc^2) ((mf^2)-(ω^2))+(mf^2) (4 (P^2)-(ω^2)))) Log[(((mf^2) ω)/(H (-H+ω)))]+2 (4 (H^4) (3 (mc^2)+4 (P^2))+H (mf^2) (3 (mc^2)+5 (P^2)) ω-(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))-3 (H^2) (mf^2) (2 (mc^2)+4 (P^2)-(ω^2))) Log[(((mf^2) ω)/((H^2)-H ω))]-2 (4 (H^4) (3 (mc^2)+4 (P^2))+H (mf^2) (3 (mc^2)+5 (P^2)) ω-(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))-3 (H^2) (mf^2) (2 (mc^2)+4 (P^2)-(ω^2))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]+2 (6 (H^5) ω+H (6 (mc^4)+3 (mc^2) ((mf^2)+4 (P^2))+(P^2) ((mf^2)+6 (P^2))) ω+(H^3) (-3 (mf^2) ω+4 (P^2) ω)-2 (H^4) (6 (mc^2)+8 (P^2)-3 (ω^2))+(mf^2) (P^2) (-2 (mf^2)+(ω^2))+3 (H^2) (-2 (P^2) (ω^2)+2 (mc^2) ((mf^2)-(ω^2))+(mf^2) (4 (P^2)-(ω^2)))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int13Gom2tot=ConditionalExpression[(1/(3 (H^2) (mh^4) ω))2 (e^2) π (λ^4) ((((mf^2) (ω^2) (-((mf^2) (P^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(H (H+ω)))+(ω^2) (-((mf^2) (P^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (-4+((mf^2)/(H (H+ω))))-2 (2 (2 (H^2)-(mf^2)) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2)))+H (6 ((H^4)+(mc^4))-3 (H-mc) (H+mc) (mf^2)+(4 (H^2)+12 (mc^2)+(mf^2)) (P^2)+6 (P^4)) ω+(-6 (H^4)-(mf^2) (P^2)+3 (H^2) (2 (mc^2)+(mf^2)+2 (P^2))) (ω^2)) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-2 (4 (H^4) (3 (mc^2)+4 (P^2))-H (mf^2) (3 (mc^2)+5 (P^2)) ω+(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))+3 (H^2) (mf^2) (-2 (mc^2)-4 (P^2)+(ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]+2 (2 (2 (H^2)-(mf^2)) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2)))+H (6 ((H^4)+(mc^4))-3 (H-mc) (H+mc) (mf^2)+(4 (H^2)+12 (mc^2)+(mf^2)) (P^2)+6 (P^4)) ω+(-6 (H^4)-(mf^2) (P^2)+3 (H^2) (2 (mc^2)+(mf^2)+2 (P^2))) (ω^2)) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+2 (4 (H^4) (3 (mc^2)+4 (P^2))-H (mf^2) (3 (mc^2)+5 (P^2)) ω+(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))+3 (H^2) (mf^2) (-2 (mc^2)-4 (P^2)+(ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int14Gom1=ConditionalExpression[-(1/(H (mh^4)))8 (e^2) (mc^2) π (λ^4) (4 (H^2)-2 H ω-(((mf^2) ω)/(H-ω))-((4 (H^2) (mf^2))/(4 (H^2)-(mf^2)-4 H ω))+((4 H (mf^2) ω)/(4 (H^2)-(mf^2)-4 H ω))+((mf^2)+2 H ω) Log[(((mf^2) ω)/((H^2)-H ω))]-((mf^2)+2 H ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int14Gom2=ConditionalExpression[(1/(H (mh^4)))8 (e^2) (mc^2) π (λ^4) (4 (H^2)+2 H ω+(((mf^2) ω)/(H+ω))-((4 (H^2) (mf^2))/(4 (H^2)-(mf^2)+4 H ω))-((4 H (mf^2) ω)/(4 (H^2)-(mf^2)+4 H ω))+((mf^2)-2 H ω) Log[(((mf^2) ω)/(H (H+ω)))]-((mf^2)-2 H ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int14Gom1tot=ConditionalExpression[-(1/((H^2) (mh^4)))4 (e^2) (mc^2) π (λ^4) (-((4 H (-2 (H^2)+(mf^2)) (H-ω))/ω)-((H (mf^2) ω)/(H-ω))+H (4 H ω-(((mf^2) ω)/(H-ω)))+((-2 (H^2) (mf^2)+(mf^4))/(ω-(((mf^2) ω)/(4 (H^2)-4 H ω))))+2 H ((mf^2)+2 H ω) Log[(((mf^2) ω)/((H^2)-H ω))]-2 H ((mf^2)+2 H ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int14Gom2tot=ConditionalExpression[-(1/((H^2) (mh^4)))4 (e^2) (mc^2) π (λ^4) (8 (H^3)-4 H (mf^2)+((8 (H^4))/ω)-((4 (H^2) (mf^2))/ω)+4 (H^2) ω-((2 H (mf^2) ω)/(H+ω))-((2 (H^2) (mf^2))/(ω-(((mf^2) ω)/(4 H (H+ω)))))+((mf^4)/(ω-(((mf^2) ω)/(4 H (H+ω)))))+2 H (-(mf^2)+2 H ω) Log[(((mf^2) ω)/(H (H+ω)))]+2 H ((mf^2)-2 H ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int15Gom1=ConditionalExpression[-(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-4 H (-H+ω) (-2 (H^2)+(mf^2)+2 H ω)+((4 H (mf^2) (H-ω) (-2 (H^2)+(mf^2)+2 H ω))/(-4 (H^2)+(mf^2)+4 H ω))+(((-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω) (4 (H^3)-(mf^2) ω-4 H (ω^2)))/(2 (H-ω)))-2 H (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω) (H+(((mf^2) ω)/(4 (H^2)-4 H ω)))-H (4 (H^3)-2 H (mf^2)-4 (H^2) ω-(mf^2) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+H (4 (H^3)-2 H (mf^2)-4 (H^2) ω-(mf^2) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int15Gom2=ConditionalExpression[-(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-4 (H^2) (mf^2)-4 H (mf^2) ω+8 (H^3) (H+ω)+8 (H^2) ω (H+ω)-((4 H (mf^2) (H+ω) (-2 (H^2)+(mf^2)-2 H ω))/(-4 (H^2)+(mf^2)-4 H ω))-(((mf^2) ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)-2 H ω))/(2 (H+ω)))-2 H (3 (H^2)-(mc^2)-(mf^2)-(P^2)+2 H ω) (ω-(((mf^2) ω)/(4 H (H+ω))))+H (4 (H^3)-2 H (mf^2)+4 (H^2) ω+(mf^2) ω) Log[(((mf^2) ω)/(H (H+ω)))]-H (4 (H^3)-2 H (mf^2)+4 (H^2) ω+(mf^2) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int15Gom1tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((((mf^2) ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω))/(2 (H-ω)))+((ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω) (-4 (H^2)+(mf^2)+4 H ω))/(2 (H-ω)))-(4 (H^4)-6 (H^2) (mf^2)+2 (mf^4)-4 (H^3) ω+3 H (mf^2) ω) Log[4]+(4 (H^4)-6 (H^2) (mf^2)+2 (mf^4)-4 (H^3) ω+3 H (mf^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-4 (H^4)+6 (H^2) (mf^2)-2 (mf^4)+4 (H^3) ω-3 H (mf^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int15Gom2tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((-4 (H^4)+6 (H^2) (mf^2)-2 (mf^4)-4 (H^3) ω+3 H (mf^2) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(1/(H+ω))(ω (2 (H^2)-(mf^2)+2 H ω) (3 (H^2)-(mc^2)-(mf^2)-(P^2)+2 H ω)+(4 (H^5)+8 (H^4) ω-9 (H^2) (mf^2) ω+2 (mf^4) ω+(H^3) (-6 (mf^2)+4 (ω^2))+H (2 (mf^4)-3 (mf^2) (ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))])),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int16Gom1=ConditionalExpression[(1/(H (mh^4)))4 (e^2) (mc^2) π (λ^4) (-4 (H^2)+3 (mf^2)+4 H ω) (Log[(((mf^2) ω)/(H (-H+ω)))]+Log[(((mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int16Gom2=ConditionalExpression[(1/(H (mh^4)))4 (e^2) (mc^2) π (λ^4) (4 (H^2)-3 (mf^2)+4 H ω) (Log[-(((mf^2) ω)/(4 (H (H+ω))))]+Log[(((mf^2) ω)/(4 H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(4 H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int16Gom1tot=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (4 (H^4)-4 (H^2) (mf^2)+(mf^4)-4 (H^3) ω+H (mf^2) ω) (Log[(((mf^2) ω)/(H (-H+ω)))]+Log[(((mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int16Gom2tot=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (4 (H^4)-4 (H^2) (mf^2)+(mf^4)+4 (H^3) ω-H (mf^2) ω) (Log[-(((mf^2) ω)/(4 (H (H+ω))))]+Log[(((mf^2) ω)/(4 H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(4 H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int23Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^6)))2 (e^2) π (λ^4) (-(((mf^4) (P^2) (-2 (H^2)+(mc^2)+(P^2)) (ω^2))/(H (((H-ω))^2)))-32 (H^2) (H-ω) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))-3 (H^3) ω-3 H (P^2) ω)-(1/(H-ω))4 (mf^2) ω (3 (H^3) (P^2)+H (-3 (mc^4)-8 (mc^2) (P^2)+(mf^2) (P^2)-5 (P^4))-(P^2) ((mc^2)+(mf^2)+(P^2)) ω+(H^2) (3 ((mc^2)+(mf^2))+5 (P^2)) ω)-((32 H (mf^2) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))-3 (H^3) ω-3 H (P^2) ω))/(-4+((mf^2)/((H^2)-H ω))))-4 H ω (3 (H^3) (P^2)+H (-3 (mc^4)-8 (mc^2) (P^2)+(mf^2) (P^2)-5 (P^4))-(P^2) ((mc^2)+(mf^2)+(P^2)) ω+(H^2) (3 ((mc^2)+(mf^2))+5 (P^2)) ω) (-4+((mf^2)/((H^2)-H ω)))-H (P^2) (2 (H^2)-(mc^2)-(P^2)) (ω^2) (((-4+((mf^2)/((H^2)-H ω))))^2)+8 (-2 (H^5) (P^2)+(mf^2) (P^2) ((mc^2)+(P^2)) ω+2 (H^4) (3 ((mc^2)+(mf^2))+5 (P^2)) ω+(H^2) (-((mf^2) (P^2))+2 (P^4)+(mc^2) (-3 (mf^2)+2 (P^2))) ω+H (mf^2) (P^2) (2 ((mc^2)+(P^2))-(ω^2))-(H^3) (6 (mc^4)+16 (mc^2) (P^2)+10 (P^4)-3 (mf^2) (ω^2))) Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]-8 (-2 (H^5) (P^2)+(mf^2) (P^2) ((mc^2)+(P^2)) ω+2 (H^4) (3 ((mc^2)+(mf^2))+5 (P^2)) ω+(H^2) (-((mf^2) (P^2))+2 (P^4)+(mc^2) (-3 (mf^2)+2 (P^2))) ω+H (mf^2) (P^2) (2 ((mc^2)+(P^2))-(ω^2))-(H^3) (6 (mc^4)+16 (mc^2) (P^2)+10 (P^4)-3 (mf^2) (ω^2))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int23Gom2=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) ((((mf^4) (P^2) (-2 (H^2)+(mc^2)+(P^2)) (ω^2))/(8 H (((H+ω))^2)))+4 (H^2) (H+ω) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω)-((4 (H^2) (mf^2) (H+ω) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω))/(4 (H^2)-(mf^2)+4 H ω))-(1/(2 (H+ω)))(mf^2) ω (3 (H^3) (P^2)+H (-3 (mc^4)-8 (mc^2) (P^2)+(mf^2) (P^2)-5 (P^4))+(P^2) ((mc^2)+(mf^2)+(P^2)) ω-(H^2) (3 ((mc^2)+(mf^2))+5 (P^2)) ω)+2 H (3 (H^3) (P^2)+H (-3 (mc^4)-8 (mc^2) (P^2)+(mf^2) (P^2)-5 (P^4))+(P^2) ((mc^2)+(mf^2)+(P^2)) ω-(H^2) (3 ((mc^2)+(mf^2))+5 (P^2)) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))+2 H (P^2) (2 (H^2)-(mc^2)-(P^2)) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^2)+(2 (H^5) (P^2)+(mf^2) (P^2) ((mc^2)+(P^2)) ω+2 (H^4) (3 ((mc^2)+(mf^2))+5 (P^2)) ω+(H^2) (-((mf^2) (P^2))+2 (P^4)+(mc^2) (-3 (mf^2)+2 (P^2))) ω+H (mf^2) (P^2) (-2 ((mc^2)+(P^2))+(ω^2))+(H^3) (6 (mc^4)+16 (mc^2) (P^2)+10 (P^4)-3 (mf^2) (ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]-(2 (H^5) (P^2)+(mf^2) (P^2) ((mc^2)+(P^2)) ω+2 (H^4) (3 ((mc^2)+(mf^2))+5 (P^2)) ω+(H^2) (-((mf^2) (P^2))+2 (P^4)+(mc^2) (-3 (mf^2)+2 (P^2))) ω+H (mf^2) (P^2) (-2 ((mc^2)+(P^2))+(ω^2))+(H^3) (6 (mc^4)+16 (mc^2) (P^2)+10 (P^4)-3 (mf^2) (ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int23Gom1tot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(16 ((H^2) (((H-ω))^2))))ω (-4 (H^2)+(mf^2)+4 H ω) (24 (H^5) ((mf^2)-(P^2))-24 (H^4) ((mc^2)+(mf^2)) ω+(mf^2) (P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω+(H^2) (-24 (mc^4)+3 (mf^4)+28 (mf^2) (P^2)-40 (P^4)+8 (mc^2) (3 (mf^2)-8 (P^2))) ω+8 (H^3) (3 (mc^4)+(P^2) (-4 (mf^2)+5 (P^2)+3 (ω^2))+(mc^2) (-3 (mf^2)+8 (P^2)+3 (ω^2))))-(1/(4 H (H-ω)))(mf^2) ω (6 (H^3) ((mf^2)-(P^2))+2 H (3 (mc^4)-4 (mf^2) (P^2)+5 (P^4)+(mc^2) (-3 (mf^2)+8 (P^2)))-(((P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))+(H^2) ω (-6 (mc^2)-10 (P^2)-((3 (mf^4))/(4 (H^2)-4 H ω))+(mf^2) (3+((P^2)/((H^2)-H ω)))))+(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+(H^3) (-6 (mc^2)+3 (mf^2)-10 (P^2)) ω+H (P^2) (-2 (mc^2)+3 (mf^2)-2 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+(H^3) (-6 (mc^2)+3 (mf^2)-10 (P^2)) ω+H (P^2) (-2 (mc^2)+3 (mf^2)-2 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int23Gom2tot=ConditionalExpression[-(1/(3 H (mh^6)))16 (e^2) π (λ^4) ((1/(4 H (H+ω)))(mf^2) ω ((H^3) (3 (mf^2)-4 (P^2))+(H^3) (3 (mf^2)-2 (P^2))+H (6 (mc^4)-7 (mf^2) (P^2)+8 (P^4)+(mc^2) (-6 (mf^2)+14 (P^2)))+(H^2) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+((H (3 (mf^4)-4 (mf^2) (P^2)) ω)/(4 (H+ω)))+(P^2) (2 (mc^2)-(mf^2)+2 (P^2)) (H-ω+(((mf^2) ω)/(4 H (H+ω)))))-(1/(16 (H^2) (((H+ω))^2)))ω (4 (H^2)-(mf^2)+4 H ω) (24 (H^5) ((mf^2)-(P^2))+24 (H^4) ((mc^2)+(mf^2)) ω+(mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2)) ω+(H^2) (24 (mc^4)-3 (mf^4)-28 (mf^2) (P^2)+40 (P^4)-8 (mc^2) (3 (mf^2)-8 (P^2))) ω+8 (H^3) (3 (mc^4)+(P^2) (-4 (mf^2)+5 (P^2)+3 (ω^2))+(mc^2) (-3 (mf^2)+8 (P^2)+3 (ω^2))))+(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+H (P^2) (2 (mc^2)-3 (mf^2)+2 (P^2)) ω+(H^3) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+H (P^2) (2 (mc^2)-3 (mf^2)+2 (P^2)) ω+(H^3) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int24Gom1=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((((mf^2) ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω))/(2 (H-ω)))+((ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω) (-4 (H^2)+(mf^2)+4 H ω))/(2 (H-ω)))-((((mf^2)+2 H (-H+ω)))^2) Log[4]+((((mf^2)+2 H (-H+ω)))^2) Log[(((mf^2) ω)/(H (-H+ω)))]+((mf^4)+4 (H^3) ω-H (mf^2) ω-2 (H^2) ((mf^2)+2 (ω^2))) Log[(((mf^2) ω)/((H^2)-H ω))]+(-(mf^4)-4 (H^3) ω+H (mf^2) ω+2 (H^2) ((mf^2)+2 (ω^2))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-((((mf^2)+2 H (-H+ω)))^2) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int24Gom2=ConditionalExpression[-(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-(((mf^2) ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)-2 H ω))/(2 (H+ω)))-2 H (3 (H^2)-(mc^2)-(mf^2)-(P^2)+2 H ω) (ω-(((mf^2) ω)/(4 H (H+ω))))+((((mf^2)-2 H (H+ω)))^2) Log[-(((mf^2) ω)/(4 (H (H+ω))))]+((mf^4)-4 (H^3) ω+H (mf^2) ω-2 (H^2) ((mf^2)+2 (ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]-((((mf^2)-2 H (H+ω)))^2) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-((mf^4)-4 (H^3) ω+H (mf^2) ω-2 (H^2) ((mf^2)+2 (ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int24Gom1tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((((mf^2) ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω))/(2 (H-ω)))+((ω (-3 (H^2)+(mc^2)+(mf^2)+(P^2)+2 H ω) (-4 (H^2)+(mf^2)+4 H ω))/(2 (H-ω)))-(4 (H^4)-6 (H^2) (mf^2)+2 (mf^4)-4 (H^3) ω+3 H (mf^2) ω) Log[4]+(4 (H^4)-6 (H^2) (mf^2)+2 (mf^4)-4 (H^3) ω+3 H (mf^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-4 (H^4)+6 (H^2) (mf^2)-2 (mf^4)+4 (H^3) ω-3 H (mf^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int24Gom2tot=ConditionalExpression[(1/(H (mh^6)))8 π (e^2) (λ^4) (mc^2) ((-(4 (H^4))-4 (H^3) ω+6 (H^2) (mf^2)+3 H (mf^2) ω-2 (mf^4)) Log[(((mf^2) ω)/(H (H+ω)))]+(1/(H+ω))(ω (2 (H^2)+2 H ω-(mf^2)) (3 (H^2)+2 H ω-(mc^2)-(mf^2)-(P^2))+(4 (H^5)+8 (H^4) ω+(H^3) (4 (ω^2)-6 (mf^2))-9 (H^2) (mf^2) ω+H (2 (mf^4)-3 (mf^2) (ω^2))+2 (mf^4) ω) Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))])),(((4 (H^3)+(4 (H^2)) ω+(mf^2) ω)/((4 (H^2)) ω-(2 (mf^2)) ω+(4 H) (ω^2)))∉(Reals)||Re[((4 (H^3)+(4 (H^2)) ω+(mf^2) ω)/((4 (H^2)) ω-(2 (mf^2)) ω+(4 H) (ω^2)))]>0||Re[((4 (H^3)+(4 (H^2)) ω+(mf^2) ω)/((4 (H^2)) ω-(2 (mf^2)) ω+(4 H) (ω^2)))]<-1)&&(((4 (H^3)+(8 (H^2)) ω-(mf^2) ω+(4 H) (ω^2))/((4 (H^2)) ω-(2 (mf^2)) ω+(4 H) (ω^2)))∉(Reals)||Re[((4 (H^3)+(8 (H^2)) ω-(mf^2) ω+(4 H) (ω^2))/((4 (H^2)) ω-(2 (mf^2)) ω+(4 H) (ω^2)))]>1||Re[((4 (H^3)+(8 (H^2)) ω-(mf^2) ω+(4 H) (ω^2))/((4 (H^2)) ω-(2 (mf^2)) ω+(4 H) (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+(4 H) ω)/(4 (H^2)-2 (mf^2)+(4 H) ω))]≥1||Re[((4 (H^2)-(mf^2)+(4 H) ω)/(4 (H^2)-2 (mf^2)+(4 H) ω))]≤0)&&((-4 (H^2)+(mf^2)-(4 H) ω)/(4 (H^2)-2 (mf^2)+(4 H) ω))∉(Reals))||((4 (H^2)-(mf^2)+(4 H) ω)/(4 (H^2)-2 (mf^2)+(4 H) ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+(4 H) ω)/(4 (H^2)-2 (mf^2)+(4 H) ω))]>1||Re[((4 (H^2)-(mf^2)+(4 H) ω)/(4 (H^2)-2 (mf^2)+(4 H) ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int25Gom1=ConditionalExpression[(1/(3 (H^2) (mh^8)))16 (e^2) (mc^2) π (λ^4) (-(mf^2)+2 H (H-ω)) ω (((3 H (mf^2) (3 (H^2)-2 (mc^2)-(P^2)-H ω))/(H-ω))+((3 H (3 (H^2)-2 (mc^2)-(P^2)-H ω) (-4 (H^2)+(mf^2)+4 H ω))/(H-ω))-(3 (H^2)-(P^2)) ((mf^2)+2 H (-H+ω)) Log[4]+(3 (H^2)-(P^2)) ((mf^2)+2 H (-H+ω)) Log[(((mf^2) ω)/((H^2)-H ω))]+(3 (H^2)-(P^2)) ((mf^2)+2 H (-H+ω)) (Log[(((mf^2) ω)/(H (-H+ω)))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))])-(3 (H^2)-(P^2)) ((mf^2)+2 H (-H+ω)) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int25Gom2=ConditionalExpression[(1/(3 (H^2) (mh^8)))16 (e^2) (mc^2) π (λ^4) ω (-(mf^2)+2 H (H+ω)) (-((3 H (mf^2) (2 (mc^2)+(P^2)-H (3 H+ω)))/(H+ω))-((3 H ((mf^2)-4 H (H+ω)) (2 (mc^2)+(P^2)-H (3 H+ω)))/(H+ω))+(3 (H^2)-(P^2)) ((mf^2)-2 H (H+ω)) Log[-(((mf^2) ω)/(4 (H (H+ω))))]+(3 (H^2)-(P^2)) ((mf^2)-2 H (H+ω)) Log[(((mf^2) ω)/(H (H+ω)))]-(3 (H^2)-(P^2)) ((mf^2)-2 H (H+ω)) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-(3 (H^2)-(P^2)) ((mf^2)-2 H (H+ω)) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int25Gom1tot=-((32 (e^2) (mc^2) π (λ^4) ω ((H^2)-2 (mc^2)+(mf^2)-(P^2)+H ω) (((-2 (H^2)+(mf^2)+2 H ω))^2))/(H (mh^8) (H-ω)))

Int25Gom2tot=((32 (e^2) (mc^2) π (λ^4) ω (((-2 (H^2)+(mf^2)-2 H ω))^2) (-(H^2)+2 (mc^2)-(mf^2)+(P^2)+H ω))/(H (mh^8) (H+ω)))

Int26Gom1=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-(((mf^2) ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω))/(2 (H-ω)))+((4 H (mf^2) (-H+ω) (-2 (H^2)+(mf^2)+2 H ω))/(-4 (H^2)+(mf^2)+4 H ω))-4 H (H-ω) ((mf^2)+2 H (-H+ω))-(1/2) H ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω) (-4+((mf^2)/((H^2)-H ω)))+(-2 (2 (H^2)-(mf^2)) ((mc^2)+(P^2))+H (2 (H^2)+2 (mc^2)+(mf^2)+2 (P^2)) ω) Log[4]-(-2 (2 (H^2)-(mf^2)) ((mc^2)+(P^2))+H (2 (H^2)+2 (mc^2)+(mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-2 (2 (H^2)-(mf^2)) ((mc^2)+(P^2))+H (2 (H^2)+2 (mc^2)+(mf^2)+2 (P^2)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int26Gom2=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (((4 H (mf^2) (H+ω) (-2 (H^2)+(mf^2)-2 H ω))/(-4 (H^2)+(mf^2)-4 H ω))-(((mf^2) ω ((H^2)+(mc^2)-(mf^2)+(P^2)+2 H ω))/(2 (H+ω)))+2 H ((H^2)+(mc^2)-(mf^2)+(P^2)+2 H ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-4 H (H+ω) (-(mf^2)+2 H (H+ω))-(2 (2 (H^2)-(mf^2)) ((mc^2)+(P^2))+H (2 (H^2)+2 (mc^2)+(mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(2 (2 (H^2)-(mf^2)) ((mc^2)+(P^2))+H (2 (H^2)+2 (mc^2)+(mf^2)+2 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int26Gom1tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-(((mf^2) ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω))/(2 (H-ω)))-(1/2) H ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω) (-4+((mf^2)/((H^2)-H ω)))-(-2 (2 (H^2)-(mf^2)) ((mc^2)-(mf^2)+(P^2))+H (2 (H^2)+2 (mc^2)-3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+(-2 (2 (H^2)-(mf^2)) ((mc^2)-(mf^2)+(P^2))+H (2 (H^2)+2 (mc^2)-3 (mf^2)+2 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int26Gom2tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (((ω ((H^2)+(mc^2)-(mf^2)+(P^2)+2 H ω) (-(mf^2)+2 H (H+ω)))/(H+ω))-(2 (2 (H^2)-(mf^2)) ((mc^2)-(mf^2)+(P^2))+H (2 (H^2)+2 (mc^2)-3 (mf^2)+2 (P^2)) ω) (Log[(((mf^2) ω)/(H (H+ω)))]-Log[ω (4-((mf^2)/(H (H+ω))))])),((Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]≥0&&(mf/((mf^2)-2 H (H+ω)))≠0)||((mf^2)/(-(mf^2)+2 H (H+ω)))∉(Reals)||Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int34Gom1=ConditionalExpression[(1/(H (mh^4)))4 (e^2) (mc^2) π (λ^4) (-4 (H^2)+3 (mf^2)+4 H ω) (Log[(((mf^2) ω)/(H (-H+ω)))]+Log[(((mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int34Gom2=ConditionalExpression[(1/(H (mh^4)))4 (e^2) (mc^2) π (λ^4) (4 (H^2)-3 (mf^2)+4 H ω) (Log[-(((mf^2) ω)/(4 (H (H+ω))))]+Log[(((mf^2) ω)/(4 H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(4 H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int34Gom1tot=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (4 (H^4)-4 (H^2) (mf^2)+(mf^4)-4 (H^3) ω+H (mf^2) ω) (Log[(((mf^2) ω)/(H (-H+ω)))]+Log[(((mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int34Gom2tot=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (4 (H^4)-4 (H^2) (mf^2)+(mf^4)+4 (H^3) ω-H (mf^2) ω) (Log[-(((mf^2) ω)/(4 (H (H+ω))))]+Log[(((mf^2) ω)/(4 H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(4 H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int35Gom1=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((((mf^2) ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω))/(2 (-H+ω)))-((ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω) (-4 (H^2)+(mf^2)+4 H ω))/(2 (H-ω)))-(-4 (H^4)+(mf^2) (-2 (mc^2)+(mf^2)-2 (P^2))+6 (H^3) ω-H (2 (mc^2)+(mf^2)+2 (P^2)) ω+4 (H^2) ((mc^2)+(P^2)-(ω^2))) Log[4]+(-4 (H^4)+(mf^2) (-2 (mc^2)+(mf^2)-2 (P^2))+6 (H^3) ω-H (2 (mc^2)+(mf^2)+2 (P^2)) ω+4 (H^2) ((mc^2)+(P^2)-(ω^2))) Log[(((mf^2) ω)/(H (-H+ω)))]+((((mf^2)+2 H (-H+ω)))^2) Log[(((mf^2) ω)/((H^2)-H ω))]-((((mf^2)+2 H (-H+ω)))^2) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-(-4 (H^4)+(mf^2) (-2 (mc^2)+(mf^2)-2 (P^2))+6 (H^3) ω-H (2 (mc^2)+(mf^2)+2 (P^2)) ω+4 (H^2) ((mc^2)+(P^2)-(ω^2))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int35Gom2=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-(((mf^2) ω ((H^2)+(mc^2)-(mf^2)+(P^2)+2 H ω))/(2 (H+ω)))+2 H ((H^2)+(mc^2)-(mf^2)+(P^2)+2 H ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-(-4 (H^4)+(mf^2) (-2 (mc^2)+(mf^2)-2 (P^2))-6 (H^3) ω+H (2 (mc^2)+(mf^2)+2 (P^2)) ω+4 (H^2) ((mc^2)+(P^2)-(ω^2))) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-((((mf^2)-2 H (H+ω)))^2) Log[(((mf^2) ω)/(H (H+ω)))]+(-4 (H^4)+(mf^2) (-2 (mc^2)+(mf^2)-2 (P^2))-6 (H^3) ω+H (2 (mc^2)+(mf^2)+2 (P^2)) ω+4 (H^2) ((mc^2)+(P^2)-(ω^2))) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+((((mf^2)-2 H (H+ω)))^2) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int35Gom1tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (-(((mf^2) ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω))/(2 (H-ω)))-(1/2) H ω ((H^2)+(mc^2)-(mf^2)+(P^2)-2 H ω) (-4+((mf^2)/((H^2)-H ω)))-(-2 (2 (H^2)-(mf^2)) ((mc^2)-(mf^2)+(P^2))+H (2 (H^2)+2 (mc^2)-3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+(-2 (2 (H^2)-(mf^2)) ((mc^2)-(mf^2)+(P^2))+H (2 (H^2)+2 (mc^2)-3 (mf^2)+2 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int35Gom2tot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (((ω ((H^2)+(mc^2)-(mf^2)+(P^2)+2 H ω) (-(mf^2)+2 H (H+ω)))/(H+ω))-(2 (2 (H^2)-(mf^2)) ((mc^2)-(mf^2)+(P^2))+H (2 (H^2)+2 (mc^2)-3 (mf^2)+2 (P^2)) ω) (Log[(((mf^2) ω)/(H (H+ω)))]-Log[ω (4-((mf^2)/(H (H+ω))))])),((Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]≥0&&(mf/((mf^2)-2 H (H+ω)))≠0)||((mf^2)/(-(mf^2)+2 H (H+ω)))∉(Reals)||Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int36Gom1=ConditionalExpression[-(1/(H (mh^4)))8 (e^2) (mc^2) π (λ^4) (((16 (H^5)-40 (H^4) ω+(mf^4) ω-2 H (mf^2) (ω^2)-8 (H^3) ((mf^2)-4 (ω^2))+2 (H^2) (5 (mf^2) ω-4 (ω^3)))/((H-ω) (4 (H^2)-(mf^2)-4 H ω)))+((mf^2)+2 H ω) Log[(((mf^2) ω)/(H (-H+ω)))]-((mf^2)+2 H ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int36Gom2=ConditionalExpression[(1/(H (mh^4)))8 (e^2) (mc^2) π (λ^4) (4 (H^2)+2 H ω-((H (mf^2))/(H+ω))+((mf^4)/((mf^2)-4 H (H+ω)))+((mf^2)-2 H ω) (Log[(((mf^2) ω)/(H (H+ω)))]-Log[ω (4-((mf^2)/(H (H+ω))))])),((Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]≥0&&(mf/((mf^2)-2 H (H+ω)))≠0)||((mf^2)/(-(mf^2)+2 H (H+ω)))∉(Reals)||Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(-2 (mf^2) ω+4 H ω (H+ω)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(-2 (mf^2) ω+4 H ω (H+ω)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int36Gom1tot=ConditionalExpression[-(1/(H (mh^4) ω))4 (e^2) (mc^2) π (λ^4) ((1/(H-ω))(8 (H^4)-16 (H^3) ω-4 (H^2) ((mf^2)+(ω^2) (-2+Log[4]))+H (-2 (mf^2) ω (-4+Log[4])+4 (ω^3) Log[4])+(mf^2) (ω^2) (-5+Log[16])+2 ω (2 (H^2) ω-(mf^2) ω+H ((mf^2)-2 (ω^2))) Log[(((mf^2) ω)/(H (-H+ω)))])-(-5 (mf^4) (ω^2)+8 (H^4) ((mf^2)-2 (ω^2))-16 (H^3) ω ((mf^2)-2 (ω^2))-4 (H^2) ((((mf^2)-2 (ω^2)))^2)+8 H (mf^2) ω ((mf^2)-(ω^2))+2 ω (8 (H^4) ω+(mf^4) ω+4 (H^3) ((mf^2)-4 (ω^2))-H ((mf^4)-6 (mf^2) (ω^2))+(H^2) (-10 (mf^2) ω+8 (ω^3))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))])/((-H+ω) (-4 (H^2)+(mf^2)+4 H ω))),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int36Gom2tot=ConditionalExpression[-((8 (e^2) (mc^2) π (λ^4) (16 (H^6)-16 (H^4) (mf^2)+4 (H^2) (mf^4)+48 (H^5) ω-40 (H^3) (mf^2) ω+8 H (mf^4) ω+56 (H^4) (ω^2)-38 (H^2) (mf^2) (ω^2)+5 (mf^4) (ω^2)+32 (H^3) (ω^3)-14 H (mf^2) (ω^3)+8 (H^2) (ω^4)+ω (8 (H^4) ω+(mf^4) ω-4 (H^3) ((mf^2)-4 (ω^2))+H ((mf^4)-6 (mf^2) (ω^2))+(H^2) (-10 (mf^2) ω+8 (ω^3))) Log[(((mf^2) ω)/(H (H+ω)))]-ω (8 (H^4) ω+(mf^4) ω-4 (H^3) ((mf^2)-4 (ω^2))+H ((mf^4)-6 (mf^2) (ω^2))+(H^2) (-10 (mf^2) ω+8 (ω^3))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]))/(H (mh^4) ω (H+ω) (4 (H^2)-(mf^2)+4 H ω))),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int45Gom1=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(((mf^4) (3 (H^4)-3 (H^2) (mc^2)-(P^2) ((mc^2)+(P^2))) (ω^2))/(16 (H (((H-ω))^2))))+(((3 (H^4)-3 (H^2) (mc^2)-(P^2) ((mc^2)+(P^2))) (ω^2) (((-4 (H^2)+(mf^2)+4 H ω))^2))/(16 H (((H-ω))^2)))+(1/(2 (H-ω)))(mf^2) ω (-3 (H^5)+(H^3) (3 (mc^2)+(P^2))+H (-3 (mc^4)-3 (mc^2) (P^2)+(mf^2) (P^2))+3 (H^4) ω-(P^2) ((mc^2)+(mf^2)+(P^2)) ω+(H^2) (3 (mf^2)+2 (P^2)) ω)+(1/(2 (H-ω)))ω (-4 (H^2)+(mf^2)+4 H ω) (-3 (H^5)+(H^3) (3 (mc^2)+(P^2))+H (-3 (mc^4)-3 (mc^2) (P^2)+(mf^2) (P^2))+3 (H^4) ω-(P^2) ((mc^2)+(mf^2)+(P^2)) ω+(H^2) (3 (mf^2)+2 (P^2)) ω)-4 H (H-ω) (-(H (P^2) ((mc^2)-(mf^2)+(P^2)))-(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω)-(1/(-4 (H^2)+(mf^2)+4 H ω))4 H (mf^2) (H-ω) (-(H (P^2) ((mc^2)-(mf^2)+(P^2)))-(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω)+(-2 (H^5) (3 (mc^2)+5 (P^2))+(mf^2) (P^2) ((mc^2)+(P^2)) ω+(H^4) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+2 (H^2) (4 (mf^2) (P^2)+(P^4)+(mc^2) (3 (mf^2)+(P^2))) ω-H (mf^2) (P^2) (ω^2)+(H^3) (-2 (mc^2) (P^2)-2 (P^4)+(mf^2) (2 (P^2)+3 (ω^2)))) Log[4]-(-2 (H^5) (3 (mc^2)+5 (P^2))+(mf^2) (P^2) ((mc^2)+(P^2)) ω+(H^4) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+2 (H^2) (4 (mf^2) (P^2)+(P^4)+(mc^2) (3 (mf^2)+(P^2))) ω-H (mf^2) (P^2) (ω^2)+(H^3) (-2 (mc^2) (P^2)-2 (P^4)+(mf^2) (2 (P^2)+3 (ω^2)))) Log[(((mf^2) ω)/(H (-H+ω)))]+(-2 (H^5) (3 (mc^2)+5 (P^2))+(mf^2) (P^2) ((mc^2)+(P^2)) ω+(H^4) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+2 (H^2) (4 (mf^2) (P^2)+(P^4)+(mc^2) (3 (mf^2)+(P^2))) ω-H (mf^2) (P^2) (ω^2)+(H^3) (-2 (mc^2) (P^2)-2 (P^4)+(mf^2) (2 (P^2)+3 (ω^2)))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int45Gom2=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-4 H (H+ω) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω)-(1/(-4 (H^2)+(mf^2)-4 H ω))4 H (mf^2) (H+ω) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω)+2 H (-((H^3) (P^2))+H (3 (mc^4)+4 (mc^2) (P^2)-(mf^2) (P^2)+(P^4))+3 (H^4) ω-(P^2) ((mc^2)+(mf^2)+(P^2)) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) (H-(((mf^2) ω)/(4 H (H+ω))))+H (3 (H^4)-3 (H^2) (mc^2)-(P^2) ((mc^2)+(P^2))) (((H-(((mf^2) ω)/(4 H (H+ω)))))^2)-2 H (-((H^3) (P^2))+H (3 (mc^4)+4 (mc^2) (P^2)-(mf^2) (P^2)+(P^4))+3 (H^4) ω-(P^2) ((mc^2)+(mf^2)+(P^2)) ω+(H^2) (3 (mf^2)+2 (P^2)) ω) (H-ω+(((mf^2) ω)/(4 H (H+ω))))-H (3 (H^4)-3 (H^2) (mc^2)-(P^2) ((mc^2)+(P^2))) (((H-ω+(((mf^2) ω)/(4 H (H+ω)))))^2)-(2 (H^5) (3 (mc^2)+5 (P^2))+(mf^2) (P^2) ((mc^2)+(P^2)) ω+(H^4) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+2 (H^2) (4 (mf^2) (P^2)+(P^4)+(mc^2) (3 (mf^2)+(P^2))) ω+H (mf^2) (P^2) (ω^2)+(H^3) (2 (mc^2) (P^2)+2 (P^4)-(mf^2) (2 (P^2)+3 (ω^2)))) Log[-(((mf^2) ω)/(4 (H (H+ω))))]+(2 (H^5) (3 (mc^2)+5 (P^2))+(mf^2) (P^2) ((mc^2)+(P^2)) ω+(H^4) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+2 (H^2) (4 (mf^2) (P^2)+(P^4)+(mc^2) (3 (mf^2)+(P^2))) ω+H (mf^2) (P^2) (ω^2)+(H^3) (2 (mc^2) (P^2)+2 (P^4)-(mf^2) (2 (P^2)+3 (ω^2)))) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int45Gom1tot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) ((ω-(((mf^2) ω)/(4 (H^2)-4 H ω))) (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(-3 (H^4)+(P^2) ((mc^2)+(P^2))-(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H-(((mf^2) ω)/(4 (H^2)-4 H ω))))-(1/(4 (H^2)-4 H ω))(mf^2) ω (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(-3 (H^4)+(P^2) ((mc^2)+(P^2))-(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H+ω (-1+((mf^2)/(4 (H^2)-4 H ω)))))+(-2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[4]-(-2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int45Gom2tot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H (H+ω))))(mf^2) ω (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(3 (H^4)-(P^2) ((mc^2)+(P^2))+(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H+ω-(((mf^2) ω)/(4 H (H+ω)))))-(1/4) ω (-4+((mf^2)/(H (H+ω)))) (H (3 (H^4)+6 (mc^2) ((mc^2)+(mf^2))+(7 (mc^2)+3 (mf^2)) (P^2)+(P^4)-(H^2) (3 ((mc^2)+(mf^2))+2 (P^2)))+(3 (H^4)-(P^2) ((mc^2)+(P^2))+(H^2) (3 (mc^2)+4 (P^2))) ω+(3 (H^4)-3 (H^2) ((mc^2)+(mf^2))-(P^2) ((mc^2)-(mf^2)+(P^2))) (H+(((mf^2) ω)/(4 H (H+ω)))))-(2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(2 (H-mf) (H+mf) (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+H (3 (mc^2) (2 (H^2)-(mf^2))+2 (5 (H^2)+(mc^2)-3 (mf^2)) (P^2)+2 (P^4)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int46Gom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (((ω (4 (H^2)-(mf^2)-4 H ω) (3 (H^3)+H (3 (mc^2)+(P^2))-6 (H^2) ω+2 (P^2) ω))/(H-ω))-(-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-(mf^2) (P^2) ω+(H^2) (-12 (mc^2)+3 (mf^2)-16 (P^2)) ω) Log[4]+(6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))-18 (H^4) ω-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-(mf^2) (P^2) ω+(H^2) (-12 (mc^2)+3 (mf^2)-16 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(1/(H-ω))(3 (H^3) (mf^2) ω+3 H (mc^2) (mf^2) ω+H (mf^2) (P^2) ω-6 (H^2) (mf^2) (ω^2)+2 (mf^2) (P^2) (ω^2)+6 (H^6) Log[4]-6 (H^2) (mc^4) Log[4]-12 (H^2) (mc^2) (P^2) Log[4]-6 (H^2) (P^4) Log[4]-24 (H^5) ω Log[4]+18 (H^3) (mc^2) ω Log[4]+6 H (mc^4) ω Log[4]+18 (H^3) (P^2) ω Log[4]+12 H (mc^2) (P^2) ω Log[4]+6 H (P^4) ω Log[4]+18 (H^4) (ω^2) Log[4]-18 (H^2) (mc^2) (ω^2) Log[4]-18 (H^2) (P^2) (ω^2) Log[4]+(H-ω) (-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-(mf^2) (P^2) ω+(H^2) (-12 (mc^2)+3 (mf^2)-16 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))])-(6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))-18 (H^4) ω-(mf^2) (P^2) ω+(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int46Gom2=ConditionalExpression[-(1/(3 (H^2) (mh^4) (H+ω)))4 (e^2) π (λ^4) (12 (H^5) ω+12 (H^3) (mc^2) ω-6 (H^3) (mf^2) ω-6 H (mc^2) (mf^2) ω+4 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω+36 (H^4) (ω^2)+12 (H^2) (mc^2) (ω^2)-12 (H^2) (mf^2) (ω^2)-4 (H^2) (P^2) (ω^2)+4 (mf^2) (P^2) (ω^2)+24 (H^3) (ω^3)-8 H (P^2) (ω^3)-(H+ω) (6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))+18 (H^4) ω+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(H+ω) (-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))+(mf^2) (P^2) ω+(H^2) (12 (mc^2)-3 (mf^2)+16 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(H+ω) (6 (H^5)+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))-H (6 (mc^4)+7 (mf^2) (P^2)+6 (P^4)+3 (mc^2) ((mf^2)+4 (P^2)))+18 (H^4) ω+(mf^2) (P^2) ω-(H^2) (6 (mc^2)+3 (mf^2)+2 (P^2)) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+(H+ω) (-(H (mf^2) (3 (mc^2)+7 (P^2)))+(H^3) (12 (mc^2)-3 (mf^2)+16 (P^2))+(mf^2) (P^2) ω+(H^2) (12 (mc^2)-3 (mf^2)+16 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int46Gom1tot=ConditionalExpression[-(1/(3 (H^2) (mh^4) ω))2 (e^2) π (λ^4) ((((mf^2) (ω^2) ((mf^2) (P^2)-(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(H (H-ω)))+(((ω^2) (-4 (H^2)+(mf^2)+4 H ω) ((mf^2) (P^2)-(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(H (H-ω)))+2 (6 (H^5) ω+H (6 (mc^4)+3 (mc^2) ((mf^2)+4 (P^2))+(P^2) ((mf^2)+6 (P^2))) ω+(H^3) (-3 (mf^2) ω+4 (P^2) ω)-2 (H^4) (6 (mc^2)+8 (P^2)-3 (ω^2))+(mf^2) (P^2) (-2 (mf^2)+(ω^2))+3 (H^2) (-2 (P^2) (ω^2)+2 (mc^2) ((mf^2)-(ω^2))+(mf^2) (4 (P^2)-(ω^2)))) Log[4]-2 (6 (H^5) ω+H (6 (mc^4)+3 (mc^2) ((mf^2)+4 (P^2))+(P^2) ((mf^2)+6 (P^2))) ω+(H^3) (-3 (mf^2) ω+4 (P^2) ω)-2 (H^4) (6 (mc^2)+8 (P^2)-3 (ω^2))+(mf^2) (P^2) (-2 (mf^2)+(ω^2))+3 (H^2) (-2 (P^2) (ω^2)+2 (mc^2) ((mf^2)-(ω^2))+(mf^2) (4 (P^2)-(ω^2)))) Log[(((mf^2) ω)/(H (-H+ω)))]+2 (4 (H^4) (3 (mc^2)+4 (P^2))+H (mf^2) (3 (mc^2)+5 (P^2)) ω-(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))-3 (H^2) (mf^2) (2 (mc^2)+4 (P^2)-(ω^2))) Log[(((mf^2) ω)/((H^2)-H ω))]-2 (4 (H^4) (3 (mc^2)+4 (P^2))+H (mf^2) (3 (mc^2)+5 (P^2)) ω-(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))-3 (H^2) (mf^2) (2 (mc^2)+4 (P^2)-(ω^2))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]+2 (6 (H^5) ω+H (6 (mc^4)+3 (mc^2) ((mf^2)+4 (P^2))+(P^2) ((mf^2)+6 (P^2))) ω+(H^3) (-3 (mf^2) ω+4 (P^2) ω)-2 (H^4) (6 (mc^2)+8 (P^2)-3 (ω^2))+(mf^2) (P^2) (-2 (mf^2)+(ω^2))+3 (H^2) (-2 (P^2) (ω^2)+2 (mc^2) ((mf^2)-(ω^2))+(mf^2) (4 (P^2)-(ω^2)))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int46Gom2tot=ConditionalExpression[(1/(3 (H^2) (mh^4) ω))2 (e^2) π (λ^4) ((((mf^2) (ω^2) (-((mf^2) (P^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω))/(H (H+ω)))+(ω^2) (-((mf^2) (P^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (P^2))+6 (H^3) ω-2 H (P^2) ω) (-4+((mf^2)/(H (H+ω))))-2 (2 (2 (H^2)-(mf^2)) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2)))+H (6 ((H^4)+(mc^4))-3 (H-mc) (H+mc) (mf^2)+(4 (H^2)+12 (mc^2)+(mf^2)) (P^2)+6 (P^4)) ω+(-6 (H^4)-(mf^2) (P^2)+3 (H^2) (2 (mc^2)+(mf^2)+2 (P^2))) (ω^2)) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-2 (4 (H^4) (3 (mc^2)+4 (P^2))-H (mf^2) (3 (mc^2)+5 (P^2)) ω+(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))+3 (H^2) (mf^2) (-2 (mc^2)-4 (P^2)+(ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]+2 (2 (2 (H^2)-(mf^2)) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2)))+H (6 ((H^4)+(mc^4))-3 (H-mc) (H+mc) (mf^2)+(4 (H^2)+12 (mc^2)+(mf^2)) (P^2)+6 (P^4)) ω+(-6 (H^4)-(mf^2) (P^2)+3 (H^2) (2 (mc^2)+(mf^2)+2 (P^2))) (ω^2)) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+2 (4 (H^4) (3 (mc^2)+4 (P^2))-H (mf^2) (3 (mc^2)+5 (P^2)) ω+(H^3) (12 (mc^2)+3 (mf^2)+16 (P^2)) ω+(mf^2) (P^2) (2 (mf^2)-(ω^2))+3 (H^2) (mf^2) (-2 (mc^2)-4 (P^2)+(ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int56Gom1=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(1/(8 (H (((H-ω))^2))))ω (-4 (H^2)+(mf^2)+4 H ω) (24 (H^7)-48 (H^6) ω+(mf^2) (P^2) ((mc^2)+(P^2)) ω+3 (H^4) (12 (mc^2)+(mf^2)+16 (P^2)) ω+(H^2) (-12 (mc^4)-32 (mc^2) (P^2)+(mf^2) (P^2)-20 (P^4)) ω+H (mf^2) (P^2) (ω^2)-12 (H^5) (2 (mc^2)+3 (P^2)-2 (ω^2))+(H^3) (12 (mc^4)-4 (mf^2) (P^2)+20 (P^4)-3 (mf^2) (ω^2)-12 (P^2) (ω^2)+4 (mc^2) (8 (P^2)-3 (ω^2))))-(1/(8 H (((H-ω))^2)))(mf^2) ω (24 (H^7)-12 (H^5) (2 (mc^2)+3 (P^2))-36 (H^6) ω-(mf^2) (P^2) ((mc^2)+(P^2)) ω-H (P^2) (4 (mc^2)+(mf^2)+4 (P^2)) (ω^2)+3 (H^4) ω (12 (mc^2)-(mf^2)+4 (3 (P^2)+(ω^2)))+(H^3) (12 (mc^4)+4 (mc^2) (8 (P^2)-3 (ω^2))+4 (P^2) (5 (P^2)+(ω^2))+(mf^2) (-4 (P^2)+3 (ω^2)))-(H^2) ω (12 (mc^4)+28 (mc^2) (P^2)+(P^2) (-7 (mf^2)+4 (4 (P^2)+(ω^2)))))-H ((mf^2) (P^2) (-3 (mc^2)+(mf^2)-3 (P^2))+6 (H^5) ω+6 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω-2 (H^4) (3 (mc^2)+4 (P^2)+3 (ω^2))+(H^2) (6 (mc^4)+(mc^2) (-3 (mf^2)+14 (P^2))+(P^2) (-3 (mf^2)+8 (P^2)-6 (ω^2)))) Log[4]+H ((mf^2) (P^2) (-3 (mc^2)+(mf^2)-3 (P^2))+6 (H^5) ω+6 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω-2 (H^4) (3 (mc^2)+4 (P^2)+3 (ω^2))+(H^2) (6 (mc^4)+(mc^2) (-3 (mf^2)+14 (P^2))+(P^2) (-3 (mf^2)+8 (P^2)-6 (ω^2)))) Log[(((mf^2) ω)/(H (-H+ω)))]+(2 (H^2)-(mf^2)-2 H ω) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(2 (H^2)-(mf^2)-2 H ω) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-H ((mf^2) (P^2) (-3 (mc^2)+(mf^2)-3 (P^2))+6 (H^5) ω+6 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω-2 (H^4) (3 (mc^2)+4 (P^2)+3 (ω^2))+(H^2) (6 (mc^4)+(mc^2) (-3 (mf^2)+14 (P^2))+(P^2) (-3 (mf^2)+8 (P^2)-6 (ω^2)))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int56Gom2=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(1/(2 (H+ω)))(mf^2) ω (H (3 (H^4)+3 (mc^4)+(7 (mc^2)-(mf^2)) (P^2)+4 (P^4)-6 (H^2) ((mc^2)+(P^2))+3 (H^3) ω-H (3 (mc^2)+2 (P^2)) ω)+(3 (H^4)-3 (H^2) (P^2)+(mc^2) (P^2)+(P^4)+3 (H^3) ω-H (P^2) ω) (H+ω-(((mf^2) ω)/(4 H (H+ω)))))+2 H (ω-(((mf^2) ω)/(4 H (H+ω)))) (H (3 (H^4)+3 (mc^4)+(7 (mc^2)-(mf^2)) (P^2)+4 (P^4)-6 (H^2) ((mc^2)+(P^2))+3 (H^3) ω-H (3 (mc^2)+2 (P^2)) ω)+(3 (H^4)-3 (H^2) (P^2)+(mc^2) (P^2)+(P^4)+3 (H^3) ω-H (P^2) ω) (H+(((mf^2) ω)/(4 H (H+ω)))))+H ((mf^2) (P^2) (3 (mc^2)-(mf^2)+3 (P^2))+6 (H^5) ω+6 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω+(H^4) (6 (mc^2)+8 (P^2)+6 (ω^2))+(H^2) (-(((mc^2)+(P^2)) (6 (mc^2)-3 (mf^2)+8 (P^2)))+6 (P^2) (ω^2))) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(H (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+(3 (H^2) (mc^2)+(5 (H^2)+(mc^2)) (P^2)+(P^4)) ω) (-(mf^2)+2 H (H+ω)) Log[(((mf^2) ω)/(H (H+ω)))]-H ((mf^2) (P^2) (3 (mc^2)-(mf^2)+3 (P^2))+6 (H^5) ω+6 (H^3) (P^2) ω-2 H (mf^2) (P^2) ω+(H^4) (6 (mc^2)+8 (P^2)+6 (ω^2))+(H^2) (-(((mc^2)+(P^2)) (6 (mc^2)-3 (mf^2)+8 (P^2)))+6 (P^2) (ω^2))) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+(H (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+(3 (H^2) (mc^2)+(5 (H^2)+(mc^2)) (P^2)+(P^4)) ω) (-(mf^2)+2 H (H+ω)) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int56Gom1tot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(16 ((H^2) (((H-ω))^2))))ω (-4 (H^2)+(mf^2)+4 H ω) (24 (H^5) ((mf^2)-(P^2))-24 (H^4) ((mc^2)+(mf^2)) ω+(mf^2) (P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω+(H^2) (-24 (mc^4)+3 (mf^4)+28 (mf^2) (P^2)-40 (P^4)+8 (mc^2) (3 (mf^2)-8 (P^2))) ω+8 (H^3) (3 (mc^4)+(P^2) (-4 (mf^2)+5 (P^2)+3 (ω^2))+(mc^2) (-3 (mf^2)+8 (P^2)+3 (ω^2))))-(1/(4 H (H-ω)))(mf^2) ω (6 (H^3) ((mf^2)-(P^2))+2 H (3 (mc^4)-4 (mf^2) (P^2)+5 (P^4)+(mc^2) (-3 (mf^2)+8 (P^2)))-(((P^2) (2 (mc^2)-(mf^2)+2 (P^2)) ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))+(H^2) ω (-6 (mc^2)-10 (P^2)-((3 (mf^4))/(4 (H^2)-4 H ω))+(mf^2) (3+((P^2)/((H^2)-H ω)))))+(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+(H^3) (-6 (mc^2)+3 (mf^2)-10 (P^2)) ω+H (P^2) (-2 (mc^2)+3 (mf^2)-2 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+(H^3) (-6 (mc^2)+3 (mf^2)-10 (P^2)) ω+H (P^2) (-2 (mc^2)+3 (mf^2)-2 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int56Gom2tot=ConditionalExpression[-(1/(3 H (mh^6)))16 (e^2) π (λ^4) ((1/(4 H (H+ω)))(mf^2) ω ((H^3) (3 (mf^2)-4 (P^2))+(H^3) (3 (mf^2)-2 (P^2))+H (6 (mc^4)-7 (mf^2) (P^2)+8 (P^4)+(mc^2) (-6 (mf^2)+14 (P^2)))+(H^2) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω+((H (3 (mf^4)-4 (mf^2) (P^2)) ω)/(4 (H+ω)))+(P^2) (2 (mc^2)-(mf^2)+2 (P^2)) (H-ω+(((mf^2) ω)/(4 H (H+ω)))))-(1/(16 (H^2) (((H+ω))^2)))ω (4 (H^2)-(mf^2)+4 H ω) (24 (H^5) ((mf^2)-(P^2))+24 (H^4) ((mc^2)+(mf^2)) ω+(mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2)) ω+(H^2) (24 (mc^4)-3 (mf^4)-28 (mf^2) (P^2)+40 (P^4)-8 (mc^2) (3 (mf^2)-8 (P^2))) ω+8 (H^3) (3 (mc^4)+(P^2) (-4 (mf^2)+5 (P^2)+3 (ω^2))+(mc^2) (-3 (mf^2)+8 (P^2)+3 (ω^2))))+(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+H (P^2) (2 (mc^2)-3 (mf^2)+2 (P^2)) ω+(H^3) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(2 (H^4) (P^2)+2 (mf^2) (P^2) (-2 (mc^2)+(mf^2)-2 (P^2))+2 (H^2) ((mc^2)-(mf^2)+(P^2)) (3 (mc^2)+5 (P^2))+H (P^2) (2 (mc^2)-3 (mf^2)+2 (P^2)) ω+(H^3) (6 (mc^2)-3 (mf^2)+10 (P^2)) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Using a simpler definition to get the truncated Gtilde (finite):

G11omnolog1=Simplify[Normal[Int1Gom1+Int1Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G11omnolog = Normal@(G11omnolog1 + O[ω]^4) + O[mf]^3 // Simplify

G22omnolog1=Simplify[Normal[Int2Gom1+Int2Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G22omnolog = (Normal@(G22omnolog1 (((H-ω))^3) (((H+ω))^3)/((((H^2)-(ω^2)))^3) (16 (H^4)+(mf^4)-8 (H^2) ((mf^2)+2 (ω^2)))/((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G33omnolog1=Simplify[Normal[Int3Gom1+Int3Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G33omnolog = (Normal@(G33omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G33omnolog - G11omnolog // Simplify

G44omnolog1=Simplify[Normal[Int4Gom1+Int4Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G44omnolog = (Normal@(G44omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G44omnolog - G11omnolog // Simplify

G55omnolog1=Simplify[Normal[Int5Gom1+Int5Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G55omnolog = (Normal@(G55omnolog1 (((H-ω))^3) (((H+ω))^3)/((((H^2)-(ω^2)))^3) (16 (H^4)+(mf^4)-8 (H^2) ((mf^2)+2 (ω^2)))/((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G55omnolog - G22omnolog // Simplify

G66omnolog1=Simplify[Normal[Int6Gom1+Int6Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G66omnolog =(Normal@(G66omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G66omnolog - G11omnolog // Simplify

G12omnolog1=Simplify[Normal[Int12Gom1+Int12Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G12omnolog =(Normal@(G12omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))) + O[ω]^4) + O[mf]^3 // Simplify

G13omnolog1=Simplify[Normal[Int13Gom1+Int13Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G13omnolog = Normal@(G13omnolog1 + O[ω]^4) + O[mf]^3 // Simplify

G14omnolog1=Simplify[Normal[Int14Gom1+Int14Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G14omnolog = (Normal@(G14omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G15omnolog1=Simplify[Normal[Int15Gom1+Int15Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G15omnolog = (Normal@(G15omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G16omnolog1=Simplify[Normal[Int16Gom1+Int16Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G16omnolog = Normal@(G16omnolog1 + O[ω]^4) + O[mf]^3 // Simplify

G23omnolog1=Simplify[Normal[Int23Gom1+Int23Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G23omnolog =(Normal@(G23omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G24omnolog1=Simplify[Normal[Int24Gom1+Int24Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G24omnolog = (Normal@(G24omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))) + O[ω]^4) + O[mf]^3 // Simplify

G25omnolog1=Simplify[Normal[Int25Gom1+Int25Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G25omnolog = (Normal@(G25omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))) + O[ω]^4) + O[mf]^3 // Simplify

G26omnolog1=Simplify[Normal[Int26Gom1+Int26Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G26omnolog =(Normal@(G26omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G26omnolog - G15omnolog // Simplify

G34omnolog1=Simplify[Normal[Int34Gom1+Int34Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G34omnolog = Normal@(G34omnolog1 + O[ω]^4) + O[mf]^3 // Simplify

G34omnolog - G16omnolog // Simplify

G35omnolog1=Simplify[Normal[Int35Gom1+Int35Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G35omnolog = (Normal@(G35omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))) + O[ω]^4) + O[mf]^3 // Simplify

G35omnolog - G24omnolog // Simplify

G36omnolog1=Simplify[Normal[Int36Gom1+Int36Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G36omnolog = (Normal@(G36omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G36omnolog - G14omnolog // Simplify

G45omnolog1=Simplify[Normal[Int45Gom1+Int45Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G45omnolog = (Normal@(G45omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4(H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4) + O[mf]^3 // Simplify

G45omnolog -  G23omnolog// Simplify

G46omnolog1=Simplify[Normal[Int46Gom1+Int46Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G46omnolog = Normal@(G46omnolog1 + O[ω]^4) + O[mf]^3 // Simplify

G46omnolog - G13omnolog // Simplify

G56omnolog1=Simplify[Normal[Int56Gom1+Int56Gom2]/. {mc->(Sqrt[(H^2)-(P^2)]),Log[a_]->0}]

G56omnolog = (Normal@(G56omnolog1  (H-ω) (H+ω)/((H^2)-(ω^2))) + O[ω]^4) + O[mf]^3 // Simplify

G56omnolog -  G12omnolog// Simplify

G1524omnolog=Simplify[G15omnolog+G24omnolog]

G1634omnolog=Simplify[G16omnolog+G34omnolog]

G2635omnolog=Simplify[G26omnolog+G35omnolog]

Ktilde original expressions:

Int1Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) (-(((mf^2) (-3 (H^2)+(P^2)) ω)/(4 (H^2)-4 H ω))+(((-3 (H^2)+(P^2)) ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (-H+ω)))+((4 H (-H+ω) ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω))/((mf^2) ω))+((4 H (-H+ω) ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω))/(ω (-4 (H^2)+(mf^2)+4 H ω)))+(3 (H^3)-3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+(-3 (H^3)+3 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int1Kom2=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) ((((mf^2) (3 (H^2)-(P^2)) ω)/(4 H (H+ω)))+((4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω))/((mf^2) ω))-((-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω)/(ω-(((mf^2) ω)/(4 H (H+ω)))))-(3 (H^2)-(P^2)) (ω-(((mf^2) ω)/(4 H (H+ω))))+(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/(H (H+ω)))]-(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int2Kom1=ConditionalExpression[(1/(45 (H^2) (mh^8)))(e^2) (mf^2) π (λ^4) ω (-((5 (mf^6) (3 (H^2)-(P^2)) (ω^2))/(H (((H-ω))^3)))+((30 (mf^4) ω (3 (H^3)-3 H ((mc^2)+(P^2))+6 (H^2) ω-2 (P^2) ω))/(((H-ω))^2))-((30 ω (((-4 (H^2)+(mf^2)+4 H ω))^2) (3 (H^3)-3 H ((mc^2)+(P^2))+6 (H^2) ω-2 (P^2) ω))/(((H-ω))^2))+(1/(mf^2))192 H (H-ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)-(1/(-4 (H^2)+(mf^2)+4 H ω))192 H (-H+ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)-5 (H^2) (3 (H^2)-(P^2)) (ω^2) (((-4+((mf^2)/((H^2)-H ω))))^3)-(1/(H (H-ω)))12 (mf^2) (120 (H^5) ω+20 (H^3) (-3 (mc^2)+(P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-5 (ω^2))-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2)+5 (ω^2)))-12 (-4+((mf^2)/((H^2)-H ω))) (120 (H^5) ω+20 (H^3) (-3 (mc^2)+(P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-5 (ω^2))-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2)+5 (ω^2)))+48 (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω+5 (H^3) (-3 (mc^2)+16 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]-48 (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω+5 (H^3) (-3 (mc^2)+16 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int2Kom2=ConditionalExpression[(1/(15 (H^2) (mh^8)))16 (e^2) (mf^2) π (λ^4) (-((5 (mf^6) (3 (H^2)-(P^2)) (ω^3))/(48 H (((H+ω))^3)))+((5 (mf^4) (ω^2) (-3 (H^3)+3 H ((mc^2)+(P^2))+6 (H^2) ω-2 (P^2) ω))/(8 (((H+ω))^2)))-(1/(mf^2))4 H ω (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)+(1/(4 (H^2)-(mf^2)+4 H ω))4 H ω (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^5) ω+30 (H^3) (P^2) ω+3 H (P^4) ω)+10 (3 (H^3)-3 H ((mc^2)+(P^2))-6 (H^2) ω+2 (P^2) ω) (((H ω-(((mf^2) ω)/(4 (H+ω)))))^2)+(20/3) (H^2) (3 (H^2)-(P^2)) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^3)+(1/(4 H (H+ω)))(mf^2) ω (120 (H^5) ω+20 (H^3) (-3 (mc^2)+(P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-5 (ω^2))+4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2)+5 (ω^2)))-(ω-(((mf^2) ω)/(4 H (H+ω)))) (120 (H^5) ω+20 (H^3) (-3 (mc^2)+(P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-5 (ω^2))+4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2)+5 (ω^2)))-ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω+5 (H^3) (-3 (mc^2)+16 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]+ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+75 (H^5) ω+H (P^2) (5 (mc^2)+13 (P^2)) ω+5 (H^3) (-3 (mc^2)+16 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int3Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) (-(((mf^2) (-3 (H^2)+(P^2)) ω)/(4 (H (H-ω))))-((4 H (H-ω) ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω))/((mf^2) ω))-((4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω))/(ω (-4+((mf^2)/((H^2)-H ω)))))-(1/4) (-3 (H^2)+(P^2)) ω (-4+((mf^2)/((H^2)-H ω)))-(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[4]+(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int3Kom2=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) (-(((mf^2) (-3 (H^2)+(P^2)) ω)/(4 (H (H+ω))))+((4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω))/((mf^2) ω))-((-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω)/(ω-(((mf^2) ω)/(4 H (H+ω)))))+(-3 (H^2)+(P^2)) (ω-(((mf^2) ω)/(4 H (H+ω))))+(3 (H^3)-3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(-3 (H^3)+3 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int4Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) (-(((mf^2) (-3 (H^2)+(P^2)) ω)/(4 (H^2)-4 H ω))+(((-3 (H^2)+(P^2)) ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (-H+ω)))+((4 H (-H+ω) ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω))/((mf^2) ω))+((4 H (-H+ω) ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω))/(ω (-4 (H^2)+(mf^2)+4 H ω)))+(3 (H^3)-3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+(-3 (H^3)+3 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int4Kom2=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) ((((mf^2) (3 (H^2)-(P^2)) ω)/(4 H (H+ω)))+((4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω))/((mf^2) ω))-((-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω)/(ω-(((mf^2) ω)/(4 H (H+ω)))))-(3 (H^2)-(P^2)) (ω-(((mf^2) ω)/(4 H (H+ω))))+(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/(H (H+ω)))]-(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int5Kom1=ConditionalExpression[-(1/(45 ((H^2) (mh^8))))(e^2) (mf^2) π (λ^4) ω (-((90 H (mf^4) ((H^2)-(mc^2)-(P^2)) ω)/(((H-ω))^2))+((5 (mf^6) (3 (H^2)-(P^2)) (ω^2))/(H (((H-ω))^3)))+((90 H ((H^2)-(mc^2)-(P^2)) ω (((-4 (H^2)+(mf^2)+4 H ω))^2))/(((H-ω))^2))+((5 (3 (H^2)-(P^2)) (ω^2) (((-4 (H^2)+(mf^2)+4 H ω))^3))/(H (((H-ω))^3)))-(1/(mf^2))192 H (H-ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)-(1/(-4 (H^2)+(mf^2)+4 H ω))192 H (H-ω) ((mf^2) (P^4)+(H^2) (P^2) (-15 (mc^2)+5 (mf^2)-18 (P^2))-15 (H^4) ((mc^2)+2 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)+(1/(H (H-ω)))12 (-4 (H^2)+(mf^2)+4 H ω) (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+20 (H^3) (3 (mc^2)+7 (P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2)))-(1/(H (H-ω)))12 (mf^2) (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-20 (H^3) (3 (mc^2)+7 (P^2)) ω-4 H (P^2) (5 (mc^2)+7 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2)))-48 (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-15 (H^5) ω+5 (H^3) (15 (mc^2)+28 (P^2)) ω+H (P^2) (35 (mc^2)+43 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[(((mf^2) ω)/((H^2)-H ω))]+48 (-4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-15 (H^5) ω+5 (H^3) (15 (mc^2)+28 (P^2)) ω+H (P^2) (35 (mc^2)+43 (P^2)) ω-3 (P^4) (ω^2)-15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int5Kom2=ConditionalExpression[-(1/(15 (H^2) (mh^8)))16 (e^2) (mf^2) π (λ^4) ((1/(mf^2))4 H ω (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)-30 (H^3) ((H^2)-(mc^2)-(P^2)) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^2)-(20/3) (H^2) (3 (H^2)-(P^2)) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^3)+(ω-(((mf^2) ω)/(4 H (H+ω)))) (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+20 (H^3) (3 (mc^2)+7 (P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2)))+ω (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-15 (H^5) ω+5 (H^3) (15 (mc^2)+28 (P^2)) ω+H (P^2) (35 (mc^2)+43 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(1/48) ω (-((5 (mf^6) (3 (H^2)-(P^2)) (ω^2))/(H (((H+ω))^3)))-((90 H (mf^4) ((H^2)-(mc^2)-(P^2)) ω)/(((H+ω))^2))+(1/(4 (H^2)-(mf^2)+4 H ω))192 H (H+ω) (-((mf^2) (P^4))+15 (H^4) ((mc^2)+2 (P^2))+(H^2) (P^2) (15 (mc^2)-5 (mf^2)+18 (P^2))+15 (H^3) ((mc^2)+2 (P^2)) ω+3 H (P^2) (5 (mc^2)+6 (P^2)) ω)+(1/(H (H+ω)))12 (mf^2) (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))+20 (H^3) (3 (mc^2)+7 (P^2)) ω+4 H (P^2) (5 (mc^2)+7 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2)))+48 (4 (H^2) (P^2) (10 (mc^2)-5 (mf^2)+12 (P^2))-15 (H^5) ω+5 (H^3) (15 (mc^2)+28 (P^2)) ω+H (P^2) (35 (mc^2)+43 (P^2)) ω+3 (P^4) (ω^2)+15 (H^4) (4 (mc^2)+8 (P^2)-(ω^2))) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))])),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int6Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) (-(((mf^2) (-3 (H^2)+(P^2)) ω)/(4 (H (H-ω))))-((4 H (H-ω) ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω))/((mf^2) ω))-((4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω))/(ω (-4+((mf^2)/((H^2)-H ω)))))-(1/4) (-3 (H^2)+(P^2)) ω (-4+((mf^2)/((H^2)-H ω)))-(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[4]+(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-(-3 (H^3)+3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int6Kom2=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) (mf^2) π (λ^4) (-(((mf^2) (-3 (H^2)+(P^2)) ω)/(4 (H (H+ω))))+((4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω))/((mf^2) ω))-((-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω)/(ω-(((mf^2) ω)/(4 H (H+ω)))))+(-3 (H^2)+(P^2)) (ω-(((mf^2) ω)/(4 H (H+ω))))+(3 (H^3)-3 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) Log[(((mf^2) ω)/(H (H+ω)))]+(-3 (H^3)+3 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int12Kom1=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(mf^2)+2 H (H-ω)) ((1/(16 H (((H-ω))^2)))ω (-4 (H^2)+(mf^2)+4 H ω) (-24 (H^5)+24 (H^3) ((mc^2)+(P^2))+24 (H^4) ω+(mf^2) (P^2) ω-3 (H^2) (8 (mc^2)+(mf^2)+8 (P^2)) ω)+(1/(16 H (((H-ω))^2)))(mf^2) ω (-24 (H^5)+12 (H^4) ω-(mf^2) (P^2) ω+(H^2) (-24 (mc^2)+3 (mf^2)-20 (P^2)) ω-4 H (P^2) (ω^2)+12 (H^3) (2 (mc^2)+2 (P^2)+(ω^2)))-H (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[4]+H (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-H (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int12Kom2=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(mf^2)+2 H (H+ω)) (6 (H^4) ω-6 (H^2) (mc^2) ω-6 (H^2) (P^2) ω-((3 (H^3) (mf^2) ω)/(H+ω))+((3 H (mc^2) (mf^2) ω)/(H+ω))+((3 H (mf^2) (P^2) ω)/(H+ω))+H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]-H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int13Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^4) ω))2 (e^2) π (λ^4) (2 (H^2)-(mf^2)-2 H ω) (-(((3 (H^2)-(P^2)) (ω^2) (4 (H^2)-(mf^2)-4 H ω))/(H (H-ω)))+4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[4]+(1/(H (H-ω)))ω (-((mf^2) (P^2) ω)+12 (H^5) Log[4]-12 (H^3) ((mc^2)+(P^2)) Log[4]-12 (H^4) ω Log[4]+3 (H^2) ω ((mf^2)+4 ((mc^2)+(P^2)) Log[4]))-4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]+4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int13Kom2=ConditionalExpression[-(1/(3 (H^3) (mh^4) ω (H+ω)))2 (e^2) π (λ^4) (-(mf^2)+2 H (H+ω)) (-12 (H^4) (ω^2)+6 (H^2) (mf^2) (ω^2)+4 (H^2) (P^2) (ω^2)-2 (mf^2) (P^2) (ω^2)-12 (H^3) (ω^3)+4 H (P^2) (ω^3)+4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]+4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]-4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int14Kom1=ConditionalExpression[-((32 (e^2) (mc^2) π (λ^4) (H-ω) (((-2 (H^2)+(mf^2)+2 H ω))^2))/(H (mh^4) ω (4 (H^2)-(mf^2)-4 H ω))),((mf/((mf^2)+2 H (-H+ω)))≠0&&Re[((mf^2)/((mf^2)+2 H (-H+ω)))]≤0)||Re[((mf^2)/((mf^2)+2 H (-H+ω)))]>2||((mf^2)/((mf^2)+2 H (-H+ω)))∉(Reals)]

Int14Kom2=ConditionalExpression[-((32 (e^2) (mc^2) π (λ^4) (H+ω) (((-2 (H^2)+(mf^2)-2 H ω))^2))/(H (mh^4) ω (4 (H^2)-(mf^2)+4 H ω))),((Re[((mf^2)/(-2 (mf^2)+4 H (H+ω)))]≤-1||Re[((mf^2)/(-2 (mf^2)+4 H (H+ω)))]≥0)&&((((mf^2)-4 H (H+ω))/(-2 (mf^2)+4 H (H+ω)))∉(Reals)||1+Re[((mf^2)/(-2 (mf^2)+4 H (H+ω)))]<0||Re[((mf^2)/(-2 (mf^2)+4 H (H+ω)))]>0))||((mf^2)/(-2 (mf^2)+4 H (H+ω)))∉(Reals)]

Int15Kom1=ConditionalExpression[-(1/(H (mh^6)))8 (e^2) (mc^2) (mf^2) π (λ^4) (-2 (H^2)+(mf^2)+2 H ω) (-((4 H (H-ω))/(mf^2))+((4 H (-H+ω))/(-4 (H^2)+(mf^2)+4 H ω))-2 Log[(((mf^2) ω)/((H^2)-H ω))]+2 Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int15Kom2=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) (mf^2) π (λ^4) (-2 (H^2)+(mf^2)-2 H ω) (-((4 H (H+ω))/(mf^2))+((4 H (H+ω))/(4 (H^2)-(mf^2)+4 H ω))-2 Log[(((mf^2) ω)/(H (H+ω)))]+2 Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int16Kom1=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)+2 H ω))^2) (Log[(((mf^2) ω)/(H (-H+ω)))]+Log[(((mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int16Kom2=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)-2 H ω))^2) (Log[-(((mf^2) ω)/(4 (H (H+ω))))]+Log[(((mf^2) ω)/(4 H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(4 H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int23Kom1=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) (mf^2) π (λ^4) ((((mf^4) (3 (H^2)-(P^2)) (ω^2))/(16 H (((H-ω))^2)))-((3 (mf^2) ω (2 (H^3)-2 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω))/(4 (H-ω)))-((3 ω (-4 (H^2)+(mf^2)+4 H ω) (2 (H^3)-2 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω))/(4 (H-ω)))-((4 (H^2) (H-ω) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))-3 (H^3) ω-3 H (P^2) ω))/(mf^2))-((4 H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))-3 (H^3) ω-3 H (P^2) ω))/(-4+((mf^2)/((H^2)-H ω))))-(1/16) H (3 (H^2)-(P^2)) (ω^2) (((-4+((mf^2)/((H^2)-H ω))))^2)-(9 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (-3 (mc^2)+2 (P^2)) ω-H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))+(H^3) (-6 (mc^2)-10 (P^2)+3 (ω^2))) Log[4]+(9 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (-3 (mc^2)+2 (P^2)) ω-H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))+(H^3) (-6 (mc^2)-10 (P^2)+3 (ω^2))) Log[(((mf^2) ω)/(H (-H+ω)))]-(9 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (-3 (mc^2)+2 (P^2)) ω-H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))+(H^3) (-6 (mc^2)-10 (P^2)+3 (ω^2))) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int23Kom2=ConditionalExpression[(1/(3 (H^2) (mh^6)))16 (e^2) (mf^2) π (λ^4) (-(((mf^4) (3 (H^2)-(P^2)) (ω^2))/(16 (H (((H+ω))^2))))-((3 (mf^2) ω (2 (H^3)-2 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω))/(4 (H+ω)))+((4 (H^2) (H+ω) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω))/(mf^2))-((4 (H^2) (H+ω) ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω))/(4 (H^2)-(mf^2)+4 H ω))+3 H (2 (H^3)-2 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))+H (3 (H^2)-(P^2)) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^2)+(9 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (-3 (mc^2)+2 (P^2)) ω+(H^3) (6 (mc^2)+10 (P^2)-3 (ω^2))+H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]-(9 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (-3 (mc^2)+2 (P^2)) ω+(H^3) (6 (mc^2)+10 (P^2)-3 (ω^2))+H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int24Kom1=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)+2 H ω))^2) (-Log[(((mf^2) ω)/(H (-H+ω)))]+Log[((4 (mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]+Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int24Kom2=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((((mf^2)-2 H (H+ω)))^2) (Log[-(((mf^2) ω)/(16 (H (H+ω))))]-Log[(((mf^2) ω)/(H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(16 (H (H+ω))))]+Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int25Kom1=ConditionalExpression[(1/(3 (H^2) (mh^8)))16 (e^2) (mc^2) π (λ^4) ω ((((mf^2)+2 H (-H+ω)))^2) (-((3 H (mf^2))/(H-ω))-((3 H (-4 (H^2)+(mf^2)+4 H ω))/(H-ω))+(3 (H^2)-(P^2)) Log[(((mf^2) ω)/(H (-H+ω)))]+(3 (H^2)-(P^2)) Log[(((mf^2) ω)/((H^2)-H ω))]+(-3 (H^2)+(P^2)) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-(3 (H^2)-(P^2)) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int25Kom2=ConditionalExpression[(1/(3 (H^2) (mh^8)))16 (e^2) (mc^2) π (λ^4) ((((mf^2)-2 H (H+ω)))^2) (ω (-((3 H (mf^2))/(H+ω))+(3 (H^2)-(P^2)) Log[(((mf^2) ω)/(H (H+ω)))]+(-3 (H^2)+(P^2)) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))])-ω (((3 H (-4 (H^2)+(mf^2)-4 H ω))/(H+ω))+(-3 (H^2)+(P^2)) Log[4]+(-3 (H^2)+(P^2)) Log[-(((mf^2) ω)/(4 (H (H+ω))))]+(3 (H^2)-(P^2)) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))])),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int26Kom1=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) (mf^2) π (λ^4) (-2 (H^2)+(mf^2)+2 H ω) (((4 H (H-ω))/(mf^2))-2 Log[4]+2 Log[(((mf^2) ω)/(H (-H+ω)))]-((4 H (-H+ω)+(-8 (H^2)+2 (mf^2)+8 H ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))])/(-4 (H^2)+(mf^2)+4 H ω))),(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int26Kom2=ConditionalExpression[(1/(H (mh^6) (4 (H^2)-(mf^2)+4 H ω)))16 (e^2) (mc^2) π (λ^4) (2 (H^2)-(mf^2)+2 H ω) (4 H (H+ω) (2 (H^2)-(mf^2)+2 H ω)+(mf^2) (4 (H^2)-(mf^2)+4 H ω) Log[(((mf^2) ω)/(H (H+ω)))]+(mf^2) (-4 (H^2)+(mf^2)-4 H ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int34Kom1=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)+2 H ω))^2) (Log[(((mf^2) ω)/(H (-H+ω)))]+Log[(((mf^2) ω)/((H^2)-H ω))]-Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int34Kom2=ConditionalExpression[-(1/((H^2) (mh^4) ω))4 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)-2 H ω))^2) (Log[-(((mf^2) ω)/(4 (H (H+ω))))]+Log[(((mf^2) ω)/(4 H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(4 H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int35Kom1=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)+2 H ω))^2) (Log[(((mf^2) ω)/(H (-H+ω)))]-Log[((4 (mf^2) ω)/((H^2)-H ω))]+Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]-Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int35Kom2=ConditionalExpression[-(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) (((-2 (H^2)+(mf^2)-2 H ω))^2) (Log[-(((mf^2) ω)/(16 (H (H+ω))))]-Log[(((mf^2) ω)/(H (H+ω)))]-Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(16 (H (H+ω))))]+Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int36Kom1=ConditionalExpression[-((32 (e^2) (mc^2) π (λ^4) (H-ω) (((-2 (H^2)+(mf^2)+2 H ω))^2))/(H (mh^4) ω (4 (H^2)-(mf^2)-4 H ω))),((Re[((mf^2)/(-2 (mf^2)+4 H (H-ω)))]≤-1||Re[((mf^2)/(-2 (mf^2)+4 H (H-ω)))]≥0)&&(1+Re[((mf^2)/(-2 (mf^2)+4 H (H-ω)))]<0||Re[((mf^2)/((mf^2)+2 H (-H+ω)))]<0))||((mf^2)/((mf^2)+2 H (-H+ω)))∉(Reals)]

Int36Kom2=ConditionalExpression[-((32 (e^2) (mc^2) π (λ^4) (H+ω) (((-2 (H^2)+(mf^2)-2 H ω))^2))/(H (mh^4) ω (4 (H^2)-(mf^2)+4 H ω))),((mf/((mf^2)-2 H (H+ω)))≠0&&Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]≥0)||Re[((mf^2)/(-(mf^2)+2 H (H+ω)))]<-2||((mf^2)/(-(mf^2)+2 H (H+ω)))∉(Reals)]

Int45Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) (mf^2) π (λ^4) (-(((mf^4) (3 (H^2)-(P^2)) (ω^2))/(16 (H (((H-ω))^2))))+(((3 (H^2)-(P^2)) (ω^2) (((-4 (H^2)+(mf^2)+4 H ω))^2))/(16 H (((H-ω))^2)))-((3 (mf^2) ω (2 (H^3)-2 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω))/(4 (H-ω)))+((3 ω (-4 (H^2)+(mf^2)+4 H ω) (2 (H^3)-2 H ((mc^2)+(P^2))-3 (H^2) ω+(P^2) ω))/(4 (-H+ω)))+(1/(mf^2))4 H (H-ω) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω)+(1/(-4 (H^2)+(mf^2)+4 H ω))4 H (-H+ω) (-(H (P^2) ((mc^2)-(mf^2)+(P^2)))-(H^3) (3 (mc^2)+5 (P^2))+(3 (H^2) (mc^2)+(5 (H^2)+(mc^2)) (P^2)+(P^4)) ω)-(-3 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (9 (mc^2)+14 (P^2)) ω-H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))+(H^3) (-6 (mc^2)-10 (P^2)+3 (ω^2))) Log[(((mf^2) ω)/((H^2)-H ω))]+(-3 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (9 (mc^2)+14 (P^2)) ω-H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))+(H^3) (-6 (mc^2)-10 (P^2)+3 (ω^2))) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int45Kom2=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) (mf^2) π (λ^4) ((((mf^4) (3 (H^2)-(P^2)) (ω^2))/(16 H (((H+ω))^2)))-((3 (mf^2) ω (2 (H^3)-2 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω))/(4 (H+ω)))+(1/(4 (H^2)-(mf^2)+4 H ω))4 H (H+ω) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω)-(1/(mf^2))4 H (H+ω) (H (3 (H^2) (mc^2)+(5 (H^2)+(mc^2)-(mf^2)) (P^2)+(P^4))+(3 (H^2) (mc^2)+(5 (H^2)+(mc^2)) (P^2)+(P^4)) ω)+3 H (2 (H^3)-2 H ((mc^2)+(P^2))+3 (H^2) ω-(P^2) ω) (ω-(((mf^2) ω)/(4 H (H+ω))))-H (3 (H^2)-(P^2)) (((ω-(((mf^2) ω)/(4 H (H+ω)))))^2)-(-3 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (9 (mc^2)+14 (P^2)) ω+(H^3) (6 (mc^2)+10 (P^2)-3 (ω^2))+H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))) Log[(((mf^2) ω)/(H (H+ω)))]+(-3 (H^4) ω+(P^2) ((mc^2)+(P^2)) ω+(H^2) (9 (mc^2)+14 (P^2)) ω+(H^3) (6 (mc^2)+10 (P^2)-3 (ω^2))+H (P^2) (2 ((mc^2)-(mf^2)+(P^2))+(ω^2))) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)&&((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals))||((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0)&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int46Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^4) ω))2 (e^2) π (λ^4) (2 (H^2)-(mf^2)-2 H ω) (-(((3 (H^2)-(P^2)) (ω^2) (4 (H^2)-(mf^2)-4 H ω))/(H (H-ω)))+4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[4]+(1/(H (H-ω)))ω (-((mf^2) (P^2) ω)+12 (H^5) Log[4]-12 (H^3) ((mc^2)+(P^2)) Log[4]-12 (H^4) ω Log[4]+3 (H^2) ω ((mf^2)+4 ((mc^2)+(P^2)) Log[4]))-4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]-4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]+4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]+4 ((mf^2) (P^2)-(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int46Kom2=ConditionalExpression[-(1/(3 (H^3) (mh^4) ω (H+ω)))2 (e^2) π (λ^4) (-(mf^2)+2 H (H+ω)) (-12 (H^4) (ω^2)+6 (H^2) (mf^2) (ω^2)+4 (H^2) (P^2) (ω^2)-2 (mf^2) (P^2) (ω^2)-12 (H^3) (ω^3)+4 H (P^2) (ω^3)+4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]+4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]-4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+3 (H^3) ω+H (P^2) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]-4 H (H+ω) (-((mf^2) (P^2))+(H^2) (3 (mc^2)+4 (P^2))+H (3 (mc^2)+4 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Int56Kom1=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(mf^2)+2 H (H-ω)) ((1/(16 H (((H-ω))^2)))ω (-4 (H^2)+(mf^2)+4 H ω) (-24 (H^5)+24 (H^3) ((mc^2)+(P^2))+24 (H^4) ω+(mf^2) (P^2) ω-3 (H^2) (8 (mc^2)+(mf^2)+8 (P^2)) ω)-(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[4]+H (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[(((mf^2) ω)/(H (-H+ω)))]+(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[(((mf^2) ω)/((H^2)-H ω))]-(1/(16 H (((H-ω))^2)))(24 (H^5) (mf^2) ω-24 (H^3) (mc^2) (mf^2) ω-24 (H^3) (mf^2) (P^2) ω-12 (H^4) (mf^2) (ω^2)+24 (H^2) (mc^2) (mf^2) (ω^2)-3 (H^2) (mf^4) (ω^2)+20 (H^2) (mf^2) (P^2) (ω^2)+(mf^4) (P^2) (ω^2)-12 (H^3) (mf^2) (ω^3)+4 H (mf^2) (P^2) (ω^3)-96 (H^6) (mc^2) Log[4]-160 (H^6) (P^2) Log[4]+32 (H^4) (mf^2) (P^2) Log[4]+48 (H^7) ω Log[4]+240 (H^5) (mc^2) ω Log[4]+448 (H^5) (P^2) ω Log[4]+16 (H^3) (mc^2) (P^2) ω Log[4]-64 (H^3) (mf^2) (P^2) ω Log[4]+16 (H^3) (P^4) ω Log[4]-96 (H^6) (ω^2) Log[4]-192 (H^4) (mc^2) (ω^2) Log[4]-416 (H^4) (P^2) (ω^2) Log[4]-32 (H^2) (mc^2) (P^2) (ω^2) Log[4]+32 (H^2) (mf^2) (P^2) (ω^2) Log[4]-32 (H^2) (P^4) (ω^2) Log[4]+48 (H^5) (ω^3) Log[4]+48 (H^3) (mc^2) (ω^3) Log[4]+128 (H^3) (P^2) (ω^3) Log[4]+16 H (mc^2) (P^2) (ω^3) Log[4]+16 H (P^4) (ω^3) Log[4]-16 (H^4) (mc^2) (P^2) Log[16]-16 (H^4) (P^4) Log[16]+32 (H^3) (mc^2) (P^2) ω Log[16]+32 (H^3) (P^4) ω Log[16]-16 (H^2) (mc^2) (P^2) (ω^2) Log[16]-16 (H^2) (P^4) (ω^2) Log[16]+16 H (((H-ω))^2) (H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))-(P^2) ((mc^2)+(P^2)) ω-(H^2) (3 (mc^2)+5 (P^2)) ω) Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))])-H (-((P^2) ((mc^2)-(mf^2)+(P^2)))-(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]),((Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]≤0&&(mf/(-2 (H^2)+(mf^2)+2 H ω))≠0)||((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(-2 (H^2)+(mf^2)+2 H ω))]>2)&&(((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<0||(Re[((-4 (H^2)+(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]<-1&&(Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≥1||Re[((4 (H^2)-(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)-4 H ω))]≤0)))&&(((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]>2||Re[((-4 (H^3)+4 (H^2) ω+(mf^2) ω)/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]<0||((Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≥2||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(ω (-2 (H^2)+(mf^2)+2 H ω)))]≤0)&&(((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))∉(Reals)||Re[((4 (H^3)-8 (H^2) ω+(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω-4 H (ω^2)))]<-1)))&&H≠(((mf^2) ω)/(4 (H^2)-4 H ω))]

Int56Kom2=ConditionalExpression[-(1/(3 (H^2) (mh^6)))16 (e^2) π (λ^4) (-(mf^2)+2 H (H+ω)) (6 (H^4) ω-6 (H^2) (mc^2) ω-6 (H^2) (P^2) ω-((3 (H^3) (mf^2) ω)/(H+ω))+((3 H (mc^2) (mf^2) ω)/(H+ω))+((3 H (mf^2) (P^2) ω)/(H+ω))+H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[-(((mf^2) ω)/(4 (H (H+ω))))]-(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω) Log[(((mf^2) ω)/(H (H+ω)))]-H ((P^2) ((mc^2)-(mf^2)+(P^2))+(H^2) (3 (mc^2)+5 (P^2))+3 (H^3) ω+3 H (P^2) ω) Log[-((ω (4 (H^2)-(mf^2)+4 H ω))/(4 (H (H+ω))))]+(H (P^2) ((mc^2)-(mf^2)+(P^2))+(H^3) (3 (mc^2)+5 (P^2))+(P^2) ((mc^2)+(P^2)) ω+(H^2) (3 (mc^2)+5 (P^2)) ω) Log[((ω (4 (H^2)-(mf^2)+4 H ω))/(H (H+ω)))]),((Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]≥0&&(mf/(-2 (H^2)+(mf^2)-2 H ω))≠0)||((mf^2)/(2 (H^2)-(mf^2)+2 H ω))∉(Reals)||Re[((mf^2)/(2 (H^2)-(mf^2)+2 H ω))]<-2)&&(((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>0||Re[((4 (H^3)+4 (H^2) ω+(mf^2) ω)/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<-1)&&(((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))∉(Reals)||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]>1||Re[((4 (H^3)+8 (H^2) ω-(mf^2) ω+4 H (ω^2))/(4 (H^2) ω-2 (mf^2) ω+4 H (ω^2)))]<0)&&(((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]>1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]<0||(((-4 (H^2)+(mf^2)-4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))∉(Reals)&&(Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≥1||Re[((4 (H^2)-(mf^2)+4 H ω)/(4 (H^2)-2 (mf^2)+4 H ω))]≤0)))&&4 (H+ω)≠(((mf^2) ω)/(H (H+ω)))]

Simplifying to remove log part of Ktilde :

K11omnolog1=Simplify[Normal[Int1Kom1+Int1Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K11omnolog = (K11omnolog1 (H-ω) (H+ω)(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2)) /((H^2)-(ω^2))) + O[ω]^4 // Simplify

K22omnolog1=Simplify[Normal[Int2Kom1+Int2Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K22omnolog = (K22omnolog1 (((H-ω))^3) (((H+ω))^3) (16 (H^4)+(mf^4)-8 (H^2) ((mf^2)+2 (ω^2))) /((((H^2)-(ω^2)))^3)  /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K33omnolog1=Simplify[Normal[Int3Kom1+Int3Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K33omnolog = (K33omnolog1 (H-ω) (H+ω)(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2)) /((H^2)-(ω^2))) + O[ω]^4 // Simplify

K33omnolog - K11omnolog // Simplify

K44omnolog1=Simplify[Normal[Int4Kom1+Int4Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K44omnolog = (K44omnolog1 (H-ω) (H+ω)(4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω)/ ((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2)) /((H^2)-(ω^2))) + O[ω]^4 // Simplify

K44omnolog - K11omnolog // Simplify

K55omnolog1=Simplify[Normal[Int5Kom1+Int5Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K55omnolog =  (K55omnolog1 (((H-ω))^3) (((H+ω))^3) /((((H^2)-(ω^2)))^3)  (16 (H^4)+(mf^4)-8 (H^2) ((mf^2)+2 (ω^2))) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K55omnolog - K22omnolog // Simplify

K66omnolog1=Simplify[Normal[Int6Kom1+Int6Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K66omnolog =(K66omnolog1 (H-ω) (H+ω) (4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω) /((H^2)-(ω^2))  /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K66omnolog - K11omnolog // Simplify

K12omnolog=Simplify[Normal[Int12Kom1+Int12Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K13omnolog1=Simplify[Normal[Int13Kom1+Int13Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K13omnolog =(K13omnolog1 (H-ω) (H+ω) /((H^2)-(ω^2)) ) + O[ω]^4 // Simplify

K14omnolog1=Simplify[Normal[Int14Kom1+Int14Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K14omnolog =(K14omnolog1 (4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2)))  + O[ω]^4 // Simplify

Normal@K14omnolog + O[mf]^3 // Simplify

K15omnolog1=Simplify[Normal[Int15Kom1+Int15Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K15omnolog =(K15omnolog1 (16 (H^4)+(mf^4)-8 (H^2) ((mf^2)+2 (ω^2))) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K16omnolog=Simplify[Normal[Int16Kom1+Int16Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K23omnolog1=Simplify[Normal[Int23Kom1+Int23Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K23omnolog =(K23omnolog1 (H-ω) (H+ω)/((H^2)-(ω^2)) (4 (H^2)-(mf^2)-4 H ω) (4 (H^2)-(mf^2)+4 H ω) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K24omnolog=Simplify[Normal[Int24Kom1+Int24Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K25omnolog1=Simplify[Normal[Int25Kom1+Int25Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K25omnolog =(K25omnolog1 (H-ω) (H+ω)/((H^2)-(ω^2)) ) + O[ω]^4 // Simplify

K26omnolog1=Simplify[Normal[Int26Kom1+Int26Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K26omnolog =(K26omnolog1  (16 (H^4)+(mf^4)-8 (H^2) ((mf^2)+2 (ω^2))) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K34omnolog=Simplify[Normal[Int34Kom1+Int34Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K35omnolog=Simplify[Normal[Int35Kom1+Int35Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K36omnolog1=Simplify[Normal[Int36Kom1+Int36Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K36omnolog =(K36omnolog1 (4 (H^2)-(mf^2)+4 H ω) (4 (H^2)-(mf^2)-4 H ω) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K36omnolog - K14omnolog// Simplify

K45omnolog1=Simplify[Normal[Int45Kom1+Int45Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K45omnolog =(K45omnolog1 (H-ω) (H+ω)/((H^2)-(ω^2)) (4 (H^2)-(mf^2)+4 H ω) (4 (H^2)-(mf^2)-4 H ω) /((((4 (H^2)-(mf^2)))^2)-(((4 H ω))^2))) + O[ω]^4 // Simplify

K46omnolog1=Simplify[Normal[Int46Kom1+Int46Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

K46omnolog =(K46omnolog1 (H-ω) (H+ω)/((H^2)-(ω^2)))+ O[ω]^4 // Simplify

K56omnolog=Simplify[Normal[Int56Kom1+Int56Kom2]/. {Log[a_]->0,mc->(Sqrt[(H^2)-(P^2)])}]

Checking :

K33omnolog - K11omnolog // Simplify

K44omnolog - K11omnolog // Simplify

K66omnolog - K11omnolog // Simplify

K55omnolog - K22omnolog // Simplify

K56omnolog - K12omnolog // Simplify

K46omnolog - K13omnolog // Simplify

K45omnolog - K23omnolog // Simplify

K36omnolog - K14omnolog // Simplify

K35omnolog - K24omnolog // Simplify

K34omnolog - K16omnolog // Simplify

K26omnolog - K15omnolog // Simplify

Divergent part of K_virtual to add to Ktilde to get finite part of (Ktilde+K_virtual_div). This is because the K terms have practically no finite remainder, except the finite Diagram 4. Also, non-self energy terms have no divergent piece (unless they have coll logs which are simultaneously soft IR plus coll div, in which case we deal with them in log part later.)

First some original terms from the self energy part, Divergent (from B2, F2 (= 0) only) . This will be used to find the finite part of Ktilde .

Btdiv=B2t

Budiv=B2u

Btudiv=B2tu

KBu=((64 (e^2) (mf^2) π (3 (H^4)+(P^2) (Pp^2)) (λ^4))/(3 (mh^4) (H-Pp) (H+Pp) (ω^2)))

Ftdiv=Simplify[F2t/. {zlm1->0,zlm2->0,zlp1->0,zlp2->0}]

Fudiv=Simplify[F2u/. {zlm1->0,zlm2->0,zlp1->0,zlp2->0}]

Ftudiv=Simplify[F2tu/. {zlm1->0,zlm2->0,zlp1->0,zlp2->0}]

BDiracdiv=B2t

FDiracdiv=Simplify[F2t/. {zlm1->0,zlm2->0,zlp1->0,zlp2->0}]

Note that the virtual K photon part must be multiplied by an overall factor of ω x P’/Sqrt[s] = ω (Pp/(2 H)) in order to match the overall factors with the real photon cross section . Only after this, cancel the soft IR divergences against Ktilde.

(* Notation: V1, V2, V3 are the virtual diagrams 
   G11om = Self t
   G22om = 0 (does not exist)
   G33om = Self t fbar
   G44om = Self u
   G55om = 0  (does not exist)
   G66om = Self u fbar
   G12om = V1 t
   G13om = V2 t
   G14om = Self tu
   G1524om = V1, tu
   G1634om = V2, tu
   G23om = V3, t
   G25om = 0 (does not exist)
   G2635om = V3, tu
   G36om = Self tu fbar
   G45om = V1 u
   G46om = V2 u
   G56om = V3 u
   Additional virtual diagrams = 4 and 5
   Also for K photon and also for f and fbar
   All results from virtualself_clean.nb and virtual(t,u,tu)_clean.nb *)

K11div=Simplify[Btdiv factorNLOvirtualg/. {Pp->((2 (H^2)-(mf^2))/(2 H))}]

Btdiv factorNLOvirtualg // Simplify

K22div=0

K33div=Simplify[Btdiv factorNLOvirtualg/. {Pp->((2 (H^2)-(mf^2))/(2 H))}]

K44div=Simplify[Budiv factorNLOvirtualg/. {Pp->((2 (H^2)-(mf^2))/(2 H))}]

K55div=0

K66div=Simplify[Budiv factorNLOvirtualg/. {Pp->((2 (H^2)-(mf^2))/(2 H))}]

K12div=0

K13div=0

K14div=Simplify[Btudiv factorNLOvirtualg/. {mc-> Sqrt[(H^2)-(P^2)],Pp->((2 (H^2)-(mf^2))/(2 H))}]

K14div + O[mf]^3

K1524div=0

K1634div=0

K23div=0

K25div=0

K2635div=0

K36div=Simplify[Btudiv factorNLOvirtualg/. {mc-> Sqrt[(H^2)-(P^2)],Pp->((2 (H^2)-(mf^2))/(2 H))}]

K36div - K14div // Simplify

K45div=0

K46div=0

K56div=0

The finite part of Ktilde (Krem) by adding the (matched to real coefficient) divergent part of K photon. This will check cancellation of divergent part of Ktilde with K from virtual calculation :

K11omrem=Normal@(Simplify[K11omnolog+K11div] + O[ω]^4) + O[mf]^3 // Simplify (* The real thermal photon part comes with a plus sign  *)

K11omrem + O[ω]^2 // Simplify

K22omrem=Normal@(Simplify[K22omnolog+K22div] + O[ω]^4) + O[mf]^3 // Simplify

K33omrem=Normal@(Simplify[K33omnolog+K33div] + O[ω]^4) + O[mf]^3 // Simplify

K44omrem=Normal@(Simplify[K44omnolog+K44div] + O[ω]^4) + O[mf]^3 // Simplify

K55omrem=Normal@(Simplify[K55omnolog+K55div] + O[ω]^4) + O[mf]^3 // Simplify

K66omrem=Normal@(Simplify[K66omnolog+K66div] + O[ω]^4) + O[mf]^3 // Simplify

K12omrem=Normal@(Simplify[K12omnolog+K12div] + O[ω]^4) + O[mf]^3 // Simplify

K13omrem=Normal@(Simplify[K13omnolog+K13div] + O[ω]^4) + O[mf]^3 // Simplify

K14omrem=Normal@(Simplify[K14omnolog+K14div] + O[ω]^4) + O[mf]^3 // Simplify

K1524omrem=Normal@(Simplify[K15omnolog+K24omnolog +K1524div] + O[ω]^4) + O[mf]^3 // Simplify

K1634omrem=Normal@(Simplify[K16omnolog+K34omnolog+K1634div]+ O[ω]^4) + O[mf]^3 // Simplify

K23omrem=Normal@(Simplify[K23omnolog+K23div] + O[ω]^4) + O[mf]^3 // Simplify

K25omrem=Normal@(Simplify[K25omnolog+K25div] + O[ω]^4) + O[mf]^3 // Simplify

K2635omrem=Normal@(Simplify[K26omnolog+K35omnolog+K2635div]  + O[ω]^4) + O[mf]^3 // Simplify

K36omrem=Normal@(Simplify[K36omnolog+K36div] + O[ω]^4) + O[mf]^3 // Simplify

K45omrem=Normal@(Simplify[K45omnolog+K45div] + O[ω]^4) + O[mf]^3 // Simplify

K46omrem=Normal@(Simplify[K46omnolog+K46div] + O[ω]^4) + O[mf]^3 // Simplify

K56omrem=Normal@(Simplify[K56omnolog+K56div] + O[ω]^4) + O[mf]^3 // Simplify

Simplifying and grouping: Gtildeom + finite part ofKtilde (= Komrem) for finite part of real photon cross section:

realttot=Simplify[(G11omnolog+G22omnolog+G33omnolog+G12omnolog+G13omnolog+G23omnolog)+(K11omrem+K22omrem+K33omrem+K12omrem+K13omrem+K23omrem)]

realutot=Simplify[(G44omnolog+G55omnolog+G66omnolog+G45omnolog+G46omnolog+G56omnolog)+(K44omrem+K55omrem+K66omrem+K45omrem+K46omrem+K56omrem)]

realttot - realutot // Simplify

realtutot=Simplify[(G14omnolog+G1524omnolog+G1634omnolog+G25omnolog+G2635omnolog+G36omnolog)+(K14omrem+K1524omrem+K1634omrem+K25omrem+K2635omrem+K36omrem)]

realtot=Simplify[(realttot+realutot-realtutot)]

oldrealtotswave = ((128 (e^2) (mc^4) π (λ^4) (ω^3))/(3 (mh^8)))+((128 (e^2) (mc^2) π (λ^4) ω (3 (mc^2)+3 (mh^2)-(ω^2)) (mf^2))/(3 (mh^8)))+((O[mf])^3)

realtotswave=Simplify[realtot/. {H->mc,P->0}]

realtotDirac=Simplify[realttot+((O[mf])^3)]

oldrealtotDiracswave = ((32 (e^2) π (λ^4) ω (36 (mc^6)-9 (mc^2) (mh^4)+6 (mc^4) (6 (mh^2)+7 (ω^2))))/(9 (mh^8)))+((16 (e^2) (mc^2) π (λ^4) ω (-36 (mc^4)+3 (mh^4)+12 (mh^2) (ω^2)+4 (ω^4)-4 (mc^2) (3 (mh^2)-8 (ω^2))) (mf^2))/(3 (mh^8) (mc-ω) (mc+ω)))+((O[mf])^3)

realtotDiracswave=Simplify[realtotDirac+((O[mf])^3)/. {H->mc,P->0}]

realtotDiracswave + O[mf]^2 // Simplify

oldrealtotDiracswave - realtotDiracswave // Simplify

Now for the real thermal fermion contributions at NLO. Phase Space Integral Calculations with special choice of frame of reference for minimizing calculations: After phi’, theta, and E’ integrations; only omega/ot integration left. Note no IR div in fermion so only Gtildetot given. Remove log part for now.

Phase Space Integral Calculations with special choice of frame of reference for minimizing calculations: After phi’, theta, and E’ integrations; only omega/ot integration left

Gftildetot first; original expressions, from realf_new_clean.nb

Int1Gom1ftot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H ((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))+((H (((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-2 H Kt-(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-(mf^2)+2 H (Kt+ot))))-H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int1Gom2ftot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H (((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)+4 H ot))^2))+H (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2)-(Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) (-2 H Kt+(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) ((mf^2)+2 H (Kt+ot))))-H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]+H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int2Gom1ftot=(256 (e^2) H Kt (H-ot) π (72 (H^8) (ot^2)-3 (Kt^2) (mf^4) (Q^2) (-3 (mc^2)+(mf^2)-4 (Q^2))-12 (H^7) ot (-(Kt^2)+12 (mc^2)+3 (mf^2)+15 (ot^2)+8 (Q^2))+12 (H^5) ot (12 (mc^4)-3 (mf^4)+(Kt^2) (ot^2)-3 (ot^4)+11 (Kt^2) (Q^2)+3 (ot^2) (Q^2)+24 (Q^4)-12 (mc^2) ((mf^2)+(ot^2)-3 (Q^2))+(mf^2) (-18 (ot^2)+(Q^2)))+(H^6) (-8 (Kt^2) (3 (ot^2)+4 (Q^2))+6 (48 (mc^2) (ot^2)+27 (mf^2) (ot^2)+24 (ot^4)-4 (mf^2) (Q^2)+16 (ot^2) (Q^2)))+(H^3) ot (-9 (mf^6)-54 (mf^4) (ot^2)+72 (mc^4) ((mf^2)+2 (ot^2))+6 (mf^2) (17 (Kt^2)-6 (ot^2)) (Q^2)+4 (Q^2) (-15 (ot^4)+108 (ot^2) (Q^2)+(Kt^2) (17 (ot^2)-96 (Q^2)))-3 (mc^2) (21 (mf^4)+16 (6 (Kt^2)-11 (ot^2)) (Q^2)+4 (mf^2) (9 (ot^2)-10 (Q^2))))+3 H (mf^2) ot (3 (mc^4) (mf^2)+(mc^2) (-3 (mf^4)+5 (mf^2) (Q^2)+4 (-6 (Kt^2)+(ot^2)) (Q^2))-(Q^2) ((mf^4)+2 (mf^2) (ot^2)-6 (ot^2) (Q^2)-8 (Kt^2) ((mf^2)-4 (Q^2))))-3 (H^2) (24 (mc^4) (mf^2) (ot^2)+8 (ot^2) (-8 (Kt^2)+3 (ot^2)) (Q^4)+(mf^6) (-3 (ot^2)+2 (Q^2))-2 (mf^4) (Q^2) (-3 (Kt^2)+4 (ot^2)+3 (Q^2))+2 (mf^2) (Q^2) (-6 (ot^4)+15 (ot^2) (Q^2)+(Kt^2) (11 (ot^2)-16 (Q^2)))-(mc^2) (12 (mf^2) (2 (Kt^2)-5 (ot^2)) (Q^2)-16 (ot^2) (-3 (Kt^2)+(ot^2)) (Q^2)+(mf^4) (21 (ot^2)+4 (Q^2))))-6 (H^4) (48 (mc^4) (ot^2)+3 (mf^4) (-5 (ot^2)+(Q^2))-(mf^2) (15 (ot^4)-6 (Kt^2) (Q^2)+2 (ot^2) (Q^2)+12 (Q^4))-2 (mc^2) (4 (3 (Kt^2)-19 (ot^2)) (Q^2)+(mf^2) (21 (ot^2)+4 (Q^2)))-4 (Q^2) ((ot^4)-27 (ot^2) (Q^2)+(Kt^2) (-7 (ot^2)+8 (Q^2))))) (λ^4))/(9 (mh^8) (((4 (H^2)+(mf^2)-4 H ot))^3))

Int2Gom2ftot=(256 (e^2) H Kt (H+ot) π (72 (H^8) (ot^2)-3 (Kt^2) (mf^4) (Q^2) (-3 (mc^2)+(mf^2)-4 (Q^2))+12 (H^7) ot (-(Kt^2)+12 (mc^2)+3 (mf^2)+15 (ot^2)+8 (Q^2))-12 (H^5) ot (12 (mc^4)-3 (mf^4)+(Kt^2) (ot^2)-3 (ot^4)+11 (Kt^2) (Q^2)+3 (ot^2) (Q^2)+24 (Q^4)-12 (mc^2) ((mf^2)+(ot^2)-3 (Q^2))+(mf^2) (-18 (ot^2)+(Q^2)))+(H^6) (-8 (Kt^2) (3 (ot^2)+4 (Q^2))+6 (48 (mc^2) (ot^2)+27 (mf^2) (ot^2)+24 (ot^4)-4 (mf^2) (Q^2)+16 (ot^2) (Q^2)))+(H^3) ot (9 (mf^6)+54 (mf^4) (ot^2)-72 (mc^4) ((mf^2)+2 (ot^2))-6 (mf^2) (17 (Kt^2)-6 (ot^2)) (Q^2)+4 (Q^2) (-17 (Kt^2) (ot^2)+15 (ot^4)+96 (Kt^2) (Q^2)-108 (ot^2) (Q^2))+3 (mc^2) (21 (mf^4)+16 (6 (Kt^2)-11 (ot^2)) (Q^2)+4 (mf^2) (9 (ot^2)-10 (Q^2))))-3 H (mf^2) ot (3 (mc^4) (mf^2)+(mc^2) (-3 (mf^4)+5 (mf^2) (Q^2)+4 (-6 (Kt^2)+(ot^2)) (Q^2))-(Q^2) ((mf^4)+2 (mf^2) (ot^2)-6 (ot^2) (Q^2)-8 (Kt^2) ((mf^2)-4 (Q^2))))-3 (H^2) (24 (mc^4) (mf^2) (ot^2)+8 (ot^2) (-8 (Kt^2)+3 (ot^2)) (Q^4)+(mf^6) (-3 (ot^2)+2 (Q^2))-2 (mf^4) (Q^2) (-3 (Kt^2)+4 (ot^2)+3 (Q^2))+2 (mf^2) (Q^2) (-6 (ot^4)+15 (ot^2) (Q^2)+(Kt^2) (11 (ot^2)-16 (Q^2)))-(mc^2) (12 (mf^2) (2 (Kt^2)-5 (ot^2)) (Q^2)-16 (ot^2) (-3 (Kt^2)+(ot^2)) (Q^2)+(mf^4) (21 (ot^2)+4 (Q^2))))-6 (H^4) (48 (mc^4) (ot^2)+3 (mf^4) (-5 (ot^2)+(Q^2))-(mf^2) (15 (ot^4)-6 (Kt^2) (Q^2)+2 (ot^2) (Q^2)+12 (Q^4))-2 (mc^2) (4 (3 (Kt^2)-19 (ot^2)) (Q^2)+(mf^2) (21 (ot^2)+4 (Q^2)))-4 (Q^2) ((ot^4)-27 (ot^2) (Q^2)+(Kt^2) (-7 (ot^2)+8 (Q^2))))) (λ^4))/(9 (mh^8) (((4 (H^2)+(mf^2)+4 H ot))^3))

Int3Gom1ftot=(16 (e^2) Kt π (-3 H (mf^2) ((mf^2)+4 H (H-ot)) ot ((H^2)+(mc^2)-H ot)-((mf^2)+4 H (H-ot)) (4 (H^4)+(Kt^2) (mf^2)-8 (H^3) ot+3 H (mf^2) ot+4 (H^2) (ot^2)) (Q^2)+4 (H^2) (((H-ot))^2) (2 H-ot) (3 (H^2) ot+(2 H-ot) (Q^2))) (λ^4))/(3 H (mh^4) ((((mf^2)+4 H (H-ot)))^2) (H-ot))

Int3Gom2ftot=-((16 (e^2) Kt π (3 H ot (8 (H^6)-(mc^2) (mf^4)+20 (H^5) ot-H (mf^2) (4 (mc^2)+(mf^2)) ot-4 (H^4) ((mf^2)-4 (ot^2))+4 (H^3) ot (-2 (mf^2)+(ot^2))-(H^2) (mf^2) (4 (mc^2)+(mf^2)+4 (ot^2)))+(4 (H^2) ((H^2)+(Kt^2)) (mf^2)+(Kt^2) (mf^4)+H (mf^2) (-4 (H^2)+4 (Kt^2)-3 (mf^2)) ot-4 (H^2) ((H^2)+2 (mf^2)) (ot^2)-8 (H^3) (ot^3)-4 (H^2) (ot^4)) (Q^2)) (λ^4))/(3 H (mh^4) (H+ot) ((((mf^2)+4 H (H+ot)))^2)))

Int4Gom1ftot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H ((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))+((H (((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-2 H Kt-(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-(mf^2)+2 H (Kt+ot))))-H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int4Gom2ftot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H (((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)+4 H ot))^2))+H (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2)-(Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) (-2 H Kt+(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) ((mf^2)+2 H (Kt+ot))))-H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]+H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int5Gom1ftot=(256 (e^2) H Kt (H-ot) π (72 (H^8) (ot^2)-3 (Kt^2) (mf^4) (Q^2) (-3 (mc^2)+(mf^2)-4 (Q^2))-12 (H^7) ot (-(Kt^2)+3 (4 (mc^2)+(mf^2)+5 (ot^2))+8 (Q^2))+2 (H^6) (3 (ot^2) (-4 (Kt^2)+48 (mc^2)+27 (mf^2)+24 (ot^2))-4 (4 (Kt^2)+3 ((mf^2)-4 (ot^2))) (Q^2))+(H^3) ot (72 (mc^4) ((mf^2)+2 (ot^2))-9 (mc^2) (7 (mf^4)+12 (mf^2) (ot^2))-9 ((mf^6)+6 (mf^4) (ot^2))+2 (60 (mc^2) (mf^2)+6 (44 (mc^2)-3 (mf^2)) (ot^2)-30 (ot^4)+(Kt^2) (-144 (mc^2)+51 (mf^2)+34 (ot^2))) (Q^2)+48 (-8 (Kt^2)+9 (ot^2)) (Q^4))+6 (H^4) (3 (ot^2) (-16 (mc^4)+14 (mc^2) (mf^2)+5 (mf^2) ((mf^2)+(ot^2)))+(-3 (mf^4)+2 (mf^2) (ot^2)+4 (ot^4)+(Kt^2) (24 (mc^2)-6 (mf^2)-28 (ot^2))+8 (mc^2) ((mf^2)-19 (ot^2))) (Q^2)+4 (8 (Kt^2)+3 ((mf^2)-9 (ot^2))) (Q^4))+3 (H^2) (3 (mf^2) (-mc+mf) (mc+mf) (8 (mc^2)+(mf^2)) (ot^2)-2 ((mf^6)-4 (mf^4) (ot^2)-6 (mf^2) (ot^4)+(mc^2) (-2 (mf^4)+30 (mf^2) (ot^2)+8 (ot^4))+(Kt^2) (3 (mf^4)+11 (mf^2) (ot^2)-12 (mc^2) ((mf^2)+2 (ot^2)))) (Q^2)+2 (16 (Kt^2) ((mf^2)+2 (ot^2))+3 ((mf^4)-5 (mf^2) (ot^2)-4 (ot^4))) (Q^4))+12 (H^5) ot (12 (mc^4)-3 ((mf^4)+6 (mf^2) (ot^2)+(ot^4))+((mf^2)+3 (ot^2)) (Q^2)+24 (Q^4)-12 (mc^2) ((mf^2)+(ot^2)-3 (Q^2))+(Kt^2) ((ot^2)+11 (Q^2)))+3 H (mf^2) ot (3 (mc^4) (mf^2)+(mc^2) (-3 (mf^4)+(-24 (Kt^2)+5 (mf^2)+4 (ot^2)) (Q^2))-(Q^2) ((mf^4)+2 (mf^2) (ot^2)-6 (ot^2) (Q^2)-8 (Kt^2) ((mf^2)-4 (Q^2))))) (λ^4))/(9 (mh^8) ((((mf^2)+4 H (H-ot)))^3))

Int5Gom2ftot=(256 (e^2) H Kt (H+ot) π (72 (H^8) (ot^2)-3 (Kt^2) (mf^4) (Q^2) (-3 (mc^2)+(mf^2)-4 (Q^2))+12 (H^7) ot (-(Kt^2)+3 (4 (mc^2)+(mf^2)+5 (ot^2))+8 (Q^2))+2 (H^6) (3 (ot^2) (-4 (Kt^2)+48 (mc^2)+27 (mf^2)+24 (ot^2))-4 (4 (Kt^2)+3 ((mf^2)-4 (ot^2))) (Q^2))+(H^3) ot (9 ((mf^6)+6 (mf^4) (ot^2)-8 (mc^4) ((mf^2)+2 (ot^2))+(mc^2) (7 (mf^4)+12 (mf^2) (ot^2)))+2 ((Kt^2) (144 (mc^2)-51 (mf^2)-34 (ot^2))+6 (3 (mf^2) (ot^2)+5 (ot^4)-2 (mc^2) (5 (mf^2)+22 (ot^2)))) (Q^2)+48 (8 (Kt^2)-9 (ot^2)) (Q^4))+6 (H^4) (3 (ot^2) (-16 (mc^4)+14 (mc^2) (mf^2)+5 (mf^2) ((mf^2)+(ot^2)))+(-3 (mf^4)+2 (mf^2) (ot^2)+4 (ot^4)+(Kt^2) (24 (mc^2)-6 (mf^2)-28 (ot^2))+8 (mc^2) ((mf^2)-19 (ot^2))) (Q^2)+4 (8 (Kt^2)+3 ((mf^2)-9 (ot^2))) (Q^4))+3 (H^2) (3 (mf^2) (-mc+mf) (mc+mf) (8 (mc^2)+(mf^2)) (ot^2)-2 ((mf^6)-4 (mf^4) (ot^2)-6 (mf^2) (ot^4)+(mc^2) (-2 (mf^4)+30 (mf^2) (ot^2)+8 (ot^4))+(Kt^2) (3 (mf^4)+11 (mf^2) (ot^2)-12 (mc^2) ((mf^2)+2 (ot^2)))) (Q^2)+2 (16 (Kt^2) ((mf^2)+2 (ot^2))+3 ((mf^4)-5 (mf^2) (ot^2)-4 (ot^4))) (Q^4))-12 (H^5) ot (12 (mc^4)-3 ((mf^4)+6 (mf^2) (ot^2)+(ot^4))+((mf^2)+3 (ot^2)) (Q^2)+24 (Q^4)-12 (mc^2) ((mf^2)+(ot^2)-3 (Q^2))+(Kt^2) ((ot^2)+11 (Q^2)))+3 H (mf^2) ot (-3 (mc^4) (mf^2)+(mc^2) (3 (mf^4)+(24 (Kt^2)-5 (mf^2)-4 (ot^2)) (Q^2))+(Q^2) ((mf^4)+2 (mf^2) (ot^2)-6 (ot^2) (Q^2)-8 (Kt^2) ((mf^2)-4 (Q^2))))) (λ^4))/(9 (mh^8) ((((mf^2)+4 H (H+ot)))^3))

Int6Gom1ftot=(16 (e^2) Kt π (-3 H (mf^2) ((mf^2)+4 H (H-ot)) ot ((H^2)+(mc^2)-H ot)-((mf^2)+4 H (H-ot)) (4 (H^4)+(Kt^2) (mf^2)-8 (H^3) ot+3 H (mf^2) ot+4 (H^2) (ot^2)) (Q^2)+4 (H^2) (((H-ot))^2) (2 H-ot) (3 (H^2) ot+(2 H-ot) (Q^2))) (λ^4))/(3 H (mh^4) ((((mf^2)+4 H (H-ot)))^2) (H-ot))

Int6Gom2ftot=-((16 (e^2) Kt π (3 H ot (8 (H^6)-(mc^2) (mf^4)+20 (H^5) ot-H (mf^2) (4 (mc^2)+(mf^2)) ot-4 (H^4) ((mf^2)-4 (ot^2))+4 (H^3) ot (-2 (mf^2)+(ot^2))-(H^2) (mf^2) (4 (mc^2)+(mf^2)+4 (ot^2)))+(4 (H^2) ((H^2)+(Kt^2)) (mf^2)+(Kt^2) (mf^4)+H (mf^2) (-4 (H^2)+4 (Kt^2)-3 (mf^2)) ot-4 (H^2) ((H^2)+2 (mf^2)) (ot^2)-8 (H^3) (ot^3)-4 (H^2) (ot^4)) (Q^2)) (λ^4))/(3 H (mh^4) (H+ot) ((((mf^2)+4 H (H+ot)))^2)))

Int12Gom1ftot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4))+(((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))-((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int12Gom2ftot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2)))+(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int13Gom1ftot=ConditionalExpression[(1/(3 (H^2) (mh^4) (H-ot)))4 (e^2) π (λ^4) (-((((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2)))+((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int13Gom2ftot=ConditionalExpression[-(1/(3 (H^2) (mh^4) (H+ot)))4 (e^2) π (λ^4) (((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2)))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))H (H+ot) ((mf^2)+2 H (Kt+ot)) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+H (H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int14Gom1ftot=ConditionalExpression[-(1/((H^2) (mh^4)))4 (e^2) (mc^2) π (λ^4) ((((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)-4 H ot))/((H-ot) (-2 H Kt-(mf^2)+2 H ot)))-(((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)-4 H ot))/((H-ot) (-(mf^2)+2 H (Kt+ot))))+2 H ((mf^2)+2 H (H-ot)) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-2 H ((mf^2)+2 H (H-ot)) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int14Gom2ftot=ConditionalExpression[-(1/((H^2) (mh^4)))4 (e^2) (mc^2) π (λ^4) ((((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)+4 H ot))/((H+ot) (-2 H Kt+(mf^2)+2 H ot)))-(((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)+4 H ot))/((H+ot) ((mf^2)+2 H (Kt+ot))))-2 H ((mf^2)+2 H (H+ot)) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]+2 H ((mf^2)+2 H (H+ot)) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int15Gom1ftot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (2 (mc^2)+5 (mf^2)-2 H (4 H+ot)+((4 (H^2) (H-ot) (2 H-Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))+2 (Q^2))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (2 (mc^2)+5 (mf^2)-2 H (4 H+ot)+((4 (H^2) (H-ot) (2 H+Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))+2 (Q^2))+(-3 (H^2) (mf^2)+2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+(3 (H^2) (mf^2)-2 (mf^4)-4 (H^3) ot+3 H (mf^2) ot) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int15Gom2ftot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((1/((((mf^2)+4 H (H+ot)))^2))4 (H^2) Kt (H+ot) (24 (H^4)+16 (H^3) ot-(mf^2) (2 (mc^2)+5 (mf^2)+2 (Q^2))-4 H ot (2 (mc^2)+5 (mf^2)+2 (Q^2))-2 (H^2) (4 (mc^2)+5 (mf^2)+4 ((ot^2)+(Q^2))))+(3 (H^2) (mf^2)-2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int16Gom1ftot=ConditionalExpression[-(1/((H^2) (mh^4) (H-ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H-ot))/((mf^2)+4 H (H-ot)))+(-3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]-Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))])),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int16Gom2ftot=ConditionalExpression[-(1/((H^2) (mh^4) (H+ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H+ot))/((mf^2)+4 H (H+ot)))+(3 (H^2) (mf^2)-(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int23Gom1ftot=-((128 (e^2) Kt π (-6 (H^5) (2 (mc^2)+(mf^2)) ot+3 (H^4) (ot^2) (6 (mc^2)+5 (mf^2)-2 (Q^2))+(Kt^2) (mf^2) (Q^2) (2 (mc^2)-(mf^2)+2 (Q^2))+(H^3) ot (-3 (-4 (mc^4)+(mf^4)+3 (mf^2) (ot^2)+2 (mc^2) (2 (mf^2)+(ot^2)))+(2 (Kt^2)+24 (mc^2)-7 (mf^2)+4 (ot^2)) (Q^2)+12 (Q^4))+(H^2) (3 (-4 (mc^4)+4 (mc^2) (mf^2)+(mf^4)) (ot^2)+(-(mf^4)+8 (mf^2) (ot^2)+2 (ot^4)+2 (mc^2) ((mf^2)-13 (ot^2))+(Kt^2) (8 (mc^2)-3 (mf^2)-2 (ot^2))) (Q^2)+2 (4 (Kt^2)+(mf^2)-7 (ot^2)) (Q^4))+H ot (3 (mc^2) (mc-mf) (mf^2) (mc+mf)+(2 (mc^2)-(mf^2)) (-4 (Kt^2)+2 (mf^2)+(ot^2)) (Q^2)+(-8 (Kt^2)+(mf^2)+2 (ot^2)) (Q^4))) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H-ot)))^2)))

Int23Gom2ftot=-((128 (e^2) Kt π (3 H ot (-((mc^4) (mf^2))+(mc^2) (mf^4)+2 (H^4) (2 (mc^2)+(mf^2))+(H^3) (6 (mc^2)+5 (mf^2)) ot+H (-4 (mc^4)+4 (mc^2) (mf^2)+(mf^4)) ot+(H^2) (-4 (mc^4)+(mf^4)+3 (mf^2) (ot^2)+2 (mc^2) (2 (mf^2)+(ot^2))))-((Kt^2) (mf^2) (-2 (mc^2)+(mf^2))+6 (H^4) (ot^2)+H (2 (mc^2)-(mf^2)) ot (-4 (Kt^2)+2 (mf^2)+(ot^2))+(H^3) ot (2 (Kt^2)+24 (mc^2)-7 (mf^2)+4 (ot^2))+(H^2) ((mf^4)-8 (mf^2) (ot^2)-2 (ot^4)-2 (mc^2) ((mf^2)-13 (ot^2))+(Kt^2) (-8 (mc^2)+3 (mf^2)+2 (ot^2)))) (Q^2)+(2 (Kt^2) (mf^2)-12 (H^3) ot+2 (H^2) (4 (Kt^2)+(mf^2)-7 (ot^2))-H ot (-8 (Kt^2)+(mf^2)+2 (ot^2))) (Q^4)) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H+ot)))^2)))

Int24Gom1ftot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (2 (mc^2)+5 (mf^2)-2 H (4 H+ot)+((4 (H^2) (H-ot) (2 H-Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))+2 (Q^2))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (2 (mc^2)+5 (mf^2)-2 H (4 H+ot)+((4 (H^2) (H-ot) (2 H+Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))+2 (Q^2))+(-3 (H^2) (mf^2)+2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+(3 (H^2) (mf^2)-2 (mf^4)-4 (H^3) ot+3 H (mf^2) ot) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int24Gom2ftot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((1/((((mf^2)+4 H (H+ot)))^2))4 (H^2) Kt (H+ot) (24 (H^4)+16 (H^3) ot-(mf^2) (2 (mc^2)+5 (mf^2)+2 (Q^2))-4 H ot (2 (mc^2)+5 (mf^2)+2 (Q^2))-2 (H^2) (4 (mc^2)+5 (mf^2)+4 ((ot^2)+(Q^2))))+(3 (H^2) (mf^2)-2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int25Gom1ftot=-((256 (e^2) H Kt (mc^2) (H-ot) π (-8 (H^4) (((H-ot))^2) ((Kt^2)+3 (((-2 H+ot))^2))+3 (2 (H^2)-(mf^2)) ((((mf^2)+4 H (H-ot)))^2) ((H^2)-2 (mc^2)+(mf^2)-(Q^2))+6 (H^2) ((mf^2)+4 H (H-ot)) (H-ot) (2 H-ot) (4 (mc^2)-3 (mf^2)+2 (Q^2))) (λ^4))/(3 (mh^8) ((((mf^2)+4 H (H-ot)))^3)))

Int25Gom2ftot=-((256 (e^2) H Kt (mc^2) (H+ot) π (-8 (H^4) (((H+ot))^2) ((Kt^2)+3 (((2 H+ot))^2))+3 (2 (H^2)-(mf^2)) ((((mf^2)+4 H (H+ot)))^2) ((H^2)-2 (mc^2)+(mf^2)-(Q^2))+6 (H^2) (H+ot) (2 H+ot) ((mf^2)+4 H (H+ot)) (4 (mc^2)-3 (mf^2)+2 (Q^2))) (λ^4))/(3 (mh^8) ((((mf^2)+4 H (H+ot)))^3)))

Int26Gom1ftot=(64 (e^2) Kt (mc^2) π (6 (H^5) ot-(H^4) ((mf^2)+10 (ot^2))+(mf^4) ((mc^2)-(mf^2)+(Q^2))-5 H (mf^2) ot ((mc^2)-(mf^2)+(Q^2))+(H^3) (-6 (mc^2) ot+8 (mf^2) ot+4 (ot^3)-6 ot (Q^2))+(H^2) (-3 (mf^4)+3 (mc^2) ((mf^2)+2 (ot^2))+6 (ot^2) (Q^2)+(mf^2) (-7 (ot^2)+3 (Q^2)))) (λ^4))/((mh^6) (((4 (H^2)+(mf^2)-4 H ot))^2))

Int26Gom2ftot=(64 (e^2) Kt (mc^2) π (-((H^2) (H+ot) (2 H+ot) (-2 (mc^2)+3 (mf^2)+2 H (H+2 ot)-2 (Q^2)))+((mf^2)+4 H (H+ot)) ((H^4)+(H^3) ot-(H^2) ((mc^2)-(mf^2)+(Q^2))+(mf^2) ((mc^2)-(mf^2)+(Q^2))+H ot ((mc^2)-(mf^2)+(Q^2)))) (λ^4))/((mh^6) ((((mf^2)+4 H (H+ot)))^2))

Int34Gom1ftot=ConditionalExpression[-(1/((H^2) (mh^4) (H-ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H-ot))/((mf^2)+4 H (H-ot)))+(-3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]-Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))])),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int34Gom2ftot=ConditionalExpression[-(1/((H^2) (mh^4) (H+ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H+ot))/((mf^2)+4 H (H+ot)))+(3 (H^2) (mf^2)-(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int35Gom1ftot=(64 (e^2) Kt (mc^2) π (6 (H^5) ot-(H^4) ((mf^2)+10 (ot^2))+(mf^4) ((mc^2)-(mf^2)+(Q^2))-5 H (mf^2) ot ((mc^2)-(mf^2)+(Q^2))+(H^3) (-6 (mc^2) ot+8 (mf^2) ot+4 (ot^3)-6 ot (Q^2))+(H^2) (-3 (mf^4)+3 (mc^2) ((mf^2)+2 (ot^2))+6 (ot^2) (Q^2)+(mf^2) (-7 (ot^2)+3 (Q^2)))) (λ^4))/((mh^6) (((4 (H^2)+(mf^2)-4 H ot))^2))

Int35Gom2ftot=(64 (e^2) Kt (mc^2) π (-((H^2) (H+ot) (2 H+ot) (-2 (mc^2)+3 (mf^2)+2 H (H+2 ot)-2 (Q^2)))+((mf^2)+4 H (H+ot)) ((H^4)+(H^3) ot-(H^2) ((mc^2)-(mf^2)+(Q^2))+(mf^2) ((mc^2)-(mf^2)+(Q^2))+H ot ((mc^2)-(mf^2)+(Q^2)))) (λ^4))/((mh^6) ((((mf^2)+4 H (H+ot)))^2))

Int36Gom1ftot=(16 (e^2) Kt (mc^2) ((mf^2)-2 H ot) (-4 (H^4)+(mf^4)+8 (H^3) ot-4 H (mf^2) ot+4 (H^2) (mf-ot) (mf+ot)) π (λ^4))/(H (mh^4) ((((mf^2)+4 H (H-ot)))^2) (H-ot))

Int36Gom2ftot=(16 (e^2) Kt (mc^2) ((mf^2)+2 H ot) (-4 (H^4)+(mf^4)-8 (H^3) ot+4 H (mf^2) ot+4 (H^2) (mf-ot) (mf+ot)) π (λ^4))/(H (mh^4) (H+ot) ((((mf^2)+4 H (H+ot)))^2))

Int45Gom1ftot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4))+(((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))-((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int45Gom2ftot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2)))+(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int46Gom1ftot=ConditionalExpression[(1/(3 (H^2) (mh^4) (H-ot)))4 (e^2) π (λ^4) (-((((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2)))+((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int46Gom2ftot=ConditionalExpression[-(1/(3 (H^2) (mh^4) (H+ot)))4 (e^2) π (λ^4) (((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2)))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))H (H+ot) ((mf^2)+2 H (Kt+ot)) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+H (H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int56Gom1ftot=-((128 (e^2) Kt π (-6 (H^5) (2 (mc^2)+(mf^2)) ot+3 (H^4) (ot^2) (6 (mc^2)+5 (mf^2)-2 (Q^2))+(Kt^2) (mf^2) (Q^2) (2 (mc^2)-(mf^2)+2 (Q^2))+(H^3) ot (-3 (-4 (mc^4)+(mf^4)+3 (mf^2) (ot^2)+2 (mc^2) (2 (mf^2)+(ot^2)))+(2 (Kt^2)+24 (mc^2)-7 (mf^2)+4 (ot^2)) (Q^2)+12 (Q^4))+(H^2) (3 (-4 (mc^4)+4 (mc^2) (mf^2)+(mf^4)) (ot^2)+(-(mf^4)+8 (mf^2) (ot^2)+2 (ot^4)+2 (mc^2) ((mf^2)-13 (ot^2))+(Kt^2) (8 (mc^2)-3 (mf^2)-2 (ot^2))) (Q^2)+2 (4 (Kt^2)+(mf^2)-7 (ot^2)) (Q^4))+H ot (3 (mc^2) (mc-mf) (mf^2) (mc+mf)+(2 (mc^2)-(mf^2)) (-4 (Kt^2)+2 (mf^2)+(ot^2)) (Q^2)+(-8 (Kt^2)+(mf^2)+2 (ot^2)) (Q^4))) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H-ot)))^2)))

Int56Gom2ftot=-((128 (e^2) Kt π (3 H ot (-((mc^4) (mf^2))+(mc^2) (mf^4)+2 (H^4) (2 (mc^2)+(mf^2))+(H^3) (6 (mc^2)+5 (mf^2)) ot+H (-4 (mc^4)+4 (mc^2) (mf^2)+(mf^4)) ot+(H^2) (-4 (mc^4)+(mf^4)+3 (mf^2) (ot^2)+2 (mc^2) (2 (mf^2)+(ot^2))))-((Kt^2) (mf^2) (-2 (mc^2)+(mf^2))+6 (H^4) (ot^2)+H (2 (mc^2)-(mf^2)) ot (-4 (Kt^2)+2 (mf^2)+(ot^2))+(H^3) ot (2 (Kt^2)+24 (mc^2)-7 (mf^2)+4 (ot^2))+(H^2) ((mf^4)-8 (mf^2) (ot^2)-2 (ot^4)-2 (mc^2) ((mf^2)-13 (ot^2))+(Kt^2) (-8 (mc^2)+3 (mf^2)+2 (ot^2)))) (Q^2)+(2 (Kt^2) (mf^2)-12 (H^3) ot+2 (H^2) (4 (Kt^2)+(mf^2)-7 (ot^2))-H ot (-8 (Kt^2)+(mf^2)+2 (ot^2))) (Q^4)) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H+ot)))^2)))

Simplifying and grouping the thermal fermion contributions:

G1om1ftot = Normal @ Int1Gom1ftot /. Log[a_]->0 // Simplify

G1om2ftot = Normal @ Int1Gom2ftot /. Log[a_]->0 // Simplify

G11omffinite= (((ot-Kt) (Kt+ot) (G1om1ftot + G1om2ftot))/(mf^2) ) + O[mf]^3// Simplify

G11omfftotswave  = G11omffinite /. {H-> mc, Q-> 0} // Simplify

G2om1ftot = Normal @ Int2Gom1ftot /. Log[a_]->0 // Simplify

G2om2ftot = Normal @ Int2Gom2ftot /. Log[a_]->0 // Simplify

G22omffinite = (G2om1ftot + G2om2ftot) + O[mf]^3// Simplify

G22omfftotswave  = G22omffinite /. {H-> mc, Q-> 0} // Simplify

G3om1ftot = Normal @ Int3Gom1ftot /. Log[a_]->0 // Expand // Simplify

G3om2ftot = Normal @ Int3Gom2ftot /. Log[a_]->0 // Expand // Simplify

G33omffinite = (G3om1ftot + G3om2ftot) + O[mf]^3// Simplify

G33omfftotswave  = G33omffinite /. {H-> mc, Q-> 0} // Simplify

G4om1ftot = Normal @ Int4Gom1ftot /. Log[a_]->0 // Simplify

G4om2ftot = Normal @ Int4Gom2ftot /. Log[a_]->0 // Simplify

G44omffinite = ((ot+Kt)(ot-Kt)(G4om1ftot + G4om2ftot))/(mf^2) + O[mf]^3// Simplify

G44omfftotswave  = G44omffinite /. {H-> mc, Q-> 0} // Simplify

G5om1ftot = Normal @ Int5Gom1ftot /. Log[a_]->0 // Simplify

G5om2ftot = Normal @ Int5Gom2ftot /. Log[a_]->0 // Simplify

G55omffinite = (G5om1ftot + G5om2ftot) + O[mf]^3// Simplify

G55omfftotswave  = G55omffinite /. {H-> mc, Q-> 0} // Simplify

G6om1ftot = Normal @ Int6Gom1ftot /. Log[a_]->0 //Expand // Simplify

G6om2ftot = Normal @ Int6Gom2ftot /. Log[a_]->0 // Expand // Simplify

G66omffinite = (G6om1ftot + G6om2ftot) + O[mf]^3// Simplify

G66omfftotswave  = G66omffinite /. {H-> mc, Q-> 0} // Simplify

G12om1ftot = Normal @ Int12Gom1ftot /. Log[a_]->0 // Simplify

G12om2ftot = Normal @ Int12Gom2ftot /. Log[a_]->0 // Simplify

G12omffinite = (G12om1ftot + G12om2ftot) + O[mf]^3// Simplify

G12omfftotswave  = G12omffinite /. {H-> mc, Q-> 0} // Simplify

G13om1ftot = Normal @ Int13Gom1ftot /. Log[a_]->0 // Simplify

G13om2ftot = Normal @ Int13Gom2ftot /. Log[a_]->0 // Simplify

G13omffinite = (G13om1ftot + G13om2ftot) + O[mf]^3// Simplify

G13omfftotswave  = G13omffinite /. {H-> mc, Q-> 0} // Simplify

G14om1ftot = Normal @ Int14Gom1ftot /. Log[a_]->0 // Simplify

G14om2ftot = Normal @ Int14Gom2ftot /. Log[a_]->0 // Simplify

G14omffinite = ((ot-Kt) (Kt+ot)(G14om1ftot + G14om2ftot)/(mf^2)) + O[mf]^3// Simplify

G14omfftotswave  = G14omffinite /. {H-> mc, Q-> 0} // Simplify

G15om1ftot = Normal @ Int15Gom1ftot /. Log[a_]->0 // Simplify

G15om2ftot = Normal @ Int15Gom2ftot /. Log[a_]->0 // Simplify

G15omffinite = (G15om1ftot + G15om2ftot) + O[mf]^3// Simplify

G15omfftotswave  = G15omffinite /. {H-> mc, Q-> 0} // Simplify

G16om1ftot = Normal @ Int16Gom1ftot /. Log[a_]->0 // Simplify

G16om2ftot = Normal @ Int16Gom2ftot /. Log[a_]->0 // Simplify

G16omffinite = (G16om1ftot + G16om2ftot) + O[mf]^3// Simplify

G16omfftotswave  = G16omffinite /. {H-> mc, Q-> 0} // Simplify

G23om1ftot = Normal @ Int23Gom1ftot /. Log[a_]->0 // Simplify

G23om2ftot = Normal @ Int23Gom2ftot /. Log[a_]->0 // Simplify

G23omffinite = (G23om1ftot + G23om2ftot) + O[mf]^3// Simplify

G23omfftotswave  = G23omffinite /. {H-> mc, Q-> 0} // Simplify

G24om1ftot = Normal @ Int24Gom1ftot /. Log[a_]->0 // Simplify

G24om2ftot = Normal @ Int24Gom2ftot /. Log[a_]->0 // Simplify

G24omffinite = (G24om1ftot + G24om2ftot) + O[mf]^3// Simplify

G24omfftotswave  = G24omffinite /. {H-> mc, Q-> 0} // Simplify

G25om1ftot = Normal @ Int25Gom1ftot /. Log[a_]->0 // Expand // Simplify

G25om2ftot = Normal @ Int25Gom2ftot /. Log[a_]->0 // Expand // Simplify

G25omffinite = (G25om1ftot + G25om2ftot) + O[mf]^3// Simplify

G25omfftotswave  = G25omffinite /. {H-> mc, Q-> 0} // Simplify

G26om1ftot = Normal @ Int26Gom1ftot /. Log[a_]->0 // Simplify

G26om2ftot = Normal @ Int26Gom2ftot /. Log[a_]->0 // Simplify

G26omffinite = (G26om1ftot + G26om2ftot) + O[mf]^3// Simplify

G26omfftotswave  = G26omffinite /. {H-> mc, Q-> 0} // Simplify

G34om1ftot = Normal @ Int34Gom1ftot /. Log[a_]->0 // Simplify

G34om2ftot = Normal @ Int34Gom2ftot /. Log[a_]->0 // Simplify

G34omffinite = (G34om1ftot + G34om2ftot) + O[mf]^3// Simplify

G34omfftotswave  = G34omffinite /. {H-> mc, Q-> 0} // Simplify

G35om1ftot = Normal @ Int35Gom1ftot /. Log[a_]->0 // Simplify

G35om2ftot = Normal @ Int35Gom2ftot /. Log[a_]->0 // Simplify

G35omffinite = (G35om1ftot+ G35om2ftot) + O[mf]^3// Simplify

G35omfftotswave  = G35omffinite /. {H-> mc, Q-> 0} // Simplify

G36om1ftot = Normal @ Int36Gom1ftot /. Log[a_]->0 // Simplify

G36om2ftot = Normal @ Int36Gom2ftot /. Log[a_]->0 // Simplify

G36omffinite = (G36om1ftot + G36om2ftot) + O[mf]^3// Simplify

G14omffinite - G36omffinite // Simplify

G36omfftotswave  = G36omffinite /. {H-> mc, Q-> 0} // Simplify

G45om1ftot = Normal @ Int45Gom1ftot /. Log[a_]->0 // Simplify

G45om2ftot = Normal @ Int45Gom2ftot /. Log[a_]->0 // Simplify

G45omffinite = (G45om1ftot + G45om2ftot) + O[mf]^3// Simplify

G45omfftotswave  = G45omffinite /. {H-> mc, Q-> 0} // Simplify

G46om1ftot = Normal @ Int46Gom1ftot /. Log[a_]->0 // Simplify

G46om2ftot = Normal @ Int46Gom2ftot /. Log[a_]->0 // Simplify

G46omffinite = (G46om1ftot+ G46om2ftot) + O[mf]^3// Simplify

G46omfftotswave  = G46omffinite /. {H-> mc, Q-> 0} // Simplify

G56om1ftot = Normal @ Int56Gom1ftot /. Log[a_]->0 // Simplify

G56om2ftot = Normal @ Int56Gom2ftot /. Log[a_]->0 // Simplify

G56omffinite = (G56om1ftot + G56om2ftot) + O[mf]^3// Simplify

G56omfftotswave  = G56omffinite /. {H-> mc, Q-> 0} // Simplify

Miscellaneous, to agree with thermal photon:

G1524omffinite=Simplify[G15omffinite+G24omffinite]

G1634omffinite=Simplify[G16omffinite+G34omffinite]

G2635omffinite=Simplify[G26omffinite+G35omffinite]

Add to get the total contribution from thermal fermion (to be integrated with -nF !)

realfttot=Simplify[G11omffinite+G22omffinite+G33omffinite+G12omffinite+G13omffinite+G23omffinite]/.{Q-> P, mc-> Sqrt[(H^2)-(P^2)], (Kt^2)-> (ot^2)-(mf^2),(Kt^4)-> ((((ot^2)-(mf^2)))^2)} // Simplify

realfutot=Simplify[G44omffinite+G55omffinite+G66omffinite+G45omffinite+G46omffinite+G56omffinite]/.{Q-> P, mc-> Sqrt[(H^2)-(P^2)], (Kt^2)-> (ot^2)-(mf^2),(Kt^4)-> ((((ot^2)-(mf^2)))^2)} // Simplify

realfttot - realfutot // Simplify

realftutot=Simplify[G14omffinite+G1524omffinite+G1634omffinite+G25omffinite+G2635omffinite+G36omffinite]/.{Q-> P, mc-> Sqrt[(H^2)-(P^2)], (Kt^2)-> (ot^2)-(mf^2),(Kt^4)-> ((((ot^2)-(mf^2)))^2)} // Simplify

realftot1=Simplify[(realfttot+realfutot-realftutot)] // Simplify

(Normal@(realftot1) + O[ot]^2 )/. {H-> mc, P-> 0} // Simplify

realftot=Simplify[(Normal@realftot1) +((O[ot])^4)]

Now for the thermal antifermion fermion contributions at NLOPhase Space Integral Calculations with special choice of frame of reference for minimizing calculations: After phi’, theta, and E’ integrations; only omega/ot integration left. Note no IR div in fermion so only Gtildetot given. Remove log part for now.

Phase Space Integral Calculations with special choice of frame of reference for minimizing calculations: after phi’, theta and E’ integrations:

thermal anti-fermion Gftildetot; original expressions from reala_new_clean.nb

Int1Gom1atot=(16 (e^2) Kt π (-3 H (mf^2) ((mf^2)+4 H (H-ot)) ot ((H^2)+(mc^2)-H ot)-((mf^2)+4 H (H-ot)) (4 (H^4)+(Kt^2) (mf^2)-8 (H^3) ot+3 H (mf^2) ot+4 (H^2) (ot^2)) (Q^2)+4 (H^2) (((H-ot))^2) (2 H-ot) (3 (H^2) ot+(2 H-ot) (Q^2))) (λ^4))/(3 H (mh^4) ((((mf^2)+4 H (H-ot)))^2) (H-ot))

Int1Gom2atot=-((16 (e^2) Kt π (3 H ot (8 (H^6)-(mc^2) (mf^4)+20 (H^5) ot-H (mf^2) (4 (mc^2)+(mf^2)) ot-4 (H^4) ((mf^2)-4 (ot^2))+4 (H^3) ot (-2 (mf^2)+(ot^2))-(H^2) (mf^2) (4 (mc^2)+(mf^2)+4 (ot^2)))+(4 (H^2) ((H^2)+(Kt^2)) (mf^2)+(Kt^2) (mf^4)+H (mf^2) (-4 (H^2)+4 (Kt^2)-3 (mf^2)) ot-4 (H^2) ((H^2)+2 (mf^2)) (ot^2)-8 (H^3) (ot^3)-4 (H^2) (ot^4)) (Q^2)) (λ^4))/(3 H (mh^4) (H+ot) ((((mf^2)+4 H (H+ot)))^2)))

Int2Gom1atot=-((256 (e^2) H Kt (H-ot) π (72 (H^8) (ot^2)+3 (Kt^2) (mf^4) (Q^2) (-(mc^2)+(mf^2)-2 (Q^2))-12 (H^7) ot ((Kt^2)+12 (mc^2)+3 (mf^2)+9 (ot^2)+16 (Q^2))+2 (H^6) (72 (mc^2) (ot^2)+192 (ot^2) (Q^2)+4 (Kt^2) (3 (ot^2)-8 (Q^2))+3 (mf^2) (3 (ot^2)-4 (Q^2)))-3 (H^2) (24 (mc^4) (mf^2) (ot^2)-8 (ot^2) (-4 (Kt^2)+(ot^2)) (Q^4)+(mf^6) (3 (ot^2)-2 (Q^2))+2 (mf^4) (Q^2) (-2 (Kt^2)+7 (ot^2)+(Q^2))+2 (mf^2) (Q^2) (-11 (Kt^2) (ot^2)+6 (ot^4)+8 (Kt^2) (Q^2)+3 (ot^2) (Q^2))+(mc^2) (27 (mf^4) (ot^2)+16 (Kt^2) (ot^2) (Q^2)+8 (mf^2) ((Kt^2)+3 (ot^2)) (Q^2)))+6 (H^5) ot (24 (mc^4)+3 (mf^4)-2 (Kt^2) (ot^2)+6 (ot^4)+10 (Kt^2) (Q^2)-22 (ot^2) (Q^2)+2 (mf^2) (9 (ot^2)+(Q^2))+12 (mc^2) ((mf^2)+2 ((ot^2)+(Q^2))))+3 H (mf^2) ot (3 (mc^4) (mf^2)+(mc^2) (3 (mf^4)+8 (Kt^2) (Q^2)+3 (mf^2) (Q^2))+(Q^2) ((mf^4)-2 (ot^2) (Q^2)-8 (Kt^2) ((mf^2)-2 (Q^2))+2 (mf^2) ((ot^2)+(Q^2))))+(H^3) ot (9 (mf^6)+72 (mc^4) ((mf^2)+2 (ot^2))+6 (mf^4) (9 (ot^2)+2 (Q^2))+6 (mf^2) (Q^2) (-9 (Kt^2)+22 (ot^2)+8 (Q^2))+4 (Q^2) (-17 (Kt^2) (ot^2)+15 (ot^4)+48 (Kt^2) (Q^2)-12 (ot^2) (Q^2))+3 (mc^2) (21 (mf^4)+16 (2 (Kt^2)+3 (ot^2)) (Q^2)+24 (mf^2) (3 (ot^2)+(Q^2))))-6 (H^4) (48 (mc^4) (ot^2)+(mf^4) (12 (ot^2)-(Q^2))+8 (mc^2) (6 (mf^2) (ot^2)+3 (ot^4)+(Kt^2) (Q^2)+6 (ot^2) (Q^2))+(mf^2) (15 (ot^4)+2 (Kt^2) (Q^2)+14 (ot^2) (Q^2)+4 (Q^4))+4 (Q^2) (5 (ot^4)-(ot^2) (Q^2)+(Kt^2) (-3 (ot^2)+4 (Q^2))))) (λ^4))/(9 (mh^8) (((4 (H^2)+(mf^2)-4 H ot))^3)))

Int2Gom2atot=-((256 (e^2) H Kt (H+ot) π (72 (H^8) (ot^2)+3 (Kt^2) (mf^4) (Q^2) (-(mc^2)+(mf^2)-2 (Q^2))+12 (H^7) ot ((Kt^2)+12 (mc^2)+3 (mf^2)+9 (ot^2)+16 (Q^2))+2 (H^6) (72 (mc^2) (ot^2)+192 (ot^2) (Q^2)+4 (Kt^2) (3 (ot^2)-8 (Q^2))+3 (mf^2) (3 (ot^2)-4 (Q^2)))-3 (H^2) (24 (mc^4) (mf^2) (ot^2)-8 (ot^2) (-4 (Kt^2)+(ot^2)) (Q^4)+(mf^6) (3 (ot^2)-2 (Q^2))+2 (mf^4) (Q^2) (-2 (Kt^2)+7 (ot^2)+(Q^2))+2 (mf^2) (Q^2) (-11 (Kt^2) (ot^2)+6 (ot^4)+8 (Kt^2) (Q^2)+3 (ot^2) (Q^2))+(mc^2) (27 (mf^4) (ot^2)+16 (Kt^2) (ot^2) (Q^2)+8 (mf^2) ((Kt^2)+3 (ot^2)) (Q^2)))-6 (H^5) ot (24 (mc^4)+3 (mf^4)-2 (Kt^2) (ot^2)+6 (ot^4)+10 (Kt^2) (Q^2)-22 (ot^2) (Q^2)+2 (mf^2) (9 (ot^2)+(Q^2))+12 (mc^2) ((mf^2)+2 ((ot^2)+(Q^2))))-3 H (mf^2) ot (3 (mc^4) (mf^2)+(mc^2) (3 (mf^4)+8 (Kt^2) (Q^2)+3 (mf^2) (Q^2))+(Q^2) ((mf^4)-2 (ot^2) (Q^2)-8 (Kt^2) ((mf^2)-2 (Q^2))+2 (mf^2) ((ot^2)+(Q^2))))-(H^3) ot (9 (mf^6)+72 (mc^4) ((mf^2)+2 (ot^2))+6 (mf^4) (9 (ot^2)+2 (Q^2))+6 (mf^2) (Q^2) (-9 (Kt^2)+22 (ot^2)+8 (Q^2))+4 (Q^2) (-17 (Kt^2) (ot^2)+15 (ot^4)+48 (Kt^2) (Q^2)-12 (ot^2) (Q^2))+3 (mc^2) (21 (mf^4)+16 (2 (Kt^2)+3 (ot^2)) (Q^2)+24 (mf^2) (3 (ot^2)+(Q^2))))-6 (H^4) (48 (mc^4) (ot^2)+(mf^4) (12 (ot^2)-(Q^2))+8 (mc^2) (6 (mf^2) (ot^2)+3 (ot^4)+(Kt^2) (Q^2)+6 (ot^2) (Q^2))+(mf^2) (15 (ot^4)+2 (Kt^2) (Q^2)+14 (ot^2) (Q^2)+4 (Q^4))+4 (Q^2) (5 (ot^4)-(ot^2) (Q^2)+(Kt^2) (-3 (ot^2)+4 (Q^2))))) (λ^4))/(9 (mh^8) (((4 (H^2)+(mf^2)+4 H ot))^3)))

Int3Gom1atot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H ((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))+((H (((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-2 H Kt-(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-(mf^2)+2 H (Kt+ot))))-H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int3Gom2atot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H (((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)+4 H ot))^2))+H (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2)-(Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) (-2 H Kt+(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) ((mf^2)+2 H (Kt+ot))))-H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]+H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int4Gom1atot=(16 (e^2) Kt π (-3 H (mf^2) ((mf^2)+4 H (H-ot)) ot ((H^2)+(mc^2)-H ot)-((mf^2)+4 H (H-ot)) (4 (H^4)+(Kt^2) (mf^2)-8 (H^3) ot+3 H (mf^2) ot+4 (H^2) (ot^2)) (Q^2)+4 (H^2) (((H-ot))^2) (2 H-ot) (3 (H^2) ot+(2 H-ot) (Q^2))) (λ^4))/(3 H (mh^4) ((((mf^2)+4 H (H-ot)))^2) (H-ot))

Int4Gom2atot=-((16 (e^2) Kt π (3 H ot (8 (H^6)-(mc^2) (mf^4)+20 (H^5) ot-H (mf^2) (4 (mc^2)+(mf^2)) ot-4 (H^4) ((mf^2)-4 (ot^2))+4 (H^3) ot (-2 (mf^2)+(ot^2))-(H^2) (mf^2) (4 (mc^2)+(mf^2)+4 (ot^2)))+(4 (H^2) ((H^2)+(Kt^2)) (mf^2)+(Kt^2) (mf^4)+H (mf^2) (-4 (H^2)+4 (Kt^2)-3 (mf^2)) ot-4 (H^2) ((H^2)+2 (mf^2)) (ot^2)-8 (H^3) (ot^3)-4 (H^2) (ot^4)) (Q^2)) (λ^4))/(3 H (mh^4) (H+ot) ((((mf^2)+4 H (H+ot)))^2)))

Int5Gom1atot=-((256 (e^2) H Kt (H-ot) π (72 (H^8) (ot^2)+3 (Kt^2) (mf^4) (Q^2) (-(mc^2)+(mf^2)-2 (Q^2))-12 (H^7) ot ((Kt^2)+12 (mc^2)+3 (mf^2)+9 (ot^2)+16 (Q^2))+2 (H^6) (3 (4 (Kt^2)+3 (8 (mc^2)+(mf^2))) (ot^2)-4 (8 (Kt^2)+3 (mf^2)-48 (ot^2)) (Q^2))+6 (H^4) (-12 (((2 (mc^2)+(mf^2)))^2) (ot^2)-3 (8 (mc^2)+5 (mf^2)) (ot^4)+((mf^4)-2 (24 (mc^2)+7 (mf^2)) (ot^2)-20 (ot^4)-2 (Kt^2) (4 (mc^2)+(mf^2)-6 (ot^2))) (Q^2)-4 (4 (Kt^2)+(mf^2)-(ot^2)) (Q^4))+(H^3) ot (9 (mf^2) (8 (mc^4)+7 (mc^2) (mf^2)+(mf^4))+18 (8 (mc^4)+12 (mc^2) (mf^2)+3 (mf^4)) (ot^2)+2 ((Kt^2) (48 (mc^2)-27 (mf^2)-34 (ot^2))+6 ((mf^4)+11 (mf^2) (ot^2)+5 (ot^4)+6 (mc^2) ((mf^2)+2 (ot^2)))) (Q^2)+48 (4 (Kt^2)+(mf^2)-(ot^2)) (Q^4))+3 H (mf^2) ot (3 (mc^2) (mf^2) ((mc^2)+(mf^2))+(8 (Kt^2) (mc-mf) (mc+mf)+(mf^2) (3 (mc^2)+(mf^2)+2 (ot^2))) (Q^2)+2 (8 (Kt^2)+(mf^2)-(ot^2)) (Q^4))+3 (H^2) (-3 (mf^2) ((mc^2)+(mf^2)) (8 (mc^2)+(mf^2)) (ot^2)+2 ((mf^6)-7 (mf^4) (ot^2)-6 (mf^2) (2 (mc^2) (ot^2)+(ot^4))+(Kt^2) (2 (mf^4)+11 (mf^2) (ot^2)-4 (mc^2) ((mf^2)+2 (ot^2)))) (Q^2)-2 ((mf^4)+3 (mf^2) (ot^2)-4 (ot^4)+8 (Kt^2) ((mf^2)+2 (ot^2))) (Q^4))+6 (H^5) ot (24 (mc^4)+3 (mf^4)-2 (Kt^2) (ot^2)+18 (mf^2) (ot^2)+6 (ot^4)+2 (5 (Kt^2)+(mf^2)-11 (ot^2)) (Q^2)+12 (mc^2) ((mf^2)+2 ((ot^2)+(Q^2))))) (λ^4))/(9 (mh^8) ((((mf^2)+4 H (H-ot)))^3)))

Int5Gom2atot=-((256 (e^2) H Kt (H+ot) π (72 (H^8) (ot^2)+3 (Kt^2) (mf^4) (Q^2) (-(mc^2)+(mf^2)-2 (Q^2))+12 (H^7) ot ((Kt^2)+12 (mc^2)+3 (mf^2)+9 (ot^2)+16 (Q^2))+2 (H^6) (3 (4 (Kt^2)+3 (8 (mc^2)+(mf^2))) (ot^2)-4 (8 (Kt^2)+3 (mf^2)-48 (ot^2)) (Q^2))+(H^3) ot (-9 (mf^2) (8 (mc^4)+7 (mc^2) (mf^2)+(mf^4))-18 (8 (mc^4)+12 (mc^2) (mf^2)+3 (mf^4)) (ot^2)-2 ((Kt^2) (48 (mc^2)-27 (mf^2)-34 (ot^2))+6 ((mf^4)+11 (mf^2) (ot^2)+5 (ot^4)+6 (mc^2) ((mf^2)+2 (ot^2)))) (Q^2)-48 (4 (Kt^2)+(mf^2)-(ot^2)) (Q^4))+6 (H^4) (-12 (((2 (mc^2)+(mf^2)))^2) (ot^2)-3 (8 (mc^2)+5 (mf^2)) (ot^4)+((mf^4)-2 (24 (mc^2)+7 (mf^2)) (ot^2)-20 (ot^4)-2 (Kt^2) (4 (mc^2)+(mf^2)-6 (ot^2))) (Q^2)-4 (4 (Kt^2)+(mf^2)-(ot^2)) (Q^4))+3 H (mf^2) ot (-3 (mc^2) (mf^2) ((mc^2)+(mf^2))-(8 (Kt^2) (mc-mf) (mc+mf)+(mf^2) (3 (mc^2)+(mf^2)+2 (ot^2))) (Q^2)-2 (8 (Kt^2)+(mf^2)-(ot^2)) (Q^4))+3 (H^2) (-3 (mf^2) ((mc^2)+(mf^2)) (8 (mc^2)+(mf^2)) (ot^2)+2 ((mf^6)-7 (mf^4) (ot^2)-6 (mf^2) (2 (mc^2) (ot^2)+(ot^4))+(Kt^2) (2 (mf^4)+11 (mf^2) (ot^2)-4 (mc^2) ((mf^2)+2 (ot^2)))) (Q^2)-2 ((mf^4)+3 (mf^2) (ot^2)-4 (ot^4)+8 (Kt^2) ((mf^2)+2 (ot^2))) (Q^4))-6 (H^5) ot (24 (mc^4)+3 (mf^4)-2 (Kt^2) (ot^2)+18 (mf^2) (ot^2)+6 (ot^4)+2 (5 (Kt^2)+(mf^2)-11 (ot^2)) (Q^2)+12 (mc^2) ((mf^2)+2 ((ot^2)+(Q^2))))) (λ^4))/(9 (mh^8) ((((mf^2)+4 H (H+ot)))^3)))

Int6Gom1atot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H ((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))+((H (((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)-4 H ot))^2))-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (H^4)-6 (H^3) ot+(mf^2) (Q^2)+2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-2 H Kt-(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)-4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H-ot) (-(mf^2)+2 H (Kt+ot))))-H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+H ((mf^2) (3 (mc^2)+(Q^2))-(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int6Gom2atot=ConditionalExpression[-(1/(3 (H^2) (mh^4)))4 (e^2) π (λ^4) (-((H (((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2)-(Q^2)))/(((4 (H^2)+(mf^2)+4 H ot))^2))+H (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2)-(Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (6 (H^4)+6 (H^3) ot+(mf^2) (Q^2)-2 H ot (Q^2)-3 (H^2) (2 (mc^2)+(mf^2)+2 (Q^2)))+(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) (-2 H Kt+(mf^2)+2 H ot)))-(((mf^2) (4 (H^2)+(mf^2)+4 H ot) (((Kt^2)-(ot^2)) (Q^2)+(H^2) (3 (mc^2)+4 (Q^2))))/((H+ot) ((mf^2)+2 H (Kt+ot))))-H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]+H (-((mf^2) (3 (mc^2)+(Q^2)))+(H^2) (6 (mc^2)+3 (mf^2)+8 (Q^2))+H (6 (mc^2) ot+8 ot (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int12Gom1atot=(128 (e^2) Kt π (-3 H ot (4 (H^6)-(mc^2) (mf^2) ((mc^2)+(mf^2))-10 (H^5) ot+(H^3) (8 (mc^2)+3 (mf^2)) ot+H (4 (mc^4)+6 (mc^2) (mf^2)+(mf^4)) ot+6 (H^4) (ot^2)+(H^2) (-(((2 (mc^2)+(mf^2)))^2)-(8 (mc^2)+3 (mf^2)) (ot^2)))+((Kt^2) (mf^4)-12 (H^5) ot-2 (H^4) (4 (Kt^2)+(mf^2)-(ot^2))+H (mf^2) ot (-4 (Kt^2)+6 (mc^2)+2 (mf^2)+(ot^2))+3 (H^3) ot (2 (Kt^2)+8 (mc^2)+3 (mf^2)+4 (ot^2))+(H^2) ((mf^2) ((Kt^2)+(mf^2))+2 ((Kt^2)-12 (mc^2)-7 (mf^2)) (ot^2)-2 (ot^4))) (Q^2)+3 H ((mf^2)+4 H (H-ot)) ot (Q^4)) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H-ot)))^2))

Int12Gom2atot=-((128 (e^2) Kt π (3 H ot (-4 (H^6)+(mc^2) (mf^2) ((mc^2)+(mf^2))-10 (H^5) ot+(H^3) (8 (mc^2)+3 (mf^2)) ot+H (4 (mc^4)+6 (mc^2) (mf^2)+(mf^4)) ot-6 (H^4) (ot^2)+(H^2) ((((2 (mc^2)+(mf^2)))^2)+(8 (mc^2)+3 (mf^2)) (ot^2)))+(-((Kt^2) (mf^4))-12 (H^5) ot+2 (H^4) (4 (Kt^2)+(mf^2)-(ot^2))+H (mf^2) ot (-4 (Kt^2)+6 (mc^2)+2 (mf^2)+(ot^2))+3 (H^3) ot (2 (Kt^2)+8 (mc^2)+3 (mf^2)+4 (ot^2))-(H^2) ((mf^2) ((Kt^2)+(mf^2))+2 ((Kt^2)-12 (mc^2)-7 (mf^2)) (ot^2)-2 (ot^4))) (Q^2)+3 H ot ((mf^2)+4 H (H+ot)) (Q^4)) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H+ot)))^2)))

Int13Gom1atot=ConditionalExpression[(1/(3 (H^2) (mh^4) (H-ot)))4 (e^2) π (λ^4) (-((((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2)))+((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int13Gom2atot=ConditionalExpression[-(1/(3 (H^2) (mh^4) (H+ot)))4 (e^2) π (λ^4) (((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2)))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))H (H+ot) ((mf^2)+2 H (Kt+ot)) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+H (H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int14Gom1atot=(16 (e^2) Kt (mc^2) ((mf^2)-2 H ot) (-4 (H^4)+(mf^4)+8 (H^3) ot-4 H (mf^2) ot+4 (H^2) (mf-ot) (mf+ot)) π (λ^4))/(H (mh^4) ((((mf^2)+4 H (H-ot)))^2) (H-ot))

Int14Gom2atot=(16 (e^2) Kt (mc^2) ((mf^2)+2 H ot) (-4 (H^4)+(mf^4)-8 (H^3) ot+4 H (mf^2) ot+4 (H^2) (mf-ot) (mf+ot)) π (λ^4))/(H (mh^4) (H+ot) ((((mf^2)+4 H (H+ot)))^2))

Int15Gom1atot=-((64 (e^2) Kt (mc^2) π (6 (H^5) ot-(H^4) (5 (mf^2)+2 (ot^2))+2 (H^3) ot (-3 (mc^2)+(mf^2)-2 (ot^2)-3 (Q^2))+(mf^4) ((mc^2)+(mf^2)+(Q^2))-5 H (mf^2) ot ((mc^2)+(mf^2)+(Q^2))+(H^2) ((mf^4)+3 (mc^2) ((mf^2)+2 (ot^2))+6 (ot^2) (Q^2)+(mf^2) (7 (ot^2)+3 (Q^2)))) (λ^4))/((mh^6) ((((mf^2)+4 H (H-ot)))^2)))

Int15Gom2atot=(64 (e^2) Kt (mc^2) π (-((H^2) (H+ot) (2 H+ot) (-2 (H^2)+2 (mc^2)+3 (mf^2)+4 H ot+2 (Q^2)))-((mf^2)+4 H (H+ot)) ((H^4)-3 (H^3) ot+(mf^2) ((mc^2)+(mf^2)+(Q^2))+H ot ((mc^2)+(mf^2)+(Q^2))-(H^2) ((mc^2)+3 (mf^2)+(Q^2)))) (λ^4))/((mh^6) ((((mf^2)+4 H (H+ot)))^2))

Int16Gom1atot=ConditionalExpression[-(1/((H^2) (mh^4) (H-ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H-ot))/((mf^2)+4 H (H-ot)))+(-3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]-Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))])),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int16Gom2atot=ConditionalExpression[-(1/((H^2) (mh^4) (H+ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H+ot))/((mf^2)+4 H (H+ot)))+(3 (H^2) (mf^2)-(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int23Gom1atot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-2 H Kt-(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4))+(1/(4 (H^2)+(mf^2)-4 H ot))(H-ot) (-(mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4))+(((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))-((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int23Gom2atot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2)))+(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int24Gom1atot=-((64 (e^2) Kt (mc^2) π (6 (H^5) ot-(H^4) (5 (mf^2)+2 (ot^2))+2 (H^3) ot (-3 (mc^2)+(mf^2)-2 (ot^2)-3 (Q^2))+(mf^4) ((mc^2)+(mf^2)+(Q^2))-5 H (mf^2) ot ((mc^2)+(mf^2)+(Q^2))+(H^2) ((mf^4)+3 (mc^2) ((mf^2)+2 (ot^2))+6 (ot^2) (Q^2)+(mf^2) (7 (ot^2)+3 (Q^2)))) (λ^4))/((mh^6) ((((mf^2)+4 H (H-ot)))^2)))

Int24Gom2atot=(64 (e^2) Kt (mc^2) π (-((H^2) (H+ot) (2 H+ot) (-2 (H^2)+2 (mc^2)+3 (mf^2)+4 H ot+2 (Q^2)))-((mf^2)+4 H (H+ot)) ((H^4)-3 (H^3) ot+(mf^2) ((mc^2)+(mf^2)+(Q^2))+H ot ((mc^2)+(mf^2)+(Q^2))-(H^2) ((mc^2)+3 (mf^2)+(Q^2)))) (λ^4))/((mh^6) ((((mf^2)+4 H (H+ot)))^2))

Int25Gom1atot=(256 (e^2) H Kt (mc^2) (H-ot) π (8 (H^6) ((Kt^2)+3 (ot^2))+3 (mf^6) ((mf^2)+(Q^2))-24 H (mf^4) ot ((mf^2)+(Q^2))-16 (H^5) ot ((Kt^2)+3 ((mf^2)+(ot^2)+(Q^2)))+3 (H^2) (5 (mf^6)+20 (mf^2) (ot^2) (Q^2)+(mf^4) (22 (ot^2)+6 (Q^2)))-6 (H^3) ot (13 (mf^4)+8 (ot^2) (Q^2)+2 (mf^2) (6 (ot^2)+7 (Q^2)))+2 (H^4) (9 (mf^4)+12 (mf^2) (5 (ot^2)+(Q^2))+4 (ot^2) ((Kt^2)+3 (ot^2)+12 (Q^2)))) (λ^4))/(3 (mh^8) (((4 (H^2)+(mf^2)-4 H ot))^3))

Int25Gom2atot=(256 (e^2) H Kt (mc^2) (H+ot) π (8 (H^6) (Kt^2)+18 (H^4) (mf^4)+15 (H^2) (mf^6)+3 (mf^8)+16 (H^5) (Kt^2) ot+48 (H^5) (mf^2) ot+78 (H^3) (mf^4) ot+24 H (mf^6) ot+24 (H^6) (ot^2)+8 (H^4) (Kt^2) (ot^2)+120 (H^4) (mf^2) (ot^2)+66 (H^2) (mf^4) (ot^2)+48 (H^5) (ot^3)+72 (H^3) (mf^2) (ot^3)+24 (H^4) (ot^4)+3 ((mf^2)+2 H ot) ((mf^2)+2 H (H+ot)) ((mf^2)+4 H (H+ot)) (Q^2)) (λ^4))/(3 (mh^8) ((((mf^2)+4 H (H+ot)))^3))

Int26Gom1atot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (-2 (mc^2)+5 (mf^2)-2 H (2 H+ot)+((4 (H^2) (H-ot) (2 H-Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))-2 (Q^2)))/(4 (H^2)+(mf^2)-4 H ot)-(H (H-ot) (-(mf^2)+2 H (Kt+ot)) (-2 (mc^2)+5 (mf^2)-2 H (2 H+ot)+((4 (H^2) (H-ot) (2 H+Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))-2 (Q^2)))/(4 (H^2)+(mf^2)-4 H ot)+(-3 (H^2) (mf^2)+2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+(3 (H^2) (mf^2)-2 (mf^4)-4 (H^3) ot+3 H (mf^2) ot) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int26Gom2atot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((4 (H^2) Kt (H+ot) (8 (H^4)+(mf^2) (2 (mc^2)-5 (mf^2)+2 (Q^2))+4 H ot (2 (mc^2)-5 (mf^2)+2 (Q^2))+2 (H^2) (4 (mc^2)-7 (mf^2)-4 (ot^2)+4 (Q^2))))/((((mf^2)+4 H (H+ot)))^2)+(3 (H^2) (mf^2)-2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int34Gom1atot=ConditionalExpression[-(1/((H^2) (mh^4) (H-ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H-ot))/((mf^2)+4 H (H-ot)))+(-3 (H^2) (mf^2)+(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]-Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))])),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int34Gom2atot=ConditionalExpression[-(1/((H^2) (mh^4) (H+ot)))4 (e^2) (mc^2) π (λ^4) (((4 (H^2) Kt (4 (H^2)-(mf^2)) (H+ot))/((mf^2)+4 H (H+ot)))+(3 (H^2) (mf^2)-(mf^4)+4 (H^3) ot-H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int35Gom1atot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (-2 (mc^2)+5 (mf^2)-2 H (2 H+ot)+((4 (H^2) (H-ot) (2 H-Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))-2 (Q^2))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (-2 (mc^2)+5 (mf^2)-2 H (2 H+ot)+((4 (H^2) (H-ot) (2 H+Kt-ot))/(4 (H^2)+(mf^2)-4 H ot))-2 (Q^2))+(-3 (H^2) (mf^2)+2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+(3 (H^2) (mf^2)-2 (mf^4)-4 (H^3) ot+3 H (mf^2) ot) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int35Gom2atot=ConditionalExpression[(1/(H (mh^6)))8 (e^2) (mc^2) π (λ^4) ((4 (H^2) Kt (H+ot) (8 (H^4)+(mf^2) (2 (mc^2)-5 (mf^2)+2 (Q^2))+4 H ot (2 (mc^2)-5 (mf^2)+2 (Q^2))+2 (H^2) (4 (mc^2)-7 (mf^2)-4 (ot^2)+4 (Q^2))))/((((mf^2)+4 H (H+ot)))^2)+(3 (H^2) (mf^2)-2 (mf^4)+4 (H^3) ot-3 H (mf^2) ot) (Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))])),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/((mf^2)+4 H (H+ot)))≠0&&((2 H+Kt+ot)/((mf^2)+4 H (H+ot)))≠0]

Int36Gom1atot=ConditionalExpression[-(1/((H^2) (mh^4)))4 (e^2) (mc^2) π (λ^4) ((((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)-4 H ot))/((H-ot) (-2 H Kt-(mf^2)+2 H ot)))-(((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)-4 H ot))/((H-ot) (-(mf^2)+2 H (Kt+ot))))+2 H ((mf^2)+2 H (H-ot)) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-2 H ((mf^2)+2 H (H-ot)) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int36Gom2atot=ConditionalExpression[-(1/((H^2) (mh^4)))4 (e^2) (mc^2) π (λ^4) ((((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)+4 H ot))/((H+ot) (-2 H Kt+(mf^2)+2 H ot)))-(((2 (H^2) (mf^2)-(mf^4)) (4 (H^2)+(mf^2)+4 H ot))/((H+ot) ((mf^2)+2 H (Kt+ot))))-2 H ((mf^2)+2 H (H+ot)) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]+2 H ((mf^2)+2 H (H+ot)) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int45Gom1atot=(128 (e^2) Kt π (-3 H ot (4 (H^6)-(mc^2) (mf^2) ((mc^2)+(mf^2))-10 (H^5) ot+(H^3) (8 (mc^2)+3 (mf^2)) ot+H (4 (mc^4)+6 (mc^2) (mf^2)+(mf^4)) ot+6 (H^4) (ot^2)+(H^2) (-(((2 (mc^2)+(mf^2)))^2)-(8 (mc^2)+3 (mf^2)) (ot^2)))+((Kt^2) (mf^4)-12 (H^5) ot-2 (H^4) (4 (Kt^2)+(mf^2)-(ot^2))+H (mf^2) ot (-4 (Kt^2)+6 (mc^2)+2 (mf^2)+(ot^2))+3 (H^3) ot (2 (Kt^2)+8 (mc^2)+3 (mf^2)+4 (ot^2))+(H^2) ((mf^2) ((Kt^2)+(mf^2))+2 ((Kt^2)-12 (mc^2)-7 (mf^2)) (ot^2)-2 (ot^4))) (Q^2)+3 H ((mf^2)+4 H (H-ot)) ot (Q^4)) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H-ot)))^2))

Int45Gom2atot=-((128 (e^2) Kt π (3 H ot (-4 (H^6)+(mc^2) (mf^2) ((mc^2)+(mf^2))-10 (H^5) ot+(H^3) (8 (mc^2)+3 (mf^2)) ot+H (4 (mc^4)+6 (mc^2) (mf^2)+(mf^4)) ot-6 (H^4) (ot^2)+(H^2) ((((2 (mc^2)+(mf^2)))^2)+(8 (mc^2)+3 (mf^2)) (ot^2)))+(-((Kt^2) (mf^4))-12 (H^5) ot+2 (H^4) (4 (Kt^2)+(mf^2)-(ot^2))+H (mf^2) ot (-4 (Kt^2)+6 (mc^2)+2 (mf^2)+(ot^2))+3 (H^3) ot (2 (Kt^2)+8 (mc^2)+3 (mf^2)+4 (ot^2))-(H^2) ((mf^2) ((Kt^2)+(mf^2))+2 ((Kt^2)-12 (mc^2)-7 (mf^2)) (ot^2)-2 (ot^4))) (Q^2)+3 H ot ((mf^2)+4 H (H+ot)) (Q^4)) (λ^4))/(3 (mh^6) ((((mf^2)+4 H (H+ot)))^2)))

Int46Gom1atot=ConditionalExpression[(1/(3 (H^2) (mh^4) (H-ot)))4 (e^2) π (λ^4) (-((((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2)))+((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H-2 ot))+(-(mf^2)+2 H (H+2 ot)) (Q^2)))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-2 H Kt-(mf^2)+2 H ot) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-(1/(4 (H^2)+(mf^2)-4 H ot))H (H-ot) (-(mf^2)+2 H (Kt+ot)) (6 (mc^4)+18 (H^3) ot+3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))+(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2))+(H^2) (6 (mc^2)-3 (mf^2)-12 (ot^2)+10 (Q^2)))-((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]+((mf^2) (-2 (Kt^2)+(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (-3 (mf^2) (mc-ot) (mc+ot)-4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int46Gom2atot=ConditionalExpression[-(1/(3 (H^2) (mh^4) (H+ot)))4 (e^2) π (λ^4) (((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2)))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (3 (H^2) (2 (mc^2)+(mf^2)+2 H (H+2 ot))-(-2 (H^2)+(mf^2)+4 H ot) (Q^2))-(1/(4 (H^2)+(mf^2)+4 H ot))H (H+ot) ((mf^2)+2 H (Kt+ot)) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+H (H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))) (-6 (mc^4)+18 (H^3) ot+(H^2) (-6 (mc^2)+3 (mf^2)+12 (ot^2)-10 (Q^2))-3 (mc^2) ((mf^2)+4 (Q^2))-2 H ot (3 (mc^2)+5 (Q^2))-(Q^2) ((mf^2)+4 (ot^2)+6 (Q^2)))+((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-((mf^2) (2 (Kt^2)-(ot^2)) (Q^2)-3 H (mf^2) ot ((mc^2)+(Q^2))+(H^3) ot (12 (mc^2)-3 (mf^2)+16 (Q^2))+(H^2) (3 (mf^2) (mc-ot) (mc+ot)+4 (-(Kt^2)+(mf^2)+(ot^2)) (Q^2))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Int56Gom1atot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(((H-ot) (-2 H Kt-(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4)))/(4 (H^2)+(mf^2)-4 H ot))+((H-ot) (-(mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (-(H (mf^2))+2 (H^2) ot-(mf^2) ot))+(4 (H^3)+4 (H^2) ot+(-2 (mc^2)+(mf^2)) ot+H (2 (Kt^2)+10 (mc^2)-(mf^2)-2 (ot^2))) (Q^2)+2 (2 H-ot) (Q^4)))/(4 (H^2)+(mf^2)-4 H ot)+(((((mf^2)+2 H (Kt-ot)))^2) (((H-ot))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))-((((H-ot))^2) ((((mf^2)-2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)-4 H ot))^2))+(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-(2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (-3 (mc^2) (mf^2)+2 ((Kt^2)-2 (mf^2)-(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]),Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]>4||Re[((2 H Kt+(mf^2)-2 H ot)/(H Kt))]<0||((2 H Kt+(mf^2)-2 H ot)/(H Kt))∉(Reals)]

Int56Gom2atot=ConditionalExpression[(1/(3 H (mh^6)))16 (e^2) π (λ^4) (-(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) (-2 H Kt+(mf^2)+2 H ot) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+(1/(4 (H^2)+(mf^2)+4 H ot))(H+ot) ((mf^2)+2 H (Kt+ot)) (3 H (2 (mc^4)+(mc^2) (mf^2)+H (mf^2) ot-(H^2) ((mf^2)+2 H ot))+(H (4 (H^2)+2 (Kt^2)+10 (mc^2)-(mf^2))-(4 (H^2)-2 (mc^2)+(mf^2)) ot-2 H (ot^2)) (Q^2)+2 (2 H+ot) (Q^4))+((((H+ot))^2) ((((mf^2)+2 H (Kt+ot)))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2))))/(2 (((4 (H^2)+(mf^2)+4 H ot))^2))-(1/2) (((H+ot-((2 H (H+ot) (2 H+Kt+ot))/(4 (H^2)+(mf^2)+4 H ot))))^2) (-((mf^2) (Q^2))+(H^2) (6 (mc^2)+3 (mf^2)+4 (Q^2)))+(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]-(-2 (Kt-ot) (Kt+ot) (Q^2) ((mc^2)-(mf^2)+(Q^2))+2 (H^3) ot (3 (mc^2)+5 (Q^2))+(H^2) (3 (mc^2) (mf^2)+2 (-(Kt^2)+2 (mf^2)+(ot^2)) (Q^2))+H ot (-3 (mc^2) (mf^2)+2 ((Kt^2)+(mc^2)-2 (mf^2)-(ot^2)) (Q^2)+2 (Q^4))) Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]),(((2 H-Kt+ot)/Kt)∉(Reals)||Re[((2 H-Kt+ot)/Kt)]>0||Re[((2 H-Kt+ot)/Kt)]<-2)&&(((2 H+Kt+ot)/Kt)∉(Reals)||Re[((2 H+Kt+ot)/Kt)]>2||Re[((2 H+Kt+ot)/Kt)]<0)&&((((mf^2)+2 H (Kt+ot))/(H Kt))∉(Reals)||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]>4||Re[(((mf^2)+2 H (Kt+ot))/(H Kt))]<0)&&((H (H+ot))/(4 (H^2)+(mf^2)+4 H ot))≠0&&((2 H+Kt+ot)/(4 (H^2)+(mf^2)+4 H ot))≠0]

Simplifying the thermal antifermion collinear divergence contributions:

G1om1atot = Normal @ Int1Gom1atot /. Log[a_]->0 // Simplify

G1om2atot = Normal @ Int1Gom2atot /. Log[a_]->0 // Simplify

G11omafinite = (G1om1atot+ G1om2atot) + O[mf]^3// Simplify

G11omaatotswave  = G11omafinite /. {H-> mc, Q-> 0} // Simplify

G2om1atot = Normal @ Int2Gom1atot /. Log[a_]->0 // Simplify

G2om2atot = Normal @ Int2Gom2atot /. Log[a_]->0 // Simplify

G22omafinite = (G2om1atot + G2om2atot) + O[mf]^3// Simplify

G22omaatotswave  = G22omafinite /. {H-> mc, Q-> 0} // Simplify

G3om1atot = Normal @ Int3Gom1atot /. Log[a_]->0 // Expand // Simplify

G3om2atot = Normal @ Int3Gom2atot /. Log[a_]->0 // Expand // Simplify

G33omafinite = (((ot-Kt) (Kt+ot)(G3om1atot+ G3om2atot))/(mf^2)) + O[mf]^3/ Simplify

G33omaatotswave  = G33omafinite /. {H-> mc, Q-> 0} // Simplify

G4om1atot = Normal @ Int4Gom1atot /. Log[a_]->0 // Simplify

G4om2atot = Normal @ Int4Gom2atot /. Log[a_]->0 // Simplify

G44omafinite = (G4om1atot + G4om2atot) + O[mf]^3// Simplify

G44omaatotswave  = G44omafinite /. {H-> mc, Q-> 0} // Simplify

G5om1atot = Normal @ Int5Gom1atot /. Log[a_]->0 // Simplify

G5om2atot = Normal @ Int5Gom2atot /. Log[a_]->0 // Simplify

G55omafinite = (G5om1atot + G5om2atot) + O[mf]^3// Simplify

G55omaatotswave  = G55omafinite /. {H-> mc, Q-> 0} // Simplify

G6om1atot = Normal @ Int6Gom1atot /. Log[a_]->0 //Expand // Simplify

G6om2atot = Normal @ Int6Gom2atot /. Log[a_]->0 // Expand // Simplify

G66omafinite = ((ot-Kt) (Kt+ot)(G6om1atot + G6om2atot)/(mf^2)) + O[mf]^3// Simplify

G66omaatotswave  = G66omafinite /. {H-> mc, Q-> 0} // Simplify

G12om1atot = Normal @ Int12Gom1atot /. Log[a_]->0 // Simplify

G12om2atot = Normal @ Int12Gom2atot /. Log[a_]->0 // Simplify

G12omafinite = (G12om1atot + G12om2atot) + O[mf]^3// Simplify

G12omaatotswave  = G12omafinite /. {H-> mc, Q-> 0} // Simplify

G13om1atot = Normal @ Int13Gom1atot /. Log[a_]->0 // Simplify

G13om2atot = Normal @ Int13Gom2atot /. Log[a_]->0 // Simplify

G13omafinite = (G13om1atot + G13om2atot) + O[mf]^3// Simplify

G13omaatotswave  = G13omafinite /. {H-> mc, Q-> 0} // Simplify

G14om1atot = Normal @ Int14Gom1atot /. Log[a_]->0 // Simplify

G14om2atot = Normal @ Int14Gom2atot /. Log[a_]->0 // Simplify

G14omafinite = (G14om1atot + G14om2atot) + O[mf]^3// Simplify

G14omaatotswave  = G14omafinite /. {H-> mc, Q-> 0} // Simplify

G15om1atot = Normal @ Int15Gom1atot /. Log[a_]->0 // Simplify

G15om2atot = Normal @ Int15Gom2atot /. Log[a_]->0 // Simplify

G15omafinite = (G15om1atot + G15om2atot) + O[mf]^3// Simplify

G15omaatotswave  = G15omafinite /. {H-> mc, Q-> 0} // Simplify

G16om1atot = Normal @ Int16Gom1atot /. Log[a_]->0 // Simplify

G16om2atot = Normal @ Int16Gom2atot /. Log[a_]->0 // Simplify

G16omafinite = (G16om1atot + G16om2atot) + O[mf]^3// Simplify

G16omaatotswave  = G16omafinite /. {H-> mc, Q-> 0} // Simplify

G23om1atot = Normal @ Int23Gom1atot /. Log[a_]->0 // Simplify

G23om2atot = Normal @ Int23Gom2atot /. Log[a_]->0 // Simplify

G23omafinite = (G23om1atot + G23om2atot) + O[mf]^3// Simplify

G23omaatotswave  = G23omafinite /. {H-> mc, Q-> 0} // Simplify

G24om1atot = Normal @ Int24Gom1atot /. Log[a_]->0 // Simplify

G24om2atot = Normal @ Int24Gom2atot /. Log[a_]->0 // Simplify

G24omafinite = (G24om1atot + G24om2atot) + O[mf]^3// Simplify

G24omaatotswave  = G24omafinite /. {H-> mc, Q-> 0} // Simplify

G25om1atot = Normal @ Int25Gom1atot /. Log[a_]->0 // Expand // Simplify

G25om2atot = Normal @ Int25Gom2atot /. Log[a_]->0 // Expand // Simplify

G25omafinite = (G25om1atot + G25om2atot) + O[mf]^3// Simplify

G25omaatotswave  = G25omafinite /. {H-> mc, Q-> 0} // Simplify

G26om1atot = Normal @ Int26Gom1atot /. Log[a_]->0 // Simplify

G26om2atot = Normal @ Int26Gom2atot /. Log[a_]->0 // Simplify

G26omafinite = (G26om1atot + G26om2atot) + O[mf]^3// Simplify

G26omaatotswave  = G26omafinite /. {H-> mc, Q-> 0} // Simplify

G34om1atot = Normal @ Int34Gom1atot /. Log[a_]->0 // Simplify

G34om2atot = Normal @ Int34Gom2atot /. Log[a_]->0 // Simplify

G34omafinite = (G34om1atot + G34om2atot) + O[mf]^3// Simplify

G34omaatotswave  = G34omafinite /. {H-> mc, Q-> 0} // Simplify

G35om1atot = Normal @ Int35Gom1atot /. Log[a_]->0 // Simplify

G35om2atot = Normal @ Int35Gom2atot /. Log[a_]->0 // Simplify

G35omafinite = (G35om1atot + G35om2atot) + O[mf]^3// Simplify

G35omaatotswave  = G35omafinite /. {H-> mc, Q-> 0} // Simplify

G36om1atot = Normal @ Int36Gom1atot /. Log[a_]->0 // Simplify

G36om2atot = Normal @ Int36Gom2atot /. Log[a_]->0 // Simplify

G36omafinite = (((ot-Kt) (Kt+ot)(G36om1atot + G36om2atot))/(mf^2)) + O[mf]^3// Simplify

G36omaatotswave  = G36omafinite /. {H-> mc, Q-> 0} // Simplify

G45om1atot = Normal @ Int45Gom1atot /. Log[a_]->0 // Simplify

G45om2atot = Normal @ Int45Gom2atot /. Log[a_]->0 // Simplify

G45omafinite = (G45om1atot + G45om2atot) + O[mf]^3// Simplify

G45omaatotswave  = G45omafinite /. {H-> mc, Q-> 0} // Simplify

G46om1atot = Normal @ Int46Gom1atot /. Log[a_]->0 // Simplify

G46om2atot = Normal @ Int46Gom2atot /. Log[a_]->0 // Simplify

G46omafinite = (G46om1atot + G46om2atot) + O[mf]^3// Simplify

G46omaatotswave  = G46omafinite /. {H-> mc, Q-> 0} // Simplify

G56om1atot = Normal @ Int56Gom1atot /. Log[a_]->0 // Simplify

G56om2atot = Normal @ Int56Gom2atot /. Log[a_]->0 // Simplify

G56omafinite = (G56om1atot + G56om2atot) + O[mf]^3// Simplify

G56omaatotswave  = G56omafinite /. {H-> mc, Q-> 0} // Simplify

Miscellaneous, to agree with thermal photon:

G1524omafinite=Simplify[G15omafinite+G24omafinite]

G1634omafinite=Simplify[G16omafinite+G34omafinite]

G2635omafinite=Simplify[G26omafinite+G35omafinite]

Combining to get total finite thermal anti-fermion contribution (to be multiplied with -nF)

realattot=Simplify[G11omafinite+G22omafinite+G33omafinite+G12omafinite+G13omafinite+G23omafinite]/.{Q-> P,mc-> Sqrt[(H^2)-(P^2)], (Kt^2)-> (ot^2)-(mf^2),(Kt^4)-> ((((ot^2)-(mf^2)))^2)} // Simplify

realautot=Simplify[G44omafinite+G55omafinite+G66omafinite+G45omafinite+G46omafinite+G56omafinite] /.{Q-> P,mc-> Sqrt[(H^2)-(P^2)], (Kt^2)-> (ot^2)-(mf^2),(Kt^4)-> ((((ot^2)-(mf^2)))^2)} // Simplify

realattot - realautot // Simplify

realattot - realfttot // Simplify

realautot - realfutot // Simplify

realatutot=Simplify[G14omafinite+G1524omafinite+G1634omafinite+G25omafinite+G2635omafinite+G36omafinite] /.{Q-> P,mc-> Sqrt[(H^2)-(P^2)], (Kt^2)-> (ot^2)-(mf^2),(Kt^4)-> ((((ot^2)-(mf^2)))^2)} // Simplify

realatutot - realftutot // Simplify

realatot1=Simplify[(realattot+realautot-realatutot)] // Simplify

realatot1 - realftot1 // Simplify

(Normal@(realatot1) + O[ot]^2 )/. {H-> mc, P-> 0} // Simplify

realatot=Simplify[(Normal@realatot1) +((O[ot])^4)]

(Simplify[realftot-realatot]) // Simplify

Sum fermion and anti - fermion contributions :

realfatot=(Simplify[(realftot+realatot)])  // Simplify

realfatotswave = realfatot /. {H-> mc, P-> 0} // Simplify

realfatotDirac=Simplify[(Normal@(realfttot+realattot))+((O[ot])^4)]

realfatotDiracswave = realfatotDirac/. {H-> mc, P-> 0} // Simplify

Real photon "self energy" nonlog terms:

RNLselfs =   (* NL = nonlog *)Normal@((G11omnolog + G33omnolog + G44omnolog + G66omnolog - (G14omnolog + G36omnolog) +K11omrem+K33omrem+K44omrem+K66omrem-(K14omrem+K36omrem)))// Simplify

RNLselffs1 =(((((H-ot))^2) (((H+ot))^2)/((((H^2)-(ot^2)))^2)((G11omffinite + G33omffinite + G44omffinite + G66omffinite - (G14omffinite + G36omffinite)) )/Kt) /. {Kt-> Sqrt[(ot^2)-(mf^2)]} )Kt // Simplify

RNLselffs = (Normal@RNLselffs1+ O[ot]^4)/. {H-> mc, Q-> 0} // Simplify

RNLselfas1 =(((((H-ot))^2) (((H+ot))^2)/((((H^2)-(ot^2)))^2)((G11omafinite + G33omafinite + G44omafinite + G66omafinite - (G14omafinite + G36omafinite)) )/Kt) /. {Kt-> Sqrt[(ot^2)-(mf^2)]} )Kt // Simplify

RNLselfas = (Normal@RNLselfas1+ O[ot]^4)/. {H-> mc, Q-> 0} // Simplify

RNLselffa = Simplify[(RNLselffs + RNLselfas)]

Total integrated real non-log finite part from gamma, f and fbar: Need to integrate *separately* with nB or -nF before adding:

The individual terms :

intrealtot1=Simplify[Simplify[Simplify[Coefficient[Normal[Normal[realtot]+((O[ω])^4)],ω,1],H>0] I2,beta>0]+Simplify[Simplify[Coefficient[Normal[Normal[realtot]+((O[ω])^4)],ω,3],H>0] I4,beta>0]]

intrealtot=Simplify[Simplify[Normal[intrealtot1+((O[mf])^3)],H>0]]

intrealtotswave=Simplify[intrealtot/. {H->mc,P->0}]

intrealtotswaveT2 = Coefficient[(beta^4) Normal[intrealtotswave],beta,2] /beta^2

Coefficient[(beta^4) Normal[intrealtotswave],beta,0]

intrealtotDirac1=Simplify[Simplify[Simplify[Coefficient[Normal[Normal[realtotDirac]+((O[ω])^4)],ω,1],H>0] I2,beta>0]+Simplify[Simplify[Coefficient[Normal[Normal[realtotDirac]+((O[ω])^4)],ω,3],H>0] I4,beta>0]]

intrealtotDirac=Simplify[Simplify[Normal[intrealtotDirac1+((O[mf])^3)],H>0]]

intrealtotDiracswave=Simplify[intrealtotDirac/. {H->mc,P->0}]

intrealtotT2Diracswave = Coefficient[(beta^4) Normal[intrealtotDiracswave],beta,2] /beta^2 // Simplify

intrealfatot1=Simplify[-Coefficient[Normal[(Normal[realfatot]/. Kt->ot)+((O[ot])^4)],ot,1] If2-Coefficient[Normal[(Normal[realfatot]/. Kt->ot)+((O[ot])^4)],ot,3] If4+((O[mf])^3)]

intrealfatot=Simplify[Normal[intrealfatot1],H>0]

intrealfatotswave=Simplify[intrealfatot/. {H->mc,P->0}]

intrealfatotswaveT2=Coefficient[(beta^4) Normal[intrealfatotswave],beta,2]/beta^2+((O[mf])^3)

intrealfatotswaveT2 // Expand

intrealtotswaveT2  + intrealfatotswaveT2 // Simplify

intrealfatotswaveT4=Coefficient[(beta^4) Normal[intrealfatotswave],beta,0]

intrealfatotswaveT4

intrealfatotDirac1=Simplify[-Coefficient[Normal[(Normal[realfatotDirac]/. Kt->ot)+((O[ot])^4)],ot,1] If2-Coefficient[Normal[(Normal[realfatotDirac]/. Kt->ot)+((O[ot])^4)],ot,3] If4+((O[mf])^3)]

intrealfatotDirac=Simplify[Normal[intrealfatotDirac1],Re[beta]>0]

intrealfatotDiracswave=Simplify[Normal[Normal[intrealfatotDirac]/. {H->mc,P->0}]]

intrealfatotT2Diracswave=Coefficient[(beta^4) Normal[intrealfatotDiracswave],beta,2]/beta^2+((O[mf])^3)

Coefficient[Normal[intrealfatotDiracswave] (beta^4),beta,0]

Coefficient[Normal[intrealfatotDiracswave] (beta^4),beta,2]

The sums of gamma and f, fbar for real case :

intrealgammafa = Simplify[(intrealtot+intrealfatot) + O[mf]^3]

intrealgammafaswave = Simplify[(intrealtotswave+intrealfatotswave) + O[mf]^3] (* not helicity suppressed at 1/mh^8! *)

Save["final.nb",intrealtot ]

Save["final.nb",intrealfatot ]

Save["final.nb",intrealgammafa ]

intrealgammafaDirac = Simplify[(intrealtotDirac+intrealfatotDirac) + O[mf]^3]

intrealgammafaDiracswave = Simplify[(intrealtotDiracswave+intrealfatotDiracswave) + O[mf]^3]

Save["final.nb",intrealtotDirac ]

Save["final.nb",intrealfatotDirac ]

Save["final.nb",intrealgammafaDirac ]

realT2Diracswave = intrealtotT2Diracswave + intrealfatotT2Diracswave // Simplify

End of real calculations for non log part

Sum of real and virtual contributions from non-log terms (Not really needed):

intgammavirtualreal=Simplify[intvirtualtotmatchreal+intrealtot]

intfavirtualreal=Simplify[intvirtualfatotmatchreal+intrealfatot]

intgammavirtualrealDirac=Simplify[intvirtualtotDiracmatchreal+intrealtotDirac]

intfavirtualrealDirac=Simplify[intvirtualfatotmatchrealDirac+intrealfatotDirac]

Now, the contributions from the log terms:
Combining collinear log divergent terms from virtual and real processes: from final_virtual.nb and final_real.nb . Expanding the logs to cancel collinear  divergences between real and virtual contributions and calculating the finite remainder to order omega^4  : from final_coll_div_expand.nb

Now for the collinear divergences for which we look at the log part of Gtot’s, since they occur in both G and K parts: no need to integrate over omega since will cancel at integrand level, but the logs are expanded and will contribute to finite part which will be integrated over and added to above.

Virtual collinear logs (note different multiplying factor factorNLOvirtual . Will convert this later ).

Log terms from Diagrams 1 - 5. Don’t forget to replace ArcTanh by Log in both G and K

First define Gtot t-channel thermal photons. Take log part later. Note fermions are already totals since no K part:

G1ttot=Simplify[Normal[IntG1t1ttot+IntG1t2ttot]/. Log[a_]->0]

G2ttot=Simplify[Normal[IntG2t1ttot+IntG2t2ttot]/. Log[a_]->0]

G3ttot=Simplify[Normal[IntG3t1ttot+IntG3t2ttot]/. Log[a_]->0]

G4ttot=Simplify[Normal[IntG4t1ttot+IntG4t2ttot]/. Log[a_]->0]

G5ttot=Simplify[Normal[IntG5t1ttot+IntG5t2ttot]/. Log[a_]->0]

u-channel thermal photons

G1utot=Simplify[Normal[IntG1t1utot+IntG1t2utot]/. Log[a_]->0]

G2utot=Simplify[Normal[IntG2t1utot+IntG2t2utot]/. Log[a_]->0]

G3utot=Simplify[Normal[IntG3t1utot+IntG3t2utot]/. Log[a_]->0]

G4utot=Simplify[Normal[IntG4t1utot+IntG4t2utot]/. Log[a_]->0]

G5utot=Simplify[Normal[IntG5t1utot+IntG5t2utot]/. Log[a_]->0]

tu-cross channel thermal photons

G1tutot=Simplify[Normal[IntG1t1tutot+IntG1t2tutot]/. Log[a_]->0]

G2tutot=Simplify[Normal[IntG2t1tutot+IntG2t2tutot]/. {ArcTanh[(Pp/H)]->(1/2) (Log[H+Pp]-Log[H-Pp])}/. Log[a_]->0]

G3tutot=Simplify[Normal[IntG3t1tutot+IntG3t2tutot]/. Log[a_]->0]

G4tutot=Simplify[Normal[IntG4t1tutot+IntG4t2tutot]/. Log[a_]->0]

G5tutot=Simplify[Normal[IntG5t1tutot+IntG5t2tutot]/. Log[a_]->0]

Thermal fermions and anti - fermions (finite, so no K photon):

G1fttot=Simplify[Normal[IntG1f1ttot+IntG1f2ttot]/. Log[a_]->0]

G2fttot=Simplify[Normal[IntG2f1ttot+IntG2f2ttot]/. Log[a_]->0]

G2attot=Simplify[Normal[IntG2a1ttot+IntG2a2ttot]/. Log[a_]->0]

G3attot=Simplify[Normal[IntG3a1ttot+IntG3a2ttot]/. Log[a_]->0]

u-channel thermal fermions, no K photon, so total :

G1futot=Simplify[Normal[IntG1f1utot+IntG1f2utot]/. Log[a_]->0]

G2futot=Simplify[Normal[IntG2f1utot+IntG2f2utot]/. Log[a_]->0]

G2autot=Simplify[Normal[IntG2a1utot+IntG2a2utot]/. Log[a_]->0]

G3autot=Simplify[Normal[IntG3a1utot+IntG3a2utot]/. Log[a_]->0]

tu-cross channel thermal fermions, no K photon, so total :

G1ftutot=Simplify[Normal[IntG1f1tutot+IntG1f2tutot]/. Log[a_]->0]

G2ftutot=Simplify[Normal[IntG2f1tutot+IntG2f2tutot]/. Log[a_]->0]

G2atutot=Simplify[Normal[IntG2a1tutot+IntG2a2tutot]/. Log[a_]->0]

G3atutot=Simplify[Normal[IntG3a1tutot+IntG3a2tutot]/. Log[a_]->0]

Now define the log parts of all totals, photon and fermion :

t - channel thermal photon and fermion/anti - fermion :

G1ttotlog=Simplify[Simplify[(IntG1t1ttot+IntG1t2ttot)-G1ttot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G2ttotlog=Simplify[Simplify[(IntG2t1ttot+IntG2t2ttot)-G2ttot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G3ttotlog=Simplify[Simplify[(IntG3t1ttot+IntG3t2ttot)-G3ttot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G4ttotlog=Simplify[Simplify[(IntG4t1ttot+IntG4t2ttot)-G4ttot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G5ttotlog=Simplify[Simplify[(IntG5t1ttot+IntG5t2ttot)-G5ttot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G1fttotlog=Simplify[(IntG1f1ttot+IntG1f2ttot)-G1fttot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G2fttotlog=Simplify[(IntG2f1ttot+IntG2f2ttot)-G2fttot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G2attotlog=Simplify[(IntG2a1ttot+IntG2a2ttot)-G2attot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G3attotlog=Simplify[(IntG3a1ttot+IntG3a2ttot)-G3attot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

u - channel thermal photon and fermion/anti - fermion :

G1utotlog=Simplify[Simplify[(IntG1t1utot+IntG1t2utot)-G1utot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G2utotlog=Simplify[Simplify[(IntG2t1utot+IntG2t2utot)-G2utot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G3utotlog=Simplify[Simplify[(IntG3t1utot+IntG3t2utot)-G3utot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G4utotlog=Simplify[Simplify[(IntG4t1utot+IntG4t2utot)-G4utot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G5utotlog=Simplify[Simplify[(IntG5t1utot+IntG5t2utot)-G5utot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G1futotlog=Simplify[(IntG1f1utot+IntG1f2utot)-G1futot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G2futotlog=Simplify[(IntG2f1utot+IntG2f2utot)-G2futot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G2autotlog=Simplify[(IntG2a1utot+IntG2a2utot)-G2autot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G3autotlog=Simplify[(IntG3a1utot+IntG3a2utot)-G3autot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

tu - channel thermal photon and fermion/anti - fermion :

G1tutotlog=Simplify[Simplify[(IntG1t1tutot+IntG1t2tutot)-G1tutot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G2tutotlog=Simplify[Simplify[(IntG2t1tutot+IntG2t2tutot)-G2tutot/. {ArcTanh[(Pp/H)]->(1/2) (Log[H+Pp]-Log[H-Pp])}/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G3tutotlog=Simplify[Simplify[(IntG3t1tutot+IntG3t2tutot)-G3tutot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G4tutotlog=Simplify[Simplify[(IntG4t1tutot+IntG4t2tutot)-G4tutot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G5tutotlog=Simplify[Simplify[(IntG5t1tutot+IntG5t2tutot)-G5tutot/. {Log[H-Pp]->xlm,Log[H+Pp]->xlp}]]

G1ftutotlog=Simplify[(IntG1f1tutot+IntG1f2tutot)-G1ftutot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G2ftutotlog=Simplify[(IntG2f1tutot+IntG2f2tutot)-G2ftutot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G2atutotlog=Simplify[(IntG2a1tutot+IntG2a2tutot)-G2atutot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

G3atutotlog=Simplify[(IntG3a1tutot+IntG3a2tutot)-G3atutot/. {Log[-H ot+Kt Pp+(mf^2)]->zlm1,Log[-H ot-Kt Pp+(mf^2)]->zlm2,Log[H ot-Kt Pp+(mf^2)]->zlp1,Log[H ot+Kt Pp+(mf^2)]->zlp2}]

Summing the non self energy logs :

Gtlog=Simplify[Normal[G1ttotlog+G2ttotlog+G3ttotlog+G4ttotlog+G5ttotlog]/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gftlog=Simplify[Normal[G1fttotlog+G2fttotlog+G2attotlog+G3attotlog]/. {Pp->(Sqrt[(H^2)-(mf^2)]),(Kt^2)->(ot^2)-(mf^2)}]

Gulog=Simplify[Normal[G1utotlog+G2utotlog+G3utotlog+G4utotlog+G5utotlog]/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gfulog=Simplify[Normal[G1futotlog+G2futotlog+G2autotlog+G3autotlog]/. {Pp->(Sqrt[(H^2)-(mf^2)]),(Kt^2)->(ot^2)-(mf^2)}]

Gtulog=Simplify[Normal[G1tutotlog+G2tutotlog+G3tutotlog+G4tutotlog+G5tutotlog]/. {Pp->(Sqrt[(H^2)-(mf^2)])}]

Gftulog=Simplify[Normal[G1ftutotlog+G2ftutotlog+G2atutotlog+G3atutotlog]/. {Pp->(Sqrt[(H^2)-(mf^2)]),(Kt^2)->(ot^2)-(mf^2)}]

Glog=Simplify[(Gtlog+Gulog-Gtulog) factorNLOvirtualg/. {H->mc,P->0}]

Gflog=Simplify[(Normal[Gftlog+Gfulog-Gftulog]+((O[ot])^2)) factorNLOvirtualf/. {H->mc,P->0}]

Log terms from self energy diagrams 6 - 7

Simplifying self energy log contributions, B and F logs already defined above:

Btlog=Simplify[B1tlog+B2tlog+B3tlog]

Bulog=Simplify[B1ulog+B2ulog+B3ulog]

Btulog=Simplify[B1tulog+B2tulog+B3tulog]

Ftlog=Simplify[F1tlog+F2tlog+F3tlog]

Fulog=Simplify[F1ulog+F2ulog+F3ulog]

Simplify[Ftlog-Fulog]

Ftulog=Simplify[F1tulog+F2tulog+F3tulog]

(Simplify[ (* this actually vanishes in swave ! *) Normal[((Btlog+Bulog-Btulog) factorNLOvirtualg)/.{mc-> Sqrt[(H^2)-(P^(2 ))],  Pp->(Sqrt[(H^2)-(mf^2)]), xlm-xlp -> xlmmmxlpp1}]]) + O[mf]^3 // Simplify

Simplify[Normal[((Ftlog+Fulog-Ftulog)factorNLOvirtualf )/.{P-> Sqrt[(H^2)-(mc^(2 ))],  Pp->(Sqrt[(H^2)-(mf^2)])}]]

Flog=((Normal[((Ftlog+Fulog-Ftulog)factorNLOvirtualf )/.{ mc-> Sqrt[(H^2)-(P^2)],Pp->(Sqrt[(H^2)-(mf^2)]), zlm1-> zlm + zlm2,zlp1-> zlp+ zlp2}])) + O[ot]^4 // Simplify

Flog/. {zlm - zlp -> zlmmzlp1, zlm+zlp -> zlmpzlp1} // Simplify

For anti - fermions (same as fermions!)

Btalog=Simplify[B1talog+B2talog+B3talog]

Bualog=Simplify[B1ualog+B2ualog+B3ualog]

Btualog=Simplify[B1tualog+B2tualog+B3tualog]

Ftalog=Simplify[F1talog+F2talog+F3talog]

Fualog=Simplify[F1ualog+F2ualog+F3ualog]

Simplify[Ftalog-Fualog]

Ftualog=Simplify[F1tualog+F2tualog+F3tualog]

Virtual Collinear Divergences: Matching coefficients of virtual and real and replacing the log terms in V11 etc

Matching Virtual : thermal photon:

Virtual: t-channel:

V11=Simplify[factorNLOvirtualg Btlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V11s=V11

V11s /. {H-> mc, P-> 0} // Simplify

V22=0

V22s=V22

V33=Simplify[factorNLOvirtualg Btalog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V33s=V33

V12=Simplify[factorNLOvirtualg G1ttotlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V12s=V12

V12s /. {H-> mc, P-> 0} // Simplify

V13=Simplify[factorNLOvirtualg G2ttotlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V13s=V13

Simplify[V13/. {H->mc,P->0}]

V23=Simplify[factorNLOvirtualg G3ttotlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V23s=V23

Simplify[V23/. {H->mc,P->0}]

Virtual u-channel:

V44=Simplify[factorNLOvirtualg Bulog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V44s=V44

V55=0

V55s=V55

V66=Simplify[factorNLOvirtualg Bualog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V66s=V66

V45=Simplify[factorNLOvirtualg G1utotlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V45s=V45

Simplify[V45s/. {H->mc,P->0}]

V45s - V12s // Simplify

V46=Simplify[factorNLOvirtualg G2utotlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V46-V13

V46s=V46

V56=Simplify[factorNLOvirtualg G3utotlog/. {Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V56s=V56

V56 - V23 // Simplify

Virtual: tu-cross channel:

V14=Simplify[factorNLOvirtualg Btulog/. {mc-> Sqrt[(H^2)-(P^2)],Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V14s=V14

V1524=Simplify[factorNLOvirtualg G1tutotlog/. {mc-> Sqrt[(H^2)-(P^2)],Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V1524s=V1524

Simplify[V1524s/. {H->mc,P->0}]

V1634=Simplify[factorNLOvirtualg G2tutotlog/. {mc-> Sqrt[(H^2)-(P^2)],Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V1634s=V1634

Simplify[V1634/. {H->mc,P->0}]

V25=0

V25s=V25 (* does not exist *)

V2635=Simplify[factorNLOvirtualg G3tutotlog/. {mc-> Sqrt[(H^2)-(P^2)],Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V2635s=V2635

Simplify[V2635s/. {H->mc,P->0}]

V36=Simplify[factorNLOvirtualg Btualog/. {mc-> Sqrt[(H^2)-(P^2)],Pp->(Sqrt[(H^2)-(mf^2)]),xlm->xlp+xlv}]

V36s=V36

Simplify[V36s/. {H->mc,P->0}]

Matching Virtual: thermal fermion:

Virtual: t-channel fermion:

V11f=Simplify[factorNLOvirtualf Ftlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V11fs=Simplify[V11f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(V11fs/. {H->mc,P->0})+((O[mf])^3)]

Coefficient[Normal@((V11fs/.{H-> mc, P-> 0}) + O[mf]^3), zlmmzlp]

V22f=0

V22fs=0

V33f=0

V33fs=0

V12f=Simplify[factorNLOvirtualf G1fttotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V12fs=Simplify[V12f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[Normal@V12fs/. {H-> mc, P->0}]

Coefficient[Normal@((V12fs/.{H-> mc, P-> 0}) + O[mf]^3), zlmmzlp]

V13f=Simplify[factorNLOvirtualf G2fttotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V13fs=Simplify[V13f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(Normal@V13fs/. {H->mc,P->0})] + O[ot]^2

Coefficient[Normal@((V13fs/.{H-> mc, P-> 0}) + O[mf]^3), zlmmzlp]

V23f=0

V23fs=0

Virtual: u-channel fermion:

V44f=Simplify[factorNLOvirtualf Fulog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V44fs=Simplify[V44f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[V44f/. {H->mc,P->0}]

V44f-V11f

V55f=0

V55fs=0

V66f=0

V66fs=0

V45f=Simplify[factorNLOvirtualf G1futotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V45fs=Simplify[V45f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[V45f/. P->0]

V45f - V12f

V46f=Simplify[factorNLOvirtualf G2futotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V13f-V46f

V46fs=Simplify[V46f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

V56f=0

V56fs=0

Virtual: tu-cross channel fermion:

V14f=Simplify[factorNLOvirtualf Ftulog/. {mc-> Sqrt[(H^2)-(P^2)],(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V14fs=Simplify[V14f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(V14fs/. {H->mc,P->0})+ O[mf]^3]

Coefficient[Normal@((V14fs/.{H-> mc, P-> 0}) + O[mf]^3), zlmmzlp]

V1524f=Simplify[factorNLOvirtualf G1ftutotlog/. {mc-> Sqrt[(H^2)-(P^2)],(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V1524fs=Simplify[V1524f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(Normal@V1524fs/. {H->mc,P->0})]

V1634f=Simplify[factorNLOvirtualf G2ftutotlog/. {mc-> Sqrt[(H^2)-(P^2)],(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

Coefficient[Normal@((V1524fs/.{H-> mc, P-> 0}) + O[ot]^2), zlmmzlp]

V1634fs=Simplify[V1634f/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(Normal@V1634fs/. {H->mc,P->0} ) + O[ot]^2]

V25f=0 (* Does not exist *)

V25fs=0

V2635f=0

V2635fs=0

V36f=0

V36fs=0

Matching Virtual: thermal anti-fermion:

Virtual: t-channel anti-fermion:

V11a=0

V11as=0

V22a=0 (* Does not exist *)

V22as=0

V33a=Simplify[factorNLOvirtualf Ftalog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V33as=Simplify[V33a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(V33as/. {H->mc,P->0})+ O[mf]^3]

Coefficient[Normal@((V33as/.{H-> mc, P-> 0}) + O[mf]^3), zlmpzlp]

V12a=0

V12as=0

V13a=Simplify[factorNLOvirtualf G2attotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V13as=Simplify[V13a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[Normal@V13as/. {H->mc,P->0}]

Coefficient[Normal@((V13as/.{H-> mc, P-> 0}) + O[ot]^2), zlmmzlp]

V13f-V13a

V23a=Simplify[factorNLOvirtualf G3attotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V23as=Simplify[V23a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[Normal@V23as/. {H-> mc, P->0}]

Virtual: u-channel anti-fermion:

V44a=0

V44as=0

V55a=0 (* Does not exist *)

V55as=0

V66a=Simplify[factorNLOvirtualf Fualog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V66as=Simplify[V66a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(V66a/. {H->mc,P->0})+((O[mf])^3)]

V66a - V33a

V45a=0

V45as=0

V46a=Simplify[factorNLOvirtualf G2autotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V46as=Simplify[V46a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[V46a/. {H->mc,P->0}]

Simplify[V46a-V13a]

V56a=Simplify[factorNLOvirtualf G3autotlog/. {(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V56as=Simplify[V56a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

V56a - V23a

Simplify[V56a/. P->0]

Virtual: tu-cross channel anti-fermion:

V14a=0

V14as=0

V1524a=0

V1524as=0

V1634a=Simplify[factorNLOvirtualf G2atutotlog/. {mc-> Sqrt[(H^2)-(P^2)],(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V1634as=Simplify[V1634a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[Normal@V1634as/. {H->mc,P->0}]

Coefficient[Normal@((V1634as/.{H-> mc, P-> 0}) + O[ot]^2), zlmpzlp]

V25a=0 (* Does not exist *)

V25as=0

V2635a=Simplify[factorNLOvirtualf G3atutotlog/. {mc-> Sqrt[(H^2)-(P^2)],(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V2635as=Simplify[V2635a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[Normal@V2635as/. {H->mc,P->0}]

Coefficient[Normal@((V2635as/.{H-> mc, P-> 0}) + O[ot]^2), zlmmzlp]

V36a=Simplify[factorNLOvirtualf Ftualog/. {mc-> Sqrt[(H^2)-(P^2)],(Kt^2)->(ot^2)-(mf^2),Pp->(Sqrt[(H^2)-(mf^2)]),zlm1->zlm2+zlm,zlp1->zlp2+zlp}]

V36as=Simplify[V36a/. {zlm+zlp->zlmpzlp,zlm-zlp->zlmmzlp,-zlm+zlp->-zlmmzlp}]

Simplify[(Normal@V36as/. {H->mc,P->0})]

Coefficient[Normal@((V36as/.{H-> mc, P-> 0}) + O[mf]^3), zlmmzlp]

Computing the self energy part alone:

Vselfs = ((V11s + V33s) + (V44s + V66s) - (V14s + V36s)) /. {H-> mc, P-> 0} // Simplify

Vselffs = ((V11fs + V33fs) + (V44fs + V66fs) - (V14fs + V36fs)) /. {H-> mc, P-> 0} // Simplify

Vselfas = ((V11as + V33as) + (V44as + V66as) - (V14as + V36as)) /. {H-> mc, P-> 0} // Simplify

vfl = (Normal@zlmmzlp1 + O[ot]^2)/Kt (* not required; better to use full ot^4 order *)

Vselftot =Normal@(Vselfs + (Vselffs + Vselfas)/2 /.zlmmzlp -> zlmmzlp1) + O[mf]^3 // Simplify

Next, the real log contributions

Simplifying and grouping: photon total Gtildetot terms, for collinear divergences:

G1om1tot=Simplify[Normal[Int1Gom1tot]/. Log[a_]->0]

G1om2tot=Simplify[Normal[Int1Gom2tot]/. Log[a_]->0]

G11omtot=Simplify[G1om1tot+G1om2tot]

G11omtotlog=Simplify[(Normal[Int1Gom1tot+Int1Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2})-G1om1tot-G1om2tot]

G2om1tot=Simplify[Normal[Int2Gom1tot]/. Log[a_]->0]

G2om2tot=Simplify[Normal[Int2Gom2tot]/. Log[a_]->0]

G22omtot=Simplify[G2om1tot+G2om2tot]

G22omtotlog=Simplify[(Normal[Int2Gom1tot+Int2Gom2tot]/. {Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]->xlm1,Log[((ω (-4 (H^2)+4 ω H+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2})-G2om1tot-G2om2tot]

G3om1tot=Simplify[Expand[Normal[Int3Gom1tot]/. Log[a_]->0]]

G3om2tot=Simplify[Expand[Normal[Int3Gom2tot]/. Log[a_]->0]]

G33omtotlog=Simplify[(Normal[Int3Gom1tot+Int3Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G3om1tot-G3om2tot]

G4om1tot=Simplify[Normal[Int4Gom1tot]/. Log[a_]->0]

G4om2tot=Simplify[Normal[Int4Gom2tot]/. Log[a_]->0]

G44omtotlog=Simplify[(Normal[Int4Gom1tot+Int4Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2})-G4om1tot-G4om2tot]

G5om1tot=Simplify[Expand[Normal[Int5Gom1tot]/. Log[a_]->0]]

G5om2tot=Simplify[Expand[Normal[Int5Gom2tot]/. Log[a_]->0]]

G55omtotlog=Simplify[(Normal[Int5Gom1tot+Int5Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-4 (H^2)+4 ω H+(mf^2)))/(H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 ω H-(mf^2)))/(4 H (H+ω)))]->xlp2})-G5om1tot-G5om2tot]

G6om1tot=Simplify[Expand[Normal[Int6Gom1tot]/. Log[a_]->0]]

G6om2tot=Simplify[Expand[Normal[Int6Gom2tot]/. Log[a_]->0]]

G66omtotlog=Simplify[(Normal[Int6Gom1tot+Int6Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G6om1tot-G6om2tot]

G12om1tot=Simplify[Normal[Int12Gom1tot]/. Log[a_]->0]

G12om2tot=Simplify[Normal[Int12Gom2tot]/. Log[a_]->0]

G12omtotlog=Simplify[(Normal[Int12Gom1tot+Int12Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G12om1tot-G12om2tot]

G13om1tot=Simplify[Normal[Int13Gom1tot]/. Log[a_]->0]

G13om2tot=Simplify[Normal[Int13Gom2tot]/. Log[a_]->0]

G13omtotlog=Simplify[(Normal[Int13Gom1tot+Int13Gom2tot]/. {Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[(((mf^2) ω)/(H (-H+ω)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G13om1tot-G13om2tot]

G14om1tot=Simplify[Normal[Int14Gom1tot]/. Log[a_]->0]

G14om2tot=Simplify[Normal[Int14Gom2tot]/. Log[a_]->0]

G14omtotlog=Simplify[(Normal[Int14Gom1tot+Int14Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2})-G14om1tot-G14om2tot]

G15om1tot=Simplify[Normal[Int15Gom1tot]/. Log[a_]->0]

G15om2tot=Simplify[Normal[Int15Gom2tot]/. Log[a_]->0]

G15omtotlog=Simplify[(Normal[Int15Gom1tot+Int15Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G15om1tot-G15om2tot]

G16om1tot=Simplify[Normal[Int16Gom1tot]/. Log[a_]->0]

G16om2tot=Simplify[Normal[Int16Gom2tot]/. Log[a_]->0]

G16omtotlog=Simplify[Expand[(Normal[Int16Gom1tot+Int16Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2,Log[(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2})-G16om1tot-G16om2tot]]

G23om1tot=Simplify[Normal[Int23Gom1tot]/. Log[a_]->0]

G23om2tot=Simplify[Normal[Int23Gom2tot]/. Log[a_]->0]

G23omtotlog=Simplify[(Normal[Int23Gom1tot+Int23Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G23om1tot-G23om2tot]

G24om1tot=Simplify[Normal[Int24Gom1tot]/. Log[a_]->0]

G24om2tot=Simplify[Normal[Int24Gom2tot]/. Log[a_]->0]

G24omtotlog=Simplify[(Normal[Int24Gom1tot+Int24Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[((ω (-4 (H^2)+(mf^2)+4 H ω))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G24om1tot-G24om2tot]

G25om1tot=Simplify[Expand[Normal[Int25Gom1tot]/. Log[a_]->0]]

G25om2tot=Simplify[Expand[Normal[Int25Gom2tot]/. Log[a_]->0]]

G25omtotlog=Simplify[(Normal[Int25Gom1tot+Int25Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2})-G25om1tot-G25om2tot]

G26om1tot=Simplify[Normal[Int26Gom1tot]/. Log[a_]->0]

G26om2tot=Simplify[Normal[Int26Gom2tot]/. Log[a_]->0]

G26omtotlog=Simplify[(Normal[Int26Gom1tot+Int26Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[ω (4-((mf^2)/(H (H+ω))))]->xlp2,Log[4]->x4}/. x4->0)-G26om1tot-G26om2tot]

G34om1tot=Simplify[Normal[Int34Gom1tot]/. Log[a_]->0]

G34om2tot=Simplify[Normal[Int34Gom2tot]/. Log[a_]->0]

G34omtotlog=Simplify[Expand[(Normal[Int34Gom1tot+Int34Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2})-G34om1tot-G34om2tot]]

G35om1tot=Simplify[Normal[Int35Gom1tot]/. Log[a_]->0]

G35om2tot=Simplify[Normal[Int35Gom2tot]/. Log[a_]->0]

G35omtotlog=Simplify[(Normal[Int35Gom1tot+Int35Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-((ω (-4 (H^2)+(mf^2)+4 H ω))/(H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[ω (4-((mf^2)/(H (H+ω))))]->xlp2,Log[4]->x4}/. x4->0)-G35om1tot-G35om2tot]

G36om1tot=Simplify[Normal[Int36Gom1tot]/. Log[a_]->0]

G36om2tot=Simplify[Normal[Int36Gom2tot]/. Log[a_]->0]

G36omtotlog=Simplify[(Normal[Int36Gom1tot+Int36Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4,Log[16]->x16}/. {x4->0,x16->0})-G36om1tot-G36om2tot]

G45om1tot=Simplify[Normal[Int45Gom1tot]/. Log[a_]->0]

G45om2tot=Simplify[Normal[Int45Gom2tot]/. Log[a_]->0]

G45omtotlog=Simplify[(Normal[Int45Gom1tot+Int45Gom2tot]/. {Log[(((mf^2) ω)/(H (ω-H)))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[4]->x4}/. x4->0)-G45om1tot-G45om2tot]

G46om1tot=Simplify[Normal[Int46Gom1tot]/. Log[a_]->0]

G46om2tot=Simplify[Normal[Int46Gom2tot]/. Log[a_]->0]

G46omtotlog=Simplify[(Normal[Int46Gom1tot+Int46Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[(((mf^2) ω)/(H (-H+ω)))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2,Log[4]->x4,Log[16]->x16}/. {x4->0,x16->0})-G46om1tot-G46om2tot]

G56om1tot=Simplify[Normal[Int56Gom1tot]/. Log[a_]->0]

G56om2tot=Simplify[Normal[Int56Gom2tot]/. Log[a_]->0]

G56omtotlog=Simplify[(Normal[Int56Gom1tot+Int56Gom2tot]/. {Log[(((mf^2) ω)/((H^2)-H ω))]->xlm1,Log[-((ω (-(4 (H^2))+4 H ω+(mf^2)))/(H (H-ω)))]->xlm2,Log[-(((mf^2) ω)/(4 (H^2)-4 H ω))]->xlm1,Log[((ω (-(4 (H^2))+4 H ω+(mf^2)))/(4 H (H-ω)))]->xlm2,Log[(((mf^2) ω)/(H (H+ω)))]->xlp1,Log[((ω (4 (H^2)+4 H ω-(mf^2)))/(H (H+ω)))]->xlp2,Log[-(((mf^2) ω)/(4 H (H+ω)))]->xlp1,Log[-((ω (4 (H^2)+4 H ω-(mf^2)))/(4 H (H+ω)))]->xlp2})-G56om1tot-G56om2tot]

The real gamma thermal fermion NLO contributions, original expressions have been listed earlier :

Simplifying and grouping the thermal fermion contributions:

Int1Gom1ftot + Int1Gom2ftot

G11omfftotlog  = (Normal @ (Int1Gom1ftot + Int1Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1,  Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1,  Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G1om1ftot - G1om2ftot // Simplify

G11omfftotlogswave = G11omfftotlog /. {H->mc, Q->0} // Simplify

Int2Gom1ftot + Int2Gom2ftot

G22omfftotlog  = (Normal @ (Int2Gom1ftot + Int2Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G2om1ftot - G2om2ftot // Simplify

G22omfftotlogswave = G22omfftotlog /. {H->mc, Q->0} // Simplify

Int3Gom1ftot + Int3Gom2ftot

G33omfftotlog  = (Normal @ (Int3Gom1ftot + Int3Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G3om1ftot - G3om2ftot // Simplify

G33omfftotlogswave = G33omfftotlog /. {H->mc, Q->0} // Simplify

Int4Gom1ftot + Int4Gom2ftot

G44omfftotlog  = (Normal @ (Int4Gom1ftot + Int4Gom2ftot) /. (* Log terms only *) { Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1,  Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G4om1ftot - G4om2ftot // Simplify

G44omfftotlogswave = G44omfftotlog /. {H->mc, Q->0} // Simplify

G55omfftotlog  = (Normal @ (Int5Gom1ftot + Int5Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2})- G5om1ftot - G5om2ftot // Simplify

G55omfftotlogswave = G55omfftotlog /. {H->mc, Q->0} // Simplify

Int6Gom1ftot + Int6Gom2ftot

G66omfftotlog  = (Normal @ (Int6Gom1ftot + Int6Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G6om1ftot - G6om2ftot // Simplify

G66omfftotlogswave = G66omfftotlog /. {H->mc, Q->0} // Simplify

Int12Gom1ftot + Int12Gom2ftot

G12omfftotlog  = (Normal @ (Int12Gom1ftot + Int12Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1,  Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1,  Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2 })- G12om1ftot - G12om2ftot // Simplify

G12omfftotlogswave = G12omfftotlog /. {H->mc, Q->0} // Simplify

Int13Gom1ftot + Int13Gom2ftot

G13omfftotlog  = (((Normal @ (Int13Gom1ftot + Int13Gom2ftot)  /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2 } )- G13om1ftot - G13om2ftot)/.(Kt^2)-> (ot^2)-(mf^2))// Expand // Simplify

G13omfftotlogswave = (((H-ot)(H+ot) f1m f1p G13omfftotlog) /. {H->mc, Q->0} ) // Simplify

Int14Gom1ftot + Int14Gom2ftot

G14omfftotlog  = (Normal @ (Int14Gom1ftot + Int14Gom2ftot)  /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G14om1ftot - G14om2ftot // Simplify

G14omfftotlogswave = G14omfftotlog /. {H->mc, Q->0} // Simplify

Int15Gom1ftot+Int15Gom2ftot

G15omfftotlog=Simplify[(Normal[Int15Gom1ftot+Int15Gom2ftot]/. {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1,Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]->ylm2,Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp1,Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp2})-G15om1ftot-G15om2ftot] // Simplify

G15omfftotlogswave = G15omfftotlog /. {H->mc, Q->0} // Simplify

Int16Gom1ftot + Int16Gom2ftot

G16omfftotlog  = (Normal @ (Int16Gom1ftot + Int16Gom2ftot) /. {Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]-> ylm1, Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))] -> ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))] -> ylp2}
 )- G16om1ftot - G16om2ftot // Simplify

G16omfftotlogswave = (G16omfftotlog /. {H->mc, Q->0}) // Simplify

Int23Gom1ftot + Int23Gom2ftot

G23omfftotlog  = (Normal @ (Int23Gom1ftot + Int23Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G23om1ftot - G23om2ftot // Simplify

G23omfftotlogswave = G23omfftotlog /. {H->mc, Q->0} // Simplify

Int24Gom1ftot + Int24Gom2ftot

G24omfftotlog  = (Normal @ (Int24Gom1ftot + Int24Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm1,  Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp1,Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp2}   )- G24om1ftot - G24om2ftot // Simplify

G24omfftotlogswave = G24omfftotlog /. {H->mc, Q->0} // Simplify

Int25Gom1ftot + Int25Gom2ftot

G25omfftotlog  = (Normal @ (Int25Gom1ftot + Int25Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G25om1ftot - G25om2ftot // Simplify

G25omfftotlogswave = G25omfftotlog /. {H->mc, Q->0} // Simplify

Int26Gom1ftot + Int26Gom2ftot

G26omfftotlog  = (Normal @ (Int26Gom1ftot + Int26Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G26om1ftot - G26om2ftot // Simplify

G26omfftotlogswave = G26omfftotlog /. {H->mc, Q->0} // Simplify

Int34Gom1ftot + Int34Gom2ftot

G34omfftotlog  = (Normal @ (Int34Gom1ftot + Int34Gom2ftot) /. (* Log terms only *) {Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]->ylm1, Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp2} )- G34om1ftot - G34om2ftot // Simplify

G34omfftotlogswave = (G34omfftotlog /. {H->mc, Q->0}) // Simplify

Int35Gom1ftot + Int35Gom2ftot

G35omfftotlog  = (Normal @ (Int35Gom1ftot + Int35Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G35om1ftot - G35om2ftot // Simplify

G35omfftotlogswave = G35omfftotlog /. {H->mc, Q->0} // Simplify

Int36Gom1ftot + Int36Gom2ftot

G36omfftotlog  = (Normal @ (Int36Gom1ftot + Int36Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G36om1ftot - G36om2ftot // Simplify

G36omfftotlogswave = G36omfftotlog /. {H->mc, Q->0} // Simplify

Int45Gom1ftot + Int45Gom2ftot

G45omfftotlog  = (Normal @ (Int45Gom1ftot + Int45Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G45om1ftot - G45om2ftot // Simplify

G45omfftotlogswave = G45omfftotlog /. {H->mc, Q->0} // Simplify

Int46Gom1ftot + Int46Gom2ftot

G46omfftotlog  = ((Normal @ (Int46Gom1ftot + Int46Gom2ftot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1,Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- Normal@(G46om1ftot + G46om2ftot)/.{Log[a_]-> 0}) // Simplify

G46omfftotlogswave = (G46omfftotlog /. {H->mc, Q->0})  // Simplify

Int56Gom1ftot + Int56Gom2ftot

G56omfftotlog  = (Normal @ (Int56Gom1ftot + Int56Gom2ftot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G56om1ftot - G56om2ftot // Simplify

G56omfftotlogswave = G56omfftotlog /. {H->mc, Q->0} // Simplify

The real gamma thermal anti-fermion NLO contributions, original expressions listed earlier :

Simplifying and grouping the thermal anti-fermion contributions:

Int1Gom1atot + Int1Gom2atot

G11omaatotlog  = (Normal @ (Int1Gom1atot + Int1Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G1om1atot - G1om2atot // Simplify

G11omaatotlogswave = G11omaatotlog /. {H->mc, Q->0} // Simplify

G22omaatotlog  = (Normal @ (Int2Gom1atot + Int2Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G2om1atot - G2om2atot // Simplify

G22omaatotlogswave = G22omaatotlog /. {H->mc, Q->0} // Simplify

Int3Gom1atot + Int3Gom2atot

G33omaatotlog  = (Normal @ (Int3Gom1atot + Int3Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G3om1atot - G3om2atot // Simplify

G33omaatotlogswave = G33omaatotlog /. {H->mc, Q->0} // Simplify

Int4Gom1atot + Int4Gom2atot

G44omaatotlog  = (Normal @ (Int4Gom1atot + Int4Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G4om1atot - G4om2atot // Simplify

G44omaatotlogswave = G44omaatotlog /. {H->mc, Q->0} // Simplify

G55omaatotlog  = (Normal @ (Int5Gom1atot + Int5Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G5om1atot - G5om2atot // Simplify

G55omaatotlogswave = G55omaatotlog /. {H->mc, Q->0} // Simplify

Int6Gom1atot + Int6Gom2atot

G66omaatotlog  = (Normal @ (Int6Gom1atot + Int6Gom2atot) /. (* Log terms only *) { Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G6om1atot - G6om2atot // Simplify

G66omaatotlogswave = G66omaatotlog /. {H->mc, Q->0} // Simplify

Int12Gom1atot + Int12Gom2atot

G12omaatotlog  = (Normal @ (Int12Gom1atot + Int12Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G12om1atot - G12om2atot // Simplify

G12omaatotlogswave = G12omaatotlog /. {H->mc, Q->0} // Simplify

Int13Gom1atot + Int13Gom2atot

G13omaatotlog  = (Normal @ (Int13Gom1atot + Int13Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1,Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G13om1atot - G13om2atot /.(Kt^2)-> (ot^2)- (mf^2)// Simplify

G13omaatotlogswave = (( G13omaatotlog) /. {H->mc, Q->0})  // Simplify

Int14Gom1atot + Int14Gom2atot

G14omaatotlog  = (Normal @ (Int14Gom1atot + Int14Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G14om1atot - G14om2atot // Simplify

G14omaatotlogswave = G14omaatotlog /. {H->mc, Q->0} // Simplify

Int15Gom1atot + Int15Gom2atot

G15omaatotlog  = (Normal @ (Int15Gom1atot + Int15Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G15om1atot - G15om2atot // Simplify

G15omaatotlogswave = G15omaatotlog /. {H->mc, Q->0} // Simplify

Int16Gom1atot + Int16Gom2atot

G16omaatotlog  = (Normal @ (Int16Gom1atot + Int16Gom2atot) /. (* Log terms only *) {Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]->ylm1,Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp2} )- G16om1atot - G16om2atot // Simplify

G16omaatotlogswave = (G16omaatotlog /. {H->mc, Q->0}) // Simplify

Int23Gom1atot + Int23Gom2atot

G23omaatotlog  = (Normal @ (Int23Gom1atot + Int23Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G23om1atot - G23om2atot /. (Kt^2)->(ot^2)- (mf^2)// Simplify

G23omaatotlogswave = G23omaatotlog /. {H->mc, Q->0} // Simplify

Int24Gom1atot + Int24Gom2atot

G24omaatotlog  = (Normal @ (Int24Gom1atot + Int24Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G24om1atot - G24om2atot // Simplify

G24omaatotlogswave = G24omaatotlog /. {H->mc, Q->0} // Simplify

G25omaatotlog  = (Normal @ (Int25Gom1atot + Int25Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (2 H (ot-Kt)+(mf^2)))/(4 H (H+ot)+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 H (H+ot)+(mf^2)))]-> ylp2} )- G25om1atot - G25om2atot // Simplify

G25omaatotlogswave = G25omaatotlog /. {H->mc, Q->0} // Simplify

Int26Gom1atot + Int26Gom2atot

G26omaatotlog  = (Normal @ (Int26Gom1atot + Int26Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1,  Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp2} )- G26om1atot - G26om2atot // Simplify

G26omaatotlogswave = G26omaatotlog /. {H->mc, Q->0} // Simplify

Int34Gom1atot + Int34Gom2atot

G34omaatotlog  = (Normal @ (Int34Gom1atot + Int34Gom2atot) /. (* Log terms only *) {Log[((((mf^2)+2 H (Kt-ot)) (H-ot))/((mf^2)+4 H (H-ot)))]->ylm1, Log[(((H-ot) ((mf^2)-2 H (Kt+ot)))/((mf^2)+4 H (H-ot)))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp2} )- G34om1atot - G34om2atot // Simplify

G34omaatotlogswave = (G34omaatotlog /. {H->mc, Q->0})  // Simplify

Int35Gom1atot + Int35Gom2atot

G35omaatotlog  = (Normal @ (Int35Gom1atot + Int35Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1,  Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) ((mf^2)+2 H (-Kt+ot)))/((mf^2)+4 H (H+ot)))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/((mf^2)+4 H (H+ot)))]-> ylp2} )- G35om1atot - G35om2atot // Simplify

G35omaatotlogswave = G35omaatotlog /. {H->mc, Q->0} // Simplify

Int36Gom1atot + Int36Gom2atot

G36omaatotlog  = (Normal @ (Int36Gom1atot + Int36Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G36om1atot - G36om2atot // Simplify

G36omaatotlogswave = G36omaatotlog /. {H->mc, Q->0} // Simplify

Int45Gom1atot + Int45Gom2atot

G45omaatotlog  = (Normal @ (Int45Gom1atot + Int45Gom2atot) /. (* Log terms only *) {Log[-(((H-ot) (-2 H Kt+2 H ot-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]->ylm1, Log[-(((H-ot) (2 H (Kt+ot)-(mf^2)))/(4 (H^2)-4 H ot+(mf^2)))]-> ylm2, Log[(((H+ot) (-2 H Kt+2 H ot+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]->ylp1, Log[(((H+ot) (2 H (Kt+ot)+(mf^2)))/(4 (H^2)+4 H ot+(mf^2)))]-> ylp2} )- G45om1atot - G45om2atot // Simplify

G45omaatotlogswave = G45omaatotlog /. {H->mc, Q->0} // Simplify

Int46Gom1atot + Int46Gom2atot

G46omaatotlog  = (Normal @ (Int46Gom1atot + Int46Gom2atot) /. (* Log terms only *) {Log[(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G46om1atot - G46om2atot // Simplify

G46omaatotlogswave = (G46omaatotlog /. {H->mc, Q->0}) // Simplify

Int56Gom1atot + Int56Gom2atot

G56omaatotlog  = (Normal @ (Int56Gom1atot + Int56Gom2atot) /. (* Log terms only *) { Log[-(((H-ot) (-2 H Kt-(mf^2)+2 H ot))/(4 (H^2)+(mf^2)-4 H ot))]->ylm1, Log[-(((H-ot) (-(mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)-4 H ot))]-> ylm2, Log[(((H+ot) (-2 H Kt+(mf^2)+2 H ot))/(4 (H^2)+(mf^2)+4 H ot))]->ylp1, Log[(((H+ot) ((mf^2)+2 H (Kt+ot)))/(4 (H^2)+(mf^2)+4 H ot))]-> ylp2} )- G56om1atot - G56om2atot // Simplify

G56omaatotlogswave = G56omaatotlog /. {H->mc, Q->0} // Simplify

Substituting the log forms in R11 etc

Real: thermal photon:

t-channel real thermal photon:

R11=Simplify[G11omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R11s=Simplify[R11/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

R11s/. {H-> mc, P-> 0} // Simplify

Simplify[R11s/. {H->mc,P->0}]

R22=Simplify[G22omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R22s=0

R33=Simplify[G33omtotlog/. {xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R33s=Simplify[R33/. {mc-> Sqrt[(H^2)-(P^2)],xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[Normal@R33s/. {H->mc,P->0}]

R12=Simplify[G12omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R12s=Simplify[R12/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[Normal@R12s/. {H->mc,P->0}]

R13=Simplify[G13omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R13s=Simplify[R13/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[Normal@R13s/. {H->mc,P->0}]

R23=Simplify[G23omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R23s=Simplify[R23/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[Normal@R23s/. {H->mc,P->0}]

(R23 - R12)/. (mc^2)-> (H^2)-(P^2) // Simplify

R23s - R12s // Simplify

u-channel real thermal photon:

R44=Simplify[G44omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R44s=Simplify[R44/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

R44 - R11

Simplify[R44/. {H->mc,P->0}]

R55=Simplify[G55omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R55s=0

Simplify[R55/. {H->mc,P->0}]

R66=Simplify[G66omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R66s=Simplify[R66/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R66/. {H->mc,P->0}]

(R66 - R44)/. (mc^2)-> (H^2)-(P^2) // Simplify

R45=Simplify[G45omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R45s=Simplify[R45/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

R45 - R12

Simplify[R45/. {H->mc,P->0}]

R46=Simplify[G46omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R46-R13

R46s=Simplify[R46/. {mc-> Sqrt[(H^2)-(P^2)],xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R46/. {H->mc,P->0}]

R46-R13 // Simplify

R56=Simplify[G56omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R56s=Simplify[R56/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R56/. {H->mc,P->0}]

(R56 - R12)/. (mc^2)-> (H^2)-(P^2)  // Simplify

tu-cross channel real thermal photon:

R14=Simplify[G14omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R14s=Simplify[R14/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[Normal@R14s/. {H->mc,P->0}]

R15=Simplify[G15omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R15s=Simplify[R15/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R15/. {H->mc,P->0}]

R16=Simplify[G16omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R16s=Simplify[R16/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R16/. {H->mc,P->0}]

R24=Simplify[G24omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R24s=Simplify[R24/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R24/. {H->mc,P->0}]

R25=Simplify[G25omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlp1->xlm1,xlp2->xlm2}]

R25s=0

Simplify[R25/. {H->mc,P->0}]

R26=Simplify[G26omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R26s=Simplify[R26/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R26/. {H->mc,P->0}]

R34=Simplify[G34omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R34s=Simplify[R34/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R34/. {H->mc,P->0}]

R35=Simplify[G35omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R35s=Simplify[R35/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[R35/. {H->mc,P->0}]

R36=Simplify[G36omtotlog/. {mc-> Sqrt[(H^2)-(P^2)],xlm1->xlm2+xlmm,xlp1->xlp2+xlpp}]

R36s=Simplify[R36/. {xlmm+xlpp->xlmmpxlpp,xlmm-xlpp->xlmmmxlpp,-xlmm+xlpp->-xlmmmxlpp}]

Simplify[Normal@R36s/. {H->mc,P->0}]

R1524=Simplify[R15+R24]

R1524s=Simplify[R15s+R24s]

Simplify[R15-R24]

Simplify[Normal@R1524s/. {H->mc,P->0}]

R1634=Simplify[R16+R34]

R1634s=Simplify[R16s+R34s]

Simplify[R16-R34]

Simplify[Normal@R1634s/. {H->mc,P->0}]

R2635=Simplify[R26+R35]

R2635s=Simplify[R26s+R35s]

Simplify[R26-R35]

Simplify[Normal@R2635s/. {H->mc,P->0}]

Real: thermal fermion:

t-channel real thermal fermion:

R11ff=Simplify[G11omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R11ffs=Simplify[R11ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[Normal@R11ffs/. {H->mc,P->0}]

R22ff=Simplify[G22omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R22ffs=0

Simplify[R22ff/. {H->mc,P->0}]

R33ff=Simplify[G33omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R33ffs=0

Simplify[R33ff/. {H->mc,P->0}]

R12ff=Simplify[G12omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Kt-> Sqrt[(ot^2)-(mf^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R12ffs=Simplify[R12ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[Normal@R12ffs/. {H->mc,P->0}]

R13ff=Simplify[G13omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R13ffs=Simplify[R13ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[Normal@R13ffs/. {H->mc,P->0}] + O[ot]^2

R23ff=Simplify[G23omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R23ffs=0

Simplify[R23ff/. {H->mc,P->0}]

u-channel real thermal fermion:

R44ff=Simplify[G44omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R44ffs=Simplify[R44ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R44ff/. {H->mc,P->0}]

R44ff - R11ff

R55ff=Simplify[G55omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R55ffs=0

Simplify[R55ff/. {H->mc,P->0}]

R66ff=Simplify[G66omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R66ffs=0

Simplify[R66ff/. {H->mc,P->0}]

R45ff=Simplify[G45omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Kt-> Sqrt[(ot^2)-(mf^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R45ffs=Simplify[R45ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R45ff - R12ff

Simplify[R45ff/. {H->mc,P->0}]

R46ff=Simplify[G46omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Kt-> Sqrt[(ot^2)-(mf^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

Simplify[(R13ff-R46ff)]

Simplify[Normal[G46omfftotlog-G13omfftotlog]/. {Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp, (Kt^2)-> (ot^2)-(mf^2)}]

Simplify[Normal[R46ff-R13ff]] /. { (Kt^2)-> (ot^2)-(mf^2)}

R46ffs=Simplify[R46ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp, (Kt^2)-> (ot^2) -(mf^2)}]

Simplify[(R46ff/. {H->mc,P->0})+((O[ot])^4)]

R56ff=Simplify[G56omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R56ffs=0

Simplify[R56ff/. {H->mc,P->0}]

tu-cross channel real thermal fermion:

R14ff=Simplify[G14omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R14ffs=Simplify[R14ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[Normal@R14ffs/. {H->mc,P->0}]

R15ff=Simplify[G15omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R15ffs=Simplify[R15ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R16ff=Simplify[G16omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R16ffs=Simplify[R16ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R24ff=Simplify[G24omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R24ffs=Simplify[R24ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R24ff/. {H->mc,P->0}]

R25ff=Simplify[G25omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R25ffs=0

Simplify[R25ff/. {H->mc,P->0}]

R26ff=Simplify[G26omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R26ffs=0

R34ff=Simplify[G34omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R34ffs=Simplify[R34ff/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R35ff=Simplify[G35omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R35ffs=0

R36ff=Simplify[G36omfftotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R36ffs=0

Simplify[R36ff/. {H->mc,P->0}]

R1524ff=Simplify[R15ff+R24ff]

R1524ffs=Simplify[R15ffs+R24ffs]

Simplify[Normal@R1524ffs/. {H->mc,P->0}]

R1634ff=Simplify[R16ff+R34ff]

R1634ffs=Simplify[R16ffs+R34ffs]

Simplify[(Normal@R1634ffs/. {H->mc,P->0})] + O[ot]^2

R2635ff=Simplify[R26ff+R35ff]

R2635ffs=Simplify[R26ffs+R35ffs]

Real: thermal antifermion:

t-channel real thermal anti-fermion:

R11aa=Simplify[G11omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R11aas=0

R22aa=Simplify[G22omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R22aas=0

R33aa=Simplify[G33omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R33aas=Simplify[R33aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R33aas/. {H->mc,P->0}]

R12aa=Simplify[G12omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R12aas=0

R13aa=Simplify[G13omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

Simplify[R13aa-R13ff]

R13aas=Simplify[R13aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R13aas/. {H->mc,P->0}] + O[ot]^2

Simplify[Normal[R13aas-R13ffs]]

R23aa=Simplify[G23omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)], Kt-> Sqrt[(ot^2)-(mf^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R23aas=Simplify[R23aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R23aas/. {H->mc,P->0}]

u-channel real thermal anti-fermion:

R44aa=Simplify[G44omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R44aas=0

R55aa=Simplify[G55omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R55aas=0

R66aa=Simplify[G66omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R66aas=Simplify[R66aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R66aas/. {H->mc,P->0}]

R66aa - R33aa

R45aa=Simplify[G45omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R45aas=0

R46aa=Simplify[G46omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)], Kt-> Sqrt[(ot^2)-(mf^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R46aas=Simplify[R46aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R46aa/. {H->mc,P->0}]

R46aa-R13aa /. {(Kt^2)-> (ot^2)-(mf^2)} // Simplify

R46ffs-R46aas

R56aa=Simplify[G56omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)], Kt-> Sqrt[(ot^2)-(mf^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R56aas=Simplify[R56aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R56aas/. {H->mc,P->0}]

R56aa-R23aa  // Simplify

tu-cross channel real thermal anti-fermion:

R14aa=Simplify[G14omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R14aas=0

R15aa=Simplify[G15omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R15aas=0

R16aa=Simplify[G16omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R16aas=Simplify[R16aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R24aa=Simplify[G24omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R24aas=0

R25aa=Simplify[G25omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R25aas=0

R26aa=Simplify[G26omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R26aas=Simplify[R26aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R34aa=Simplify[G34omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R34aas=Simplify[R34aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R35aa=Simplify[G35omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R35aas=Simplify[R35aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

R36aa=Simplify[G36omaatotlog/. {mc-> Sqrt[(H^2)-(P^2)],Q->P,ylm1->ylm2+ylmm,ylp1->ylp2+ylpp}]

R36aas=Simplify[R36aa/. {ylmm+ylpp->ylmmpylpp,ylmm-ylpp->ylmmmylpp,-ylmm+ylpp->-ylmmmylpp}]

Simplify[R36aas/. {H->mc,P->0}]

R1524aa=Simplify[R15aa+R24aa]

R1524aas=Simplify[R15aas+R24aas]

Simplify[R1524aa/. {H->mc,P->0}]

R1634aa=Simplify[R16aa+R34aa]

R1634aas=Simplify[R16aas+R34aas]

Simplify[(R1634aas/. {H->mc,P->0})]

R1634ffs-R1634aas

R2635aa=Simplify[R26aa+R35aa]

R2635aas=Simplify[R26aas+R35aas]

Simplify[R2635aas/. {H->mc,P->0}]

Real photon "self energy" log terms :

Rselfs = ((R11s + R33s) + (R44s + R66s) - (R14s + R36s)) /. {H-> mc, P-> 0} // Simplify

Rselffs = ((R11ffs + R33ffs) + (R44ffs + R66ffs) - (R14ffs + R36ffs)) /. {H-> mc, P-> 0} // Simplify

Rselfas = ((R11aas + R33aas) + (R44aas + R66aas) - (R14aas + R36aas)) /. {H-> mc, P-> 0} // Simplify

Rselfs - (Rselffs + Rselfas)/2 // Simplify (* real fermion comes with -nF and int ot d_ot = 1/2 photon integral *)

gl = (Normal@(Normal@xlmmmxlpp1 + O[ω]^2)   + O[mf]^3) /ω (* Better to use order ω^4 *)

fl = ((Normal@ylmmmylpp1 + O[ot]^2) /Kt) + O[mf]^3 // Simplify  (* Better to use order ot^4 *)

Normal@((Rselfs - (Rselffs + Rselfas)/2)/. {xlmmmxlpp-> xlmmmxlpp1, ylmmmylpp-> ylmmmylpp1}) + O[mf]^3 // Simplify (* real fermion comes with -nF; and int ot d_ot = 1/2 photon integral  *)

(Normal@((Rselfs )/. {xlmmmxlpp-> xlmmmxlpp1, ylmmmylpp-> ylmmmylpp1}) + O[mf]^3)/. {H-> mc, P-> 0} // Simplify (* real fermion comes with -nF; and int ot d_ot = 1/2 photon integral  *)

(Normal@(((Rselffs + Rselfas))/. {xlmmmxlpp-> xlmmmxlpp1, ylmmmylpp-> ylmmmylpp1}) + O[mf]^3 )/. {H-> mc, P-> 0} // Simplify (* real fermion comes with -nF; and int ot d_ot = 1/2 photon integral  *)

Sum of real and virtual contributions from log terms; later, have added all Virtual  and all Real contributions and then sum them. Useful for tables.

Thermal Photons log terms:

t-channel thermal photons:

RV11s=Simplify[V11s+R11s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV11s/. P->0

RV22s=Simplify[V22s+R22s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV33s=Simplify[V33s+R33s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV33s/. P->0

RV12s=Simplify[V12s+R12s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV12s/. P->0

RV13s=Simplify[(V13s+R13s)/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[RV13s/. {H->mc,P->0}]

RV23s=Simplify[V23s+R23s/. {mc->(Sqrt[(H^2)-(P^2)])}]

(V13s+R13s)/. {xlmmmxlpp-> xlmmmxlpp1, xlmmpxlpp-> xlmmpxlpp1} // Simplify (* It appears as if the 1/omega terms are left over, but not when the log terms are substituted: *)

u-channel thermal photons:

RV44s=Simplify[V44s+R44s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV55s=Simplify[V55s+R55s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV66s=Simplify[V66s+R66s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV45s=Simplify[V45s+R45s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV46s=Simplify[V46s+R46s/. {mc->(Sqrt[(H^2)-(P^2)])}]

(V46s+R46s)/. {xlmmmxlpp-> xlmmmxlpp1, xlmmpxlpp-> xlmmpxlpp1} // Simplify (* It appears as if the 1/omega terms are left over, but not when the log terms are substituted: *)

RV56s=Simplify[V56s+R56s/. {mc->(Sqrt[(H^2)-(P^2)])}]

tu-cross channel thermal photons:

RV14s=Simplify[V14s+R14s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV1524s=Simplify[V1524s+R1524s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV1634s=Simplify[V1634s+R1634s/. {mc->(Sqrt[(H^2)-(P^2)])}]

(V1634s+R1634s)/. {xlmmmxlpp-> xlmmmxlpp1, xlmmpxlpp-> xlmmpxlpp1} // Simplify (* It appears as if the 1/omega terms are left over, but not when the log terms are substituted: *)

RV25s=Simplify[V25s+R25s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV2635s=Simplify[V2635s+R2635s/. {mc->(Sqrt[(H^2)-(P^2)])}]

RV36s=Simplify[V36s+R36s/. {mc->(Sqrt[(H^2)-(P^2)])}]

Thermal Fermions log terms:

t-channel thermal fermion differences: Note that real comes with -ve sign because of (-nF) in phase space; also, there are only collinear, no soft IR divergences:

RVf11ms=Simplify[V11fs-R11ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf22ms=Simplify[V22fs-R22ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf33ms=Simplify[V33fs-R33ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf12ms=Simplify[Normal[V12fs-R12ffs]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf13ms=Simplify[Normal[V13fs-R13ffs]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf23ms=Simplify[V23fs-R23ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

u-channel thermal fermion differences:

RVf44ms=Simplify[V44fs-R44ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf44ms-RVf11ms

RVf55ms=Simplify[V55fs-R55ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf66ms=Simplify[V66fs-R66ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf45ms=Simplify[Normal[V45fs-R45ffs]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf46ms=Simplify[Normal[V46fs-R46ffs]/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[RVf46ms-RVf13ms]

RVf56ms=Simplify[V56fs-R56ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

tu-cross channel thermal fermion differences:

RVf14ms=Simplify[V14fs-R14ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf1524ms=Simplify[Normal[V1524fs-R1524ffs]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf1634ms=Simplify[Normal[V1634fs-R1634ffs]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf25ms=Simplify[V25fs-R25ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf2635ms=Simplify[V2635fs-R2635ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVf36ms=Simplify[V36fs-R36ffs/. {mc->(Sqrt[(H^2)-(P^2)])}]

Thermal Anti-Fermions log terms:

t-channel thermal antifermion differences: Note that real comes with -ve sign because of (-nF) in phase space

RVa11ms=Simplify[V11as-R11aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa22ms=Simplify[V22as-R22aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa33ms=Simplify[V33as-R33aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[RVa33ms-RVf11ms]

RVa12ms=Simplify[V12as-R12aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa13ms=Simplify[Normal[V13as-R13aas]/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[RVa13ms-RVf13ms]

RVa23ms=Simplify[Normal[V23as-R23aas]/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[Normal[RVa23ms-RVf12ms]]

u-channel thermal antifermion differences:

RVa44ms=Simplify[V44as-R44aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa55ms=Simplify[V55as-R55aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa66ms=Simplify[V66as-R66aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[RVa66ms-RVf44ms]

RVa45ms=Simplify[V45as-R45aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa46ms=Simplify[Normal[V46as-R46aas]/. {mc->(Sqrt[(H^2)-(P^2)])}]

Simplify[Normal[RVa46ms-RVf46ms]]

RVa56ms=Simplify[Normal[V56as-R56aas]/. {mc->(Sqrt[(H^2)-(P^2)])}]

tu-cross channel thermal antifermion differences:

RVa14ms=Simplify[V14as-R14aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa1524ms=Simplify[V1524as-R1524aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa1634ms=Simplify[Normal[V1634as-R1634aas]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa25ms=Simplify[V25as-R25aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa2635ms=Simplify[Normal[V2635as-R2635aas]/. {mc->(Sqrt[(H^2)-(P^2)])}]

RVa36ms=Simplify[V36as-R36aas/. {mc->(Sqrt[(H^2)-(P^2)])}]

Adding to get the total thermal photon and thermal fermion real+virtual log contributions: These are sum of real and virtual log contributions. Later we have summed virtual and real log terms separately.

Total thermal photon real+virtual log contribution:

CollgammaRVs=Simplify[Normal[RV11s+RV22s+RV33s+RV12s+RV13s+RV23s+RV44s+RV55s+RV66s+RV45s+RV46s+RV56s]-Normal[RV14s+RV1524s+RV1634s+RV25s+RV2635s+RV36s]] (* the 1/ω soft IR divergent terms cancel on substituting the logs *)

CollgammaRV4s=Simplify[Normal[RV11s+RV33s+RV13s+RV44s+RV66s+RV46s]-Normal[RV14s+RV1634s+RV36s]]

Simplify[CollgammaRV4s/. {H->mc,P->0}]

CollgammaRV6s=Simplify[Normal[RV12s+RV23s+RV45s+RV56s]-Normal[RV1524s+RV2635s]]

Simplify[(CollgammaRV6s/. {H->mc,P->0})+((O[mf])^3),mc>0]

CollgammaRV8s=Simplify[Normal[RV22s+RV55s]-Normal[RV25s]]

Thermal photon Dirac case:

CollgammaRVsDirac=Simplify[Normal[RV11s+RV22s+RV33s+RV12s+RV13s+RV23s]] (* Again, the 1/ω soft IR divergence disappears when substitute the logs *)

Total thermal fermion real+virtual log contribution:

CollfRVs=Simplify[Normal[RVf11ms+RVf22ms+RVf33ms+RVf12ms+RVf13ms+RVf23ms+RVf44ms+RVf55ms+RVf66ms+RVf45ms+RVf46ms+RVf56ms]-Normal[RVf14ms+RVf1524ms+RVf1634ms+RVf25ms+RVf2635ms+RVf36ms]/.{(Kt^2)-> (ot^2)-(mf^2)}]

Normal@(Normal@CollfRVs + O[mf]^3) + O[ot]^2 // Simplify

CollfRV4s=Simplify[Normal[(RVf11ms+RVf33ms+RVf13ms+RVf44ms+RVf66ms+RVf46ms)/. (Kt^2)-> (ot^2)-(mf^2)]-Normal[(RVf14ms+RVf1634ms+RVf36ms)/. (Kt^2)-> (ot^2)-(mf^2)]]

CollfRV6s=Simplify[Normal[(RVf12ms+RVf23ms+RVf45ms+RVf56ms/.(Kt^2)-> (ot^2)-(mf^2))]-Normal[(RVf1524ms+RVf2635ms/.(Kt^2)-> (ot^2)-(mf^2))]]

CollfRV8s=Simplify[Normal[RVf22ms+RVf55ms]-Normal[RVf25ms]]

CollfRVs - CollfRV4s - CollfRV6s - CollfRV8s // Simplify

Total fermion Dirac case:

CollfRVsDirac=Simplify[Normal[RVf11ms+RVf22ms+RVf33ms+RVf12ms+RVf13ms+RVf23ms]/.{(Kt^2)-> (ot^2)-(mf^2)}]

Total thermal anti-fermion real+virtual log contribution:

CollaRVs=Simplify[Normal[RVa11ms+RVa22ms+RVa33ms+RVa12ms+RVa13ms+RVa23ms+RVa44ms+RVa55ms+RVa66ms+RVa45ms+RVa46ms+RVa56ms]-Normal[RVa14ms+RVa1524ms+RVa1634ms+RVa25ms+RVa2635ms+RVa36ms]/.{(Kt^2)-> (ot^2)-(mf^2)}]

CollaRV4s=Simplify[Normal[(RVa11ms+RVa33ms+RVa13ms+RVa44ms+RVa66ms+RVa46ms/.(Kt^2)-> (ot^2)-(mf^2))]-Normal[(RVa14ms+RVa1634ms+RVa36ms/.(Kt^2)-> (ot^2)-(mf^2))]]

Simplify[CollaRV4s-CollfRV4s]

CollaRV6s=Simplify[Normal[(RVa12ms+RVa23ms+RVa45ms+RVa56ms/.(Kt^2)-> (ot^2)-(mf^2))]-Normal[(RVa1524ms+RVa2635ms/.(Kt^2)-> (ot^2)-(mf^2))]]

Simplify[CollaRV6s-CollfRV6s]

CollaRV8s=Simplify[Normal[RVa22ms+RVa55ms]-Normal[RVa25ms]]

CollaRVs - CollaRV4s - CollaRV6s - CollaRV8s // Simplify

Total anti-fermion Dirac case:

CollaRVsDirac=Simplify[Normal[RVa11ms+RVa22ms+RVa33ms+RVa12ms+RVa13ms+RVa23ms]/.{(Kt^2)-> (ot^2)-(mf^2)}]

Simplify[CollaRVsDirac-CollfRVsDirac]

Sum of fermion and anti-fermion contributions:

CollfaRVs=Simplify[Normal@(Normal@(CollfRVs+CollaRVs) + O[mf]^3)+ O[ot]^4]

CollfaRV4s=Simplify[CollfRV4s+CollaRV4s]

CollfaRV6s=Simplify[CollfRV6s+CollaRV6s]

CollfaRV8s=Simplify[CollfRV8s+CollaRV8s]

Total f + fbar Dirac Case:

CollfaRVsDirac=Simplify[Normal@(Normal@(CollfRVsDirac+CollaRVsDirac)+ O[mf]^3) + O[ot]^4]

Simplifying and substituting the logs

Some definitions :

Kt4=Normal[Simplify[((ot PowerExpand[(Sqrt[(ot^2)-(mf^2)])])/(Sqrt[(ot^2)]))+((O[mf])^5)]] (* Not used; just to see the structure *)

Kt2=Normal[Simplify[((ot PowerExpand[(Sqrt[(ot^2)-(mf^2)])])/(Sqrt[(ot^2)]))+((O[mf])^3)]] (* Not used *)

To simplify and retain terms upto and including mf^2 and ω ^4 (since there are 1/ω terms in the collinear part and we need up to ω^3 to get T^4 contribution) for thermal photons and Kt ot^2 (since there are no soft IR divergences) for thermal fermions.

Define the real logs :

xlmm = xlm1 - xlm2 = log (mf^2)/(4(H^2)- 4Hω - (mf^2)); for thermal photon
xlpp = xlp1 - xlp2 = log (mf^2)/(4(H^2)+ 4Hω - (mf^2)); for thermal photon
ylmm = ylm1 - ylm2 = Log (2 H ot - 2 H Kt - (mf^2))/(2H ot + 2 H Kt - (mf^2)); for thermal fermion
ylpp = ylp1 - ylp2 = Log (2 H ot - 2 H Kt + (mf^2))/(2H ot + 2 H Kt + (mf^2)); for thermal fermion
Lv = log (H-Pp)/(H+Pp) = log (mf^2)/(4(H^2)- (mf^2)); for both real (LR) and virtual thermal photon (called xlv)
Lf=Log[((ot - Kt)/(ot + Kt))] is log term in both real (Lf1) and virtual (Lf) fermions

For real thermal photon log:

LR = xlv

epsp=((4 H ω)/(4 (H^2)-(mf^2)))

epsm=((4 H ω)/(4 (H^2)-(mf^2))) (* same as epsp *)

xlminus=LR-(-epsm-((epsm^2)/2)-((epsm^3)/3)-((epsm^4)/4))

xlplus=LR-(epsp-((epsp^2)/2)+((epsp^3)/3)-((epsp^4)/4))

xlmmmxlpp1=Simplify[xlminus-xlplus] (* Twice L'_R *)

xlmmpxlpp1=Simplify[xlminus+xlplus] (* Twice L_R *)

xlmmmxlpp2=Normal[Simplify[xlmmmxlpp1+((O[mf])^5)]]

xlmmpxlpp2=Normal[Simplify[(xlmmpxlpp1/. Kt->Kt4)+((O[mf])^3)]]

For real thermal fermion log:

epspy=((ot-Kt)/(2 H))

epsmy=((ot+Kt)/(2 H))

ylminus=Expand[Lf1+(-epsmy-((epsmy^2)/2)-((epsmy^3)/3)-((epsmy^4)/4))-(-epspy-((epspy^2)/2)-((epspy^3)/3)-((epspy^4)/4))] (* Lf1 is actually same as Lf but this helps to see the contributions from real and virtual separately *)

ylplus=Expand[Lf1+(epsmy-((epsmy^2)/2)+((epsmy^3)/3)-((epsmy^4)/4))-(epspy-((epspy^2)/2)+((epspy^3)/3)-((epspy^4)/4))]

ylmmmylpp1=Simplify[(ylminus-ylplus/. {(Kt^2)->(ot^2)-(mf^2),(Kt^3)->Kt ((ot^2)-(mf^2)),(Kt^4)->((((ot^2)-(mf^2)))^2),(Kt^5)->Kt ((((ot^2)-(mf^2)))^2),(Kt^6)->((((ot^2)-(mf^2)))^3),(Kt^7)->Kt ((((ot^2)-(mf^2)))^3),(Kt^8)->((((ot^2)-(mf^2)))^4)})+((O[mf])^3)]

ylmmpylpp1=Simplify[(ylminus+ylplus/. {(Kt^2)->(ot^2)-(mf^2),(Kt^3)->Kt ((ot^2)-(mf^2)),(Kt^4)->((((ot^2)-(mf^2)))^2),(Kt^5)->Kt ((((ot^2)-(mf^2)))^2),(Kt^6)->((((ot^2)-(mf^2)))^3),(Kt^7)->Kt ((((ot^2)-(mf^2)))^3),(Kt^8)->((((ot^2)-(mf^2)))^4)})+((O[mf])^3)]

LR=xlv (* - Log[((mf^2)/(4 (H^2)-(mf^2)))]; arises from Log (H-Pp)/(H+Pp); calling it Lf1 for now  *)

Now for the virtual logs; first, thermal photon:

LV=Log[((mf^2)/(4 (H^2)-(mf^2)))]; arises from Log (H-Pp)/(H+Pp)
zlm = zlm1 - zlm2 = log (H ot - Pp Kt - (mf^2))/(H ot + Pp Kt - (mf^2));
zlp = zlp1 - zlp2 = log (H ot - Pp Kt + (mf^2))/(H ot + Pp Kt + (mf^2)); leading collinear log is log (ot -Kt)/(ot+Kt)

LV=Log[((mf^2)/(4 (H^2)-(mf^2)))] (* arises from Log (H-Pp)/(H+Pp) *)

For the thermal fermion virtual log:

eps = ((mf^2)/(4(H^2))) (* zlm1 - zlm2 *)

epsmmf=(( (ot+Kt)(2 H -ot + eps(4H - 3 ot)))/(2 (H^2))) (* for numerator of zlminus; corrected to order mf^2  *)

epsmpf=(( (ot-Kt)(2 H -ot + eps(4H - 3 ot)))/(2 (H^2))) (* for denominator of zlminus  = Log [(H-ot)/(H+ot) (1-epsmm)/(1-epsmp)] *)

epspmf=(( (ot+Kt)(2 H +ot + eps(4H + 3 ot)))/(2 (H^2))) (* for numerator of zlplus *)

epsppf=(( (ot-Kt)(2 H +ot + eps(4H + 3 ot)))/(2 (H^2))) (* for denominator of zlplus  = Log [(H-ot)/(H+ot) (1+epspm)/(1+epspp)] *)

(* Older results: epspmf=(((Kt+2 H) (ot+Kt))/(2 (H^2))) *)  (* (((Kt+2 H+ (mf^2)/(4H)) (ot+Kt))/(2 (H^2)))*)

(* epsppf=(((Kt-2 H) (ot-Kt))/(2 (H^2))) *) (* (((Kt-2 H+ (mf^2)/(4H)) (ot-Kt))/(2 (H^2)))*)

(* epsmpf=(((Kt+2 H) (ot-Kt))/(2 (H^2))) *)  (* (((Kt+2 H+ (mf^2)/(4H)) (ot-Kt))/(2 (H^2)))*)

(* epsmmf=(((Kt-2 H) (ot+Kt))/(2 (H^2)))  *) (* (((Kt-2 H+ (mf^2)/(4H)) (ot+Kt))/(2 (H^2)))*)

zlminus=Lf+((-epsmmf-((epsmmf^2)/2)-((epsmmf^3)/3)- ((epsmmf^4)/4))-(-epsmpf-((epsmpf^2)/2)-((epsmpf^3)/3)- ((epsmpf^4)/4))) + O[mf]^3

zlplus = Lf+((epspmf-((epspmf^2)/2)+((epspmf^3)/3)- ((epspmf^4)/4))-(epsppf-((epsppf^2)/2)+((epsppf^3)/3)-((epsppf^4)/4) )) + O[mf]^3

zlminus-zlplus // Expand // Simplify

zlmmzlp11=Simplify[((zlminus-zlplus)/Kt)]

zlmmzlp1 = (zlmmzlp11 /. (Kt^2)-> (ot^2)-(mf^2)) Kt// Simplify

Normal@zlmmzlp1 + O[ot]^4 (* This is twice L'_V *)

Normal@zlmmzlp1 + O[ot]^2

zlmpzlp11=Simplify[(((zlminus+zlplus)/Kt))]

zlmpzlp1 = (zlmpzlp11 /. (Kt^2)-> (ot^2)-(mf^2)) Kt// Simplify

Normal[zlmpzlp1]+((O[ot])^4)  (* This is twice L'_V *)

Normal@zlmpzlp1 + O[ot]^2

Simplify using above to get the total virtual+real collinear divergence’ finite remainder

First substitute the logs and then integrate :

Collinear part from thermal photon:

CollgammaRV=Simplify[(CollgammaRVs/. {xlmmmxlpp->xlmmmxlpp1,xlmmpxlpp->xlmmpxlpp1})+((O[mf])^3)]

CollgammaRVswave=Simplify[CollgammaRV/. {H->mc,P->0}]

CollgammaRV4=Simplify[(CollgammaRV4s/. {xlmmmxlpp->xlmmmxlpp1,xlmmpxlpp->xlmmpxlpp1})+((O[mf])^3)]

CollgammaRV4swave=Simplify[CollgammaRV4/. {H->mc,P->0}]

CollgammaRV6=Simplify[(CollgammaRV6s/. {xlmmmxlpp->xlmmmxlpp1,xlmmpxlpp->xlmmpxlpp1})+((O[mf])^3)]

CollgammaRV6swave=Simplify[CollgammaRV6/. {H->mc,P->0}]

CollgammaRV8=Simplify[(CollgammaRV8s/. {xlmmmxlpp->xlmmmxlpp1,xlmmpxlpp->xlmmpxlpp1})+((O[mf])^3)]

CollgammaRV8swave=Simplify[CollgammaRV8/. {H->mc,P->0}]

Collinear part from thermal photon for Dirac :

CollgammaRVDirac=Simplify[CollgammaRVsDirac+((O[mf])^3)/. {xlmmmxlpp->xlmmmxlpp1,xlmmpxlpp->xlmmpxlpp1}]

CollgammaRVDiracswave=Simplify[CollgammaRVDirac/. {H->mc,P->0}]

Collinear contribution from thermal fermion+anti-fermion:

CollfaRV1= (* Lf terms have cancelled between real and virtual *) Simplify[(CollfaRVs/. {ylmmmylpp->ylmmmylpp1,ylmmpylpp->ylmmpylpp1,zlmmzlp->zlmmzlp1,zlmpzlp->zlmpzlp1})+((O[ot])^4)]

CollfaRV = CollfaRV1/. Lf1-> Lf // Simplify

CollfaRVswave=Simplify[Expand[CollfaRV/. {H->mc,P->0}]]

Collinear part from thermal fermion + anti - fermion for Dirac case :

CollfaRVDirac=Simplify[(CollfaRVsDirac/. {ylmmmylpp->ylmmmylpp1,ylmmpylpp->ylmmpylpp1,zlmmzlp->zlmmzlp1,zlmpzlp->zlmpzlp1})+((O[ot])^4)]

CollfaRVDiracswave=Simplify[CollfaRVDirac/. {H->mc,P->0}]

Now find the integrated finite contributions from log terms from gamma and f + fbar :

Some problem with integrating Collgamma, so doing in bits :

intCollgammaRV1=Simplify[Simplify[Simplify[Coefficient[Normal[Normal[CollgammaRV]+((O[ω])^4)],ω,1],H>0] I2,beta>0]+Simplify[Simplify[Coefficient[Normal[Normal[CollgammaRV]+((O[ω])^4)],ω,3],H>0] I4,beta>0]]

intCollgammaRV=Simplify[Simplify[Normal[intCollgammaRV1+((O[mf])^3)],H>0]]

intCollgammaRVswave=Simplify[intCollgammaRV/. {H->mc,P->0}]

intCollfaRV1=Simplify[Coefficient[Normal[(Normal[CollfaRV]/. {Lf1-> Lf,Kt->ot})+((O[ot])^4)],ot,1] If2+Coefficient[Normal[(Normal[CollfaRV]/. {Lf1-> Lf, Kt->ot})+((O[ot])^4)],ot,3] If4+((O[mf])^3)]

intCollfaRV=Simplify[Normal[intCollfaRV1],H>0]

intCollfaRVswave=Simplify[intCollfaRV/. {Lf1-> Lf, H->mc,P->0}]

Sum the gamma and f, fbar contributions :

intCollgammafaRV = (intCollgammaRV + intCollfaRV) // Simplify

intCollgammafaRVswave = (intCollgammaRVswave + intCollfaRVswave) // Simplify

Save["final.nb",intCollgammaRV ]

Save["final.nb",intCollfaRV ]

Save["final.nb",intCollgammafaRV ]

intCollgammafaRVT2swave = Coefficient[(intCollgammafaRVswave) beta^4, beta, 2]/(beta^2) // Simplify

intCollgammafaRVT4swave = intCollgammafaRVswave- intCollgammafaRVT2swave// Simplify

Results for Dirac case:

intCollgammaRVDirac1=Simplify[Simplify[Simplify[Coefficient[Normal[Normal[CollgammaRVDirac]+((O[ω])^4)],ω,1],H>0] I2,beta>0]+Simplify[Simplify[Coefficient[Normal[Normal[CollgammaRVDirac]+((O[ω])^4)],ω,3],H>0] I4,beta>0]]

intCollgammaRVDirac=Simplify[Simplify[Normal[intCollgammaRVDirac1+((O[mf])^3)],H>0]]

intCollgammaRVDiracswave=Simplify[intCollgammaRVDirac/. {H->mc,P->0}]

intCollfaRVDirac1=Simplify[Coefficient[Normal[(Normal[CollfaRVDirac]/. {Lf1-> Lf, Kt->ot})+((O[ot])^4)],ot,1] If2+Coefficient[Normal[(Normal[CollfaRVDirac]/.{Lf1-> Lf,  Kt->ot})+((O[ot])^4)],ot,3] If4+((O[mf])^3)]

intCollfaRVDirac=Simplify[Normal[intCollfaRVDirac1],H>0]

intCollfaRVDiracswave=Simplify[intCollfaRVDirac/. {H->mc,P->0}]

Sum the gamma and f, fbar contributions for Dirac coll log terms :

intCollgammafaRVDirac = (intCollgammaRVDirac + intCollfaRVDirac) // Simplify

intCollgammafaRVDiracswave = (intCollgammaRVDiracswave + intCollfaRVDiracswave) // Simplify

Save["final.nb",intCollgammaRVDirac ]

Save["final.nb",intCollfaRVDirac ]

Save["final.nb",intCollgammafaRVDirac ]

Adding the thermal virtual + real nonlog and log parts to get total finite contribution to thermal annihilation cross section to O[T]^4. We have two results, one of the separate gamma and f,fbar sums, and the other, the sum of total virtual-non-log + real-non-log + log (real+virtual). Starting with separate gamma and f,fbar sums.

Thermal photon:Virtual  nonlog +Real nonlog + (R+V) log part :

intgammasum = intvirtualtotmatchreal + intrealtot + intCollgammaRV // Simplify

intgammasumDirac = intvirtualtotDiracmatchreal + intrealtotDirac + intCollgammaRVDirac // Simplify

Thermal fermion : Virtual  nonlog + Real nonlog + (R + V) log part :

intfasum = intvirtualfatotmatchreal + intrealfatot + intCollfaRV // Simplify

intfasumDirac = intvirtualfatotDiracmatchreal + intrealfatotDirac + intCollfaRVDirac // Simplify

Final total finite cross section on summing gamma and (f, fbar) contributions :

intgammafasum = intgammasum + intfasum // Simplify

intgammafasumDirac = intgammasumDirac + intfasumDirac // Simplify

Now, summing the "virtual", "real" and "real+virtual log" terms together : this should be same as above

inttotal= intvirtualgammafamatchreal + intrealgammafa + intCollgammafaRV // Simplify

inttotalswave = inttotal /. {H-> mc, P-> 0} // Simplify

Save["final.nb",intvirtualgammafamatchreal ]

Save["final.nb",intrealgammafa ]

Save["final.nb",intCollgammafaRV  ]

Save["final.nb",inttotal ]

inttotal - intgammafasum // Simplify (* Check! *)

inttotalDirac= intvirtualgammafaDiracmatchreal + intrealgammafaDirac + intCollgammafaRVDirac // Simplify

inttotalDirac - intgammafasumDirac // Simplify (* These should match *)

inttotalDiracswave = inttotalDirac /. {H-> mc, P-> 0} // Simplify

Save["final.nb",intvirtualgammafaDiracmatchreal ]

Save["final.nb",intrealgammafaDirac ]

Save["final.nb",intCollgammafaRVDirac  ]

Save["final.nb",inttotalDirac ]

Now the calculation is completed . The rest is simply alternate ways of adding the same thing!

Separately adding the virtual and real log terms :

Now, separately summing the virtual and real log terms :

virtualtotlog = (V11s + V22s + V33s + V12s + V13s + V23s + V44s + V55s + V66s + V45s + V46s + V56s - (V14s + V1524s + V1634s + V25s + V2635s + V36s) )// Simplify

(virtualtotlog + O[ω]^4)/. {H-> mc, P-> 0}  // Simplify

realtotlog = (R11s + R22s + R33s + R12s + R13s + R23s+ R44s + R55s + R66s + R45s + R46s + R56s - (R14s + R1524s + R1634s + R25s + R2635s + R36s) )// Simplify

realtotlog2 = (realtotlog + O[ω]^2)/. {xlmmpxlpp -> xlmmpxlpp1, xlmmmxlpp-> xlmmmxlpp1} // Simplify

Normal@((realtotlog2 - Coefficient[realtotlog2, xlv] xlv)) + O[mf]^3 /. {H-> mc, P-> 0} // Simplify

virtualtotlog

Collgamma - (realtotlog /. {xlmmmxlpp-> xlmmmxlpp1, xlmmpxlpp-> xlmmpxlpp1})- virtualtotlog // Simplify

virtualfatotlog = (Normal@(V11fs + V22fs + V33fs + V12fs + V13fs + V23fs + V44fs + V55fs + V66fs + V45fs + V46fs + V56fs) - Normal@(V14fs + V1524fs + V1634fs + V25fs + V2635fs + V36fs) +  Normal@(V11as + V22as + V33as + V12as + V13as + V23as + V44as + V55as + V66as + V45as + V46as + V56as) - Normal@(V14as + V1524as + V1634as + V25as + V2635as + V36as)) + O[ot]^4// Simplify

virtualfatotlog2 = virtualfatotlog + O[ot]^2 /. {zlmpzlp -> zlmpzlp1, zlmmzlp -> zlmmzlp1} // Simplify

(virtualfatotlog2 - Coefficient[virtualfatotlog2, Lf] Lf ) /. {H-> mc, P-> 0}// Simplify

virtualfatotlog4=V11fs+V33fs+V13fs+V44fs+V66fs+V46fs +V11as+V33as+V13as+V44as+V66as+V46as-(V14fs+V1634fs+V36fs + V14as+V1634as+V36as) // Simplify

virtualfatotlog6=V12fs+V23fs+V45fs+V56fs + V12as+V23as+V45as+V56as-(V1524fs+V2635fs + V1524as+V2635as) //Simplify

virtualfatotlog8 =Simplify[Normal[V22fs+V55fs + V22as + V55as]-Normal[V25fs + V25as]]

virtualfatotlog - virtualfatotlog4 - virtualfatotlog6 - virtualfatotlog8 // Simplify

realfatotlog = (Normal@(R11ffs + R22ffs + R33ffs + R12ffs + R13ffs + R23ffs + R44ffs + R55ffs + R66ffs + R45ffs + R46ffs + R56ffs) - Normal@(R14ffs + R1524ffs + R1634ffs + R25ffs + R2635ffs + R36ffs)+Normal@(R11aas + R22aas + R33aas + R12aas + R13aas + R23aas+ R44aas + R55aas + R66aas + R45aas + R46aas + R56aas) - Normal@(R14aas + R1524aas + R1634aas + R25aas + R2635aas + R36aas)) // Simplify

realfatotlog2 = (realfatotlog + O[ot]^2)/. {ylmmpylpp-> ylmmpylpp1, ylmmmylpp-> ylmmmylpp1} // Simplify

(realfatotlog2 - Coefficient[realfatotlog2, Lf1] Lf1) /. {H-> mc, P-> 0} // Simplify

realfatotlog4=Normal[R11ffs+R33ffs+R13ffs+R44ffs+R66ffs+R46ffs +R11aas+R33aas+R13aas+R44aas+R66aas+R46aas-(R14ffs+R1634ffs+R36ffs + R14aas+R1634aas+R36aas)]  // Simplify

realfatotlog6=Normal[R12ffs+R23ffs+R45ffs+R56ffs + R12aas+R23aas+R45aas+R56aas-(R1524ffs+R2635ffs + R1524aas+R2635aas)] // Simplify

realfatotlog8 = Simplify[Normal[R22ffs+R55ffs + R22aas +R55aas]-Normal[R25ffs + R25aas]]

realfatotlog - realfatotlog4 - realfatotlog6 - realfatotlog8 // Simplify

Normal@(Normal@(Colls + O[mf]^3)) + O[ot]^4 - Normal@(Normal@((virtualfatotlog - realfatotlog)) + O[mf]^3) + O[ot]^4// Simplify

Normal@(Colls  - virtualfatotlog + realfatotlog ) + O[mf]^3// Simplify

Normal@(Coll4s  - virtualfatotlog4 + realfatotlog4) + O[mf]^3 // Simplify

Normal@(Coll6s  - virtualfatotlog6 + realfatotlog6) + O[mf]^3 // Simplify

Normal@(Coll8s  - virtualfatotlog8 + realfatotlog8) + O[mf]^3 // Simplify

intgammalog4 = (Normal@ ((Normal@(virtualtotlog + realtotlog)/ω I2 + O[mf]^3 /.{ H-> mc, P-> 0, xlmmmxlpp-> xlmmmxlpp1, xlmmpxlpp-> xlmmpxlpp1, zlmmzlp-> zlmmzlp1, zlmpzlp-> zlmpzlp1}) )+ O[ω]^2) // Simplify

intgammalog4 /. {H-> mc} // Simplify

intfalog4 = (Normal@ ((Normal@(virtualfatotlog4 - realfatotlog4)/Kt If2 + O[mf]^3) /.{ H-> mc, P-> 0, ylmmmylpp-> ylmmmylpp1, ylmmpylpp-> ylmmpylpp1, zlmmzlp-> zlmmzlp1, zlmpzlp-> zlmpzlp1}) + O[ot]^2) // Simplify

cv = ((Colls  /.{ H-> mc, P-> 0, ylmmmylpp-> ylmmmylpp1, ylmmpylpp-> ylmmpylpp1, zlmmzlp-> zlmmzlp1, zlmpzlp-> zlmpzlp1}) + O[ot]^2) // Simplify// Simplify

intgammalog4 + intfalog4 // Simplify

Dirac case :

virtualtotlogDirac = (V11s + V22s + V33s + V12s + V13s + V23s )// Simplify

virtualfatotlogDirac = (Normal@(V11fs + V22fs + V33fs + V12fs + V13fs + V23fs)  +  Normal@(V11as + V22as + V33as + V12as + V13as + V23as )) + O[ot]^4// Simplify

realtotlogDirac = (R11s + R22s + R33s + R12s + R13s + R23s )// Simplify

realfatotlogDirac = (Normal@(R11ffs + R22ffs + R33ffs + R12ffs + R13ffs + R23ffs ) +Normal@(R11aas + R22aas + R33aas + R12aas + R13aas + R23aas)) // Simplify

Adding virtual and real log and non log parts together :

Virtual log + nonlog :

virtualtotlognolog = Simplify[(virtualtot + virtualtotlog) + O[mf]^3, H>0]

Simplify[(Normal@(virtualtotlognolog + O[mf]^3) + O[ω]^2) /.{H-> mc, P-> 0}, mc> 0]

virtualfatotlognolog = Simplify[(virtualfatot + virtualfatotlog) /. {zlmmzlp -> zlmmzlp1, zlmpzlp -> zlmpzlp1},H> 0]// Simplify

Dirac case :

(virtualtotDirac/ω I2 + virtualfatotDirac/Kt If2)/. {ot-> 0,H-> mc, P-> 0} // Simplify

(Normal@(realtotDiracswave/ω I2) + O[ω]^2) - (Normal@(realfatotDiracswave/Kt If2)+ O[ot]^2)// Simplify

virtualtotlognologDirac = Simplify[(virtualtotDirac + virtualtotlogDirac) + O[mf]^3, H>0]

virtualfatotlognologDirac = Simplify[(virtualfatotDirac + virtualfatotlogDirac) /. {zlmmzlp -> zlmmzlp1, zlmpzlp -> zlmpzlp1},H> 0]// Simplify

Real log + non log :

realtotlognolog = Simplify[((realtot + realtotlog) /. {xlmmmxlpp -> xlmmmxlpp1, xlmmpxlpp -> xlmmpxlpp1}),H> 0]// Simplify

realtotlognolog/.{H-> mc, P->0 } // Simplify

Normal@(realtotlognolog /.{xlv-> 0,H-> mc, P->0 }) + O[ω]^2 // Simplify

realfatotlognolog = Simplify[((realfatot + realfatotlog) /. {ylmmmylpp -> ylmmmylpp1, ylmmpylpp -> ylmmpylpp1}),H> 0]// Simplify

Normal@totfalogT2/ot If2 /. {H-> mc, P-> 0}// Simplify

realtotlognologDirac = Simplify[((realtotDirac + realtotlogDirac) /. {xlmmmxlpp -> xlmmmxlpp1, xlmmpxlpp -> xlmmpxlpp1}),H> 0]// Simplify

realfatotlognologDirac = Simplify[((realfatotDirac + realfatotlogDirac) /. {ylmmmylpp -> ylmmmylpp1, ylmmpylpp -> ylmmpylpp1}),H> 0]// Simplify

To check cancellation of collinear divergences between the log parts alone (contain both soft and coll divergences) :

totgammalog = virtualtotlog + realtotlog // Simplify

totgammalogT2= Normal@(Normal@(totgammalog /. {xlmmpxlpp -> xlmmpxlpp1, xlmmmxlpp-> xlmmmxlpp1}) + O[mf]^3) + O[ω]^2 // Simplify (* Should be independent of xlv *)

Normal@totgammalogT2/ω I2 /. {H-> mc, P-> 0}// Simplify

totgammalogDirac = virtualtotlogDirac + realtotlogDirac // Simplify

totgammalogT2Dirac= (Normal@(Normal@(totgammalogDirac /. {xlmmpxlpp -> xlmmpxlpp1, xlmmmxlpp-> xlmmmxlpp1}) + O[mf]^3) + O[ω]^2)/ω I2 // Simplify (* Should be independent of xlv *)

totgammalogT2Diracswave = totgammalogT2Dirac/. {H-> mc, P-> 0} // Simplify

totfalog = virtualfatotlog - realfatotlog // Simplify

totfalogT2= (Normal@(Normal@(totfalog /. {ylmmpylpp -> ylmmpylpp1, ylmmmylpp-> ylmmmylpp1, zlmpzlp -> zlmpzlp1, zlmmzlp-> zlmmzlp1}) + O[mf]^3) + O[ot]^2) /. {H-> mc, P-> 0, Lf1-> Lf} // Simplify (* Should be independent of Lf *)

totfalogT2 /Kt If2// Simplify

totfalogDirac= virtualfatotlogDirac - realfatotlogDirac // Simplify

totfalogT2Dirac= ((Normal@(Normal@(totfalogDirac /. {ylmmpylpp -> ylmmpylpp1, ylmmmylpp-> ylmmmylpp1, zlmpzlp -> zlmpzlp1, zlmmzlp-> zlmmzlp1}) + O[mf]^3) + O[ot]^2) /. {Lf1-> Lf}) /Kt If2 // Simplify

totfalogT2Diracswave = totfalogT2Dirac /. {H-> mc, P->0} // Simplify

logT2Diracswave = totgammalogT2Diracswave + totfalogT2Diracswave // Simplify

Summed thermal photon contribution :

realvirtualtotomegaLO = (* Order T^2; swave, real comes with +nB for gamma  *) Simplify[Normal@(((virtualtotlognolog + realtotlognolog)/. {H-> mc, P-> 0}) + O[mf]^3) + O[ω]^2, mc> 0] // Simplify (* indep of xlv and 1/mh^4 *)

realvirtualtotomega4 =  (* T^2 + T^4  ; Log terms cancel amongst themselves *) Simplify[Normal@(((virtualtotlognolog + realtotlognolog)/. {H-> mc, P-> 0}) + O[mf]^3) + O[ω]^4, mc> 0] // Simplify

realvirtualtotomegaNLO = Normal@realvirtualtotomega4 - Normal@realvirtualtotomegaLO // Simplify

Normal@realvirtualtotomegaNLO/(ω^3) I4 // Simplify

intrealvirtualgammatot = Normal@realvirtualtotomegaLO/ω I2 + Normal@realvirtualtotomegaNLO/(ω^3) I4 // Simplify

Summed thermal f + fbar contribution :

realvirtualfatotomegaLO = (* real comes with -nF *) Simplify[Normal@(((virtualfatotlognolog - realfatotlognolog)/. {H-> mc, P-> 0, Lf1-> Lf}) + O[mf]^3) + O[ot]^2, mc> 0] // Simplify (* Lf cancels; all mh terms appear *)

realvirtualfatotomegaT4 = (* real comes with -nF *) Simplify[Normal@(((virtualfatotlognolog - realfatotlognolog)/. {H-> mc, P-> 0, Lf1-> Lf}) + O[mf]^3) + O[ot]^4, mc> 0] // Simplify

Normal@(virtualfatotlog - realfatotlog) + O[ot]^4//Simplify

realvirtualfatotomegaNLO = Normal@realvirtualfatotomegaT4 - Normal@realvirtualfatotomegaLO // Simplify

Normal@realvirtualfatotomegaNLO/(Kt ot^2) If4 // Simplify

intrealvirtualfatot = Normal@realvirtualfatotomegaLO/Kt If2 + Normal@realvirtualfatotomegaNLO/(Kt ot^2) If4 // Simplify

Total of all totals
THESE ARE THE FINAL SUMS  :

final = intrealvirtualgammatot + intrealvirtualfatot // Simplify

final - inttotal/.{H-> mc, P-> 0} // Simplify (* This way of adding also agrees !*)

finalT2 = Coefficient[(beta^4)Normal@final, beta, 2] (* /(beta^2) *)

finalT4 =Coefficient[(beta^4)Normal@final, beta, 0]   (* /(beta^4) *)

For the Dirac case :

totDiracT2swave = virtualT2Diracswave + realT2Diracswave + logT2Diracswave // Simplify