(*
Code by Ofek Birnholtz, ofek.birnholtz@mail.huji.ac.il
Cite as
	Birnholtz, Ofek & Hadar, Shahar 2014
	Radiation-reaction of gravitation in general dimension
*)

term27withcc13=FullSimplify[FullSimplify[-(1/(2 (r^6)))(2 CS hd r hCrs[r] (-2 (1+hd) r hrs[r]+(-1+hd) hs[r]+((2 CS2 hd hs2[r])/(1+hd)))+(1/(((1+hd))^2))(2 CS hd (-1+(hd^2)) hCs[r] ((1+hd) (r hrs[r]-hs[r])-CS2 hs2[r])+hCs2[r] ((1+hd) (4 CS CS2 (hd^2) r hrs[r]+(-2 CS CS2 (-1+hd) hd+(1+hd) g24 gu12 gu34 gu56 D5[y2L13] D6[y]) hs[r])+2 (-2 CS (CS2^2) (hd^2)+(((1+hd))^2) gu12 gu34 gu56 D5[y2L13] D6[y2L24]) hs2[r])))/.{g24 gu12 gu34->gu13,gu13 D5[y2L13]->0,gu12 gu34 gu56 D5[y2L13] D6[y2L24]->((CS CS2 hd (CS-2(hd+1)))/(hd+1))}]/.{g24 gu12 gu34->gu13,gu13 D5[y2L13]->0,gu12 gu34 gu56 D5[y2L13] D6[y2L24]->((CS CS2 hd (CS-2(hd+1)))/(hd+1))}]
term27withcc12=FullSimplify[FullSimplify[-(1/(2 (r^6)))(r hCrs[r] (-4 CS hd (1+hd) r hrs[r]+2 CS (-1+hd) hd hs[r]+(1/(1+hd))(CS CS2 hd (1+4 hd)+ (1+hd) gu15 D5[y2L13] Du3[y]) hs2[r])+(1/(((1+hd))^2))(2 CS hd (-1+(hd^2)) hCs[r] ((1+hd) (r hrs[r]-hs[r])-CS2 hs2[r])+hCs2[r] ((1+hd) (r (2 CS CS2 hd (1+2 hd)+(1+hd)(D5[y2L13]gu35 Du1[y]+D5[y2L13]gu15 Du3[y])) hrs[r]+(-2 CS CS2 (-1+hd) hd+ (1+hd) g24 gu12 gu34 gu56 D5[y2L13] D6[y]) hs[r])+2 (-2 CS (CS2^2) (hd^2)+(((1+hd))^2) gu12 gu34 gu56 D5[y2L13] D6[y2L24]) hs2[r])))/.{gu15 D5[y2L13]->-((CS2 hd)/(hd+1))D3[y],D3[y] Du3[y]->CS,gu35 D5[y2L13]-> -((CS2 hd)/(hd+1))D1[y],D1[y] Du1[y]->CS}]/.{gu15 D5[y2L13]->-((CS2 hd)/(hd+1))D3[y],D3[y] Du3[y]->CS,gu35 D5[y2L13]-> -((CS2 hd)/(hd+1))D1[y],D1[y] Du1[y]->CS}];
term27withcc11=FullSimplify[FullSimplify[-(1/(2 (r^6)))(r hCrs[r] (-4 CS hd (1+hd) r hrs[r]+2 CS (-1+hd) hd hs[r]+(((2 CS CS2 hd (1+2 hd))/(1+hd))+gu12 D2[y] gu56 D5[y2L16]+g26 gu12 gu56 D5[y2L13] Du3[y]) hs2[r])+(1/(((1+hd))^2))((1+hd) hCs[r] ((1+hd) r (CS (-1+2 (-1+hd) hd)+D2[y] Du2[y]) hrs[r]-2 CS hd (-1+(hd^2)) hs[r]+(-2 CS CS2 (-1+hd) hd+ (1+hd) gu56 gu13  D5[y2L13] D6[y]) hs2[r])+hCs2[r] ((1+hd) r (CS CS2 hd (3+4 hd)+(1+hd) ((gu12 gu34 gu56 g46 D2[y]+gu12 gu56 g26 gu34 D4[y]) D5[y2L13]+gu46 D6[y2L24] Du2[y])) hrs[r]-(1+hd) (2 CS CS2 (-1+hd) hd-(1+hd) (gu34 g24 gu12 gu56 D5[y2L13] D6[y]+gu34 D6[y2L34] Du6[y])) hs[r]+2 (-2 CS (CS2^2) (hd^2)+gu12 gu34 gu56 (((1+hd))^2) D5[y2L13] D6[y2L24]) hs2[r])))/.{gu13 D5[y2L13]->0,g26 gu12 gu56->gu15,gu56 D5[y2L16]->-((CS2 hd)/(hd+1))D1[y],gu46 D6[y2L24]->-((CS2 hd)/(hd+1))D2[y],gu34 gu56 g46->gu35,gu12 gu56 g26->gu15,gu12 D1[y] D2[y]->CS,gu34 D6[y2L34]->0,gu34 D4[y]->Du3[y],gu12 D2[y]->Du1[y]}]/.{gu13 D5[y2L13]->0,g26 gu12 gu56->gu15,gu56 D5[y2L16]->-((CS2 hd)/(hd+1))D1[y],gu46 D6[y2L24]->-((CS2 hd)/(hd+1))D2[y],gu34 gu56 g46->gu35,gu12 gu56 g26->gu15,gu12 D1[y] D2[y]->CS,gu34 D6[y2L34]->0,gu34 D4[y]->Du3[y],gu12 D2[y]->Du1[y],Du1[y]D1[y]->CS,D2[y] Du2[y]->CS}];
term27withcc10=FullSimplify[-(1/(2 (r^6)))(r hCrs[r] (-4 CS hd (1+hd) r hrs[r]+(2 CS (-2+hd) (1+hd)+ (D6[y]g24 gu46 Du2[y]+D6[y]g24 gu26 Du4[y]+2D6[y] Du6[y])) hs[r]+(((2 CS CS2 hd (1+2 hd))/(1+hd))+(gu12 gu56 D5[y2L13] δ36 D2[y]+gu12 gu56 D5[y2L13] g26 Du3[y])) hs2[r])+(1/(((1+hd))^2))((1+hd) hCs[r] ((1+hd) r (CS (-1+2 (-1+hd) hd)+δ23 δ36 D6[y] Du2[y]) hrs[r]-2 CS hd (-1+(hd^2)) hs[r]+(-2 CS CS2 (-1+hd) hd+ (1+hd) gu12 δ23 gu56 D5[y2L13] D6[y]) hs2[r])+hCs2[r] ((1+hd) r (CS CS2 hd (3+4 hd)+ (1+hd) ((gu12 gu56 gu34 g46 D2[y]+gu12 gu56 gu34 g26 D4[y]) D5[y2L13]+gu34 δ36 D6[y2L24] Du2[y])) hrs[r]-(1+hd) (2 CS CS2 (-1+hd) hd-gu34 (1+hd) (g24 gu12 gu56 D5[y2L13] D6[y]+D6[y2L34] Du6[y])) hs[r]+2 (-2 CS (CS2^2) (hd^2)+ (((1+hd))^2) gu12 gu34 gu56 D5[y2L13] D6[y2L24]) hs2[r])))/.{D6[y] Du6[y]->CS,D6[y]g24 gu46 Du2[y]->CS,D6[y]g24 gu26 Du4[y]->CS,D5[y2L13] δ36->D5[y2L16],gu12 δ23->gu13,gu13 D5[y2L13]->0,δ23 δ36 D6[y]->D2[y],gu34 δ36->gu46,gu56 D5[y2L16]->-((CS2 hd)/(hd+1))D1[y]}];
term27withcc9=FullSimplify[FullSimplify[-(1/(2 (r^6)))(r hCrs[r] (r (-4 CS (2+hd (2+hd))+2 (2+hd) D2[y] Du2[y]+ (g26 gu26 D3[y]+g26 δ36 Du2[y]) Du3[y]+ (g26 D4[y]gu46 Du2[y]+g26 D4[y]gu26 Du4[y])) hrs[r]+(2 CS (-2+hd) (1+hd)+g24 D6[y] (gu46 Du2[y]+gu26 Du4[y])+ (δ23δ36 D2[y]+δ23 g26 Du3[y]) Du6[y]) hs[r]+(4 CS CS2 hd-((CS2 hd D2[y] Du2[y])/(1+hd))+gu12 gu56 D5[y2L13] (δ36 D2[y]+g26 Du3[y])-((CS2 hd D4[y] Du4[y])/(1+hd))) hs2[r])+(1/(((1+hd))^2))(hCs2[r] ((1+hd) r (-CS2 gu34 hd D3[y] D4[y]+(1+hd) (4 CS CS2 hd+gu12 gu34 gu56 (g46 D2[y]+g26 D4[y]) D5[y2L13]+gu34 δ36 D6[y2L24] Du2[y])) hrs[r]-(1+hd) (2 CS CS2 (-1+hd) hd-gu34 (1+hd) (g24 gu12 gu56 D5[y2L13] D6[y]+D6[y2L34] Du6[y])) hs[r]+2 (-2 CS (CS2^2) (hd^2)+gu12 gu34 gu56 (((1+hd))^2) D5[y2L13] D6[y2L24]) hs2[r])+(1+hd) hCs[r] ((1+hd) (r (CS (-1+2 (-1+hd) hd)+δ23 δ36 D6[y] Du2[y]) hrs[r]+CS (-1+hd-2 (hd^2)+g24 gu34 δ23) hs[r])+(-2 CS CS2 (-1+hd) hd+gu12 gu56 (1+hd) δ23 D5[y2L13] D6[y]+gu34 (1+hd) D6[y2L34] Du6[y]) hs2[r])))/.{D2[y] Du2[y]->CS, D4[y] Du4[y]->CS,gu34 D3[y] D4[y]->CS,gu34 D6[y2L34]->0 ,g24 gu34 δ23->hd+1,g26 gu26->hd+1,g26 δ36 Du2[y]->D3[y],D3[y]Du3[y]->CS,g26 D4[y]gu46 Du2[y]->CS,δ23δ36 D2[y]->D6[y],δ23 g26 Du3[y]->D6[y]}]/.{D2[y] Du2[y]->CS, D4[y] Du4[y]->CS,gu34 D3[y] D4[y]->CS,gu34 D6[y2L34]->0 ,g24 gu34 δ23->hd+1,g26 gu26->hd+1,g26 δ36 Du2[y]->D3[y],D3[y]Du3[y]->CS,g26 D4[y]gu46 Du2[y]->CS,δ23δ36 D2[y]->D6[y],δ23 g26 Du3[y]->D6[y]}];
term27withcc8=FullSimplify[FullSimplify[-(1/(2 (r^6)))(-2 CS (2 r hCrs[r]+(1+hd) hCs[r]) (2 r hrs[r]+(1+hd) hs[r])+2 CS ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (2 r hrs[r]+(1+hd) hs[r])+2 CS (2 r hCrs[r]+(1+hd) hCs[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-4 CS ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))+(r (δ36 D2[y]+g26 Du3[y]) hCrs[r]) (r (gu26 D3[y]+δ36 Du2[y]) hrs[r]+δ23 Du6[y] hs[r]+gu12 gu56 D5[y2L13] hs2[r])+( hCs[r]) (r (δ23 D6[y]gu26 D3[y]+δ23 D6[y]δ36 Du2[y]) hrs[r]+δ23 D6[y]δ23 Du6[y] hs[r]+δ23 D6[y]gu12 gu56 D5[y2L13] hs2[r])+( hCs2[r]) (r (gu34 D6[y2L24]gu26 D3[y]+gu34 D6[y2L24]δ36 Du2[y]) hrs[r]+gu34 D6[y2L24]δ23 Du6[y] hs[r]+gu34 D6[y2L24]gu12 gu56 D5[y2L13] hs2[r])+(gu12 gu34 gu56 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r])+( hCs[r]) (r (gu34 δ23 Du6[y]g46 D2[y]+gu34 δ23 Du6[y]g26 D4[y]) hrs[r]+gu34 δ23 Du6[y]g24 D6[y] hs[r]+gu34 δ23 Du6[y]D6[y2L24] hs2[r])+(r (gu46 Du2[y]+gu26 Du4[y]) hCrs[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r]))/.{δ23 D6[y]gu26 D3[y]->CS,gu34 δ23 Du6[y]g46 D2[y]->CS,((δ23)^2)->hd+1,D6[y]Du6[y]->CS,gu34 δ23 Du6[y]g26 D4[y]->CS,δ23 D6[y2L24]->D6[y2L34],gu46 D6[y2L24]->-((CS2 hd)/(hd+1))D2[y],gu26 D6[y2L24]->-((CS2 hd)/(hd+1))D4[y],g46 gu46->hd+1,((δ36)^2)->hd+1,gu26 δ36 D3[y]-> Du2[y],g46 gu26 Du4[y]->Du2[y]}]/.{δ23 D6[y]gu26 D3[y]->CS,gu34 δ23 Du6[y]g46 D2[y]->CS,((δ23)^2)->hd+1,D6[y]Du6[y]->CS,gu34 δ23 Du6[y]g26 D4[y]->CS,δ23 D6[y2L24]->D6[y2L34],gu46 D6[y2L24]->-((CS2 hd)/(hd+1))D2[y],gu26 D6[y2L24]->-((CS2 hd)/(hd+1))D4[y],g46 gu46->hd+1,((δ36)^2)->hd+1,gu26 δ36 D3[y]-> Du2[y],g46 gu26 Du4[y]->Du2[y]}];
term27withcc7=FullSimplify[FullSimplify[-(1/(2 (r^6)))(2 ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r Du4[y] (g45 gu56 D6[y]+g46 Du6[y]) hrs[r]+CS g56 gu56 hs[r])-2 CS (2 r hCrs[r]+(1+hd) hCs[r]) (2 r hrs[r]+(1+hd) hs[r])+2 (r Du4[y] (g45 gu56 D6[y]+g46 Du6[y]) hCrs[r]+CS g56 gu56 hCs[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 D6[y] Du6[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 (CS (2+hd) r hCrs[r]+CS hCs[r]-((CS2 hd D6[y] Du6[y] hCs2[r])/(1+hd))) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))+ (r (gu34 g46 D2[y]+gu34 g26 D4[y]) hCrs[r]+gu34 g24 D6[y] hCs[r]+gu34 D6[y2L24] hCs2[r]) (r (gu26 D3[y]+g35 gu56 Du2[y]) hrs[r]+δ23 Du6[y] hs[r]+gu12 gu56 D5[y2L13] hs2[r])+ (r (gu34 gu26 D3[y]+gu34 g35 gu56 Du2[y]) hCrs[r]+gu34 δ23 Du6[y] hCs[r]+gu34 gu12 gu56 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r]))/.{gu34 g35 gu56->gu46,g56 gu56->hd+1,g45 gu56 D6[y]->D4[y],g46 Du6[y]->D4[y],D6[y] Du6[y]->CS,D4[y] Du4[y]->CS,gu34 g46->δ36,gu34 D4[y]->Du3[y],gu34 g24 ->δ23,g35 gu56->δ36,gu34 D3[y]->Du4[y]}]/.{gu34 g35 gu56->gu46,g56 gu56->hd+1,g45 gu56 D6[y]->D4[y],g46 Du6[y]->D4[y],D6[y] Du6[y]->CS,D4[y] Du4[y]->CS,gu34 g46->δ36,gu34 D4[y]->Du3[y],gu34 g24 ->δ23,g35 gu56->δ36,gu34 D3[y]->Du4[y]}];
term27withcc6=FullSimplify[-(1/(2 (r^6)))(-2 CS (2 r hCrs[r]+(1+hd) hCs[r]) (2 r hrs[r]+(1+hd) hs[r])+2  (r (gu56 Du4[y]g46 D5[y]+gu56 Du4[y]g45 D6[y]) hCrs[r]+gu56 Du4[y]g56 D4[y] hCs[r]+gu56 Du4[y]D4[y2L56] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2  (D6[y]Du6[y] ((2+hd) r hCrs[r]+hCs[r])-((CS2 gu56 D6[y]hd D5[y] hCs2[r])/(1+hd))) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))+2 ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r (gu56 Du4[y]g46 D5[y]+gu56 Du4[y]g45 D6[y]) hrs[r]+gu56 Du4[y]g56 D4[y] hs[r]+gu56 Du4[y]D4[y2L56] hs2[r])-2 D6[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (Du6[y] ((2+hd) r hrs[r]+hs[r])-((CS2 gu56 D5[y]hd  hs2[r])/(1+hd)))+ (r (gu34 g46 D2[y]+gu34 g26 D4[y]) hCrs[r]+gu34 g24 D6[y] hCs[r]+gu34 D6[y2L24] hCs2[r]) (r (gu26 D3[y]+g35 gu56 Du2[y]) hrs[r]+δ23 Du6[y] hs[r]+gu12 gu56 D5[y2L13] hs2[r])+ (r (gu26 gu34 D3[y]+gu34 g35 gu56 Du2[y]) hCrs[r]+gu34 δ23 Du6[y] hCs[r]+gu12 gu56 gu34 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r]))/.{gu56 D4[y2L56]->0,D4[y]Du4[y]->CS,D6[y]Du6[y]->CS,gu56 g56->hd+1,gu56 D5[y]->Du6[y]}];
term27withcc5=FullSimplify[(1/(2 (r^6))) (2 gu56 D5[y] D6[y] (2 r hCrs[r]+(1+hd) hCs[r]) (2 r hrs[r]+(1+hd) hs[r])+2 D6[y] (gu56 D5[y] ((2+hd) r hCrs[r]+hCs[r])+gu34 gu56 D4[y2L35] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 gu34 D3[y] (r (g46 gu56 D5[y]+gu56 g45 D6[y]) hCrs[r]+gu56 g56 D4[y] hCs[r]+gu56 D4[y2L56] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))+2 D6[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (gu56 D5[y] ((2+hd) r hrs[r]+hs[r])+gu34 gu56 D4[y2L35] hs2[r])-2 gu34 D3[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r (g46 gu56 D5[y]+g45 gu56 D6[y]) hrs[r]+gu56 g56 D4[y] hs[r]+gu56 D4[y2L56] hs2[r])-gu34 (r (g46 D2[y]+g26 D4[y]) hCrs[r]+g24 D6[y] hCs[r]+D6[y2L24] hCs2[r]) (r (gu56 δ25 D3[y]+gu56 g35 Du2[y]) hrs[r]+δ23 gu56 D5[y] hs[r]+gu12 gu56 D5[y2L13] hs2[r])-gu34 (r (gu56 δ25 D3[y]+gu56 g35 Du2[y]) hCrs[r]+δ23 gu56 D5[y] hCs[r]+gu12 gu56 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r]))/.{gu56 D5[y] D6[y]->CS,gu56 D4[y2L56]->0,gu56 g56->hd+1,gu56 D5[y]->Du6[y],gu34 D3[y]->Du4[y],gu56 D5[y]->Du6[y],gu56 δ25->gu26,gu34 D4[y2L35]->-((CS2 hd)/(hd+1))D5[y]}];
term27withcc4=FullSimplify[(1/(2 (r^6))) gu56 (D5[y] (r (g46 gu34 D3[y]+gu34 g36 D4[y]) hCrs[r]+gu34 g34 D6[y] hCs[r]+gu34 D6[y2L34] hCs2[r]) (2 r hrs[r]+(1+hd) hs[r])+2 D6[y] (r (g45 gu34 D3[y]+gu34 g34 D5[y]) hCrs[r]+gu34 g35 D4[y] hCs[r]+gu34 D4[y2L35] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 gu34 D3[y] (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))+2 D6[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r (g45 gu34 D3[y]+gu34 g34 D5[y]) hrs[r]+gu34 g35 D4[y] hs[r]+gu34 D4[y2L35] hs2[r])-2 gu34 D3[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r (g46 D5[y]+g45 D6[y]) hrs[r]+g56 D4[y] hs[r]+D4[y2L56] hs2[r])-(r (g46 D2[y]+g26 D4[y]) hCrs[r]+g24 D6[y] hCs[r]+D6[y2L24] hCs2[r]) (r (δ25 gu34 D3[y]+gu34 g35 Du2[y]) hrs[r]+gu34 δ23 D5[y] hs[r]+gu12 gu34 D5[y2L13] hs2[r])-(r (δ25 gu34 D3[y]+gu34 g35 Du2[y]) hCrs[r]+gu34 δ23 D5[y] hCs[r]+gu34 gu12 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r])+D5[y] (2 r hCrs[r]+(1+hd) hCs[r]) (r (g46 gu34 D3[y]+gu34 g36 D4[y]) hrs[r]+gu34 g34 D6[y] hs[r]+gu34 D6[y2L34] hs2[r]))/.{gu34 D6[y2L34]->0,gu34 g34->hd+1,g46 gu34 D3[y]->D6[y],gu34 g36 D4[y]->D6[y],gu34 g35 D4[y]->D5[y],g45 gu34 D3[y]->D5[y]}];
term27withcc3=FullSimplify[(1/(2 (r^6))) gu56 (D5[y] (r (g46 gu34 D3[y]+gu34 g36 D4[y]) hCrs[r]+gu34 g34 D6[y] hCs[r]+gu34 D6[y2L34] hCs2[r]) (2 r hrs[r]+(1+hd) hs[r])+2 D6[y] (r (g45 gu34 D3[y]+gu34 g34 D5[y]) hCrs[r]+gu34 g35 D4[y] hCs[r]+gu34 D4[y2L35] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 gu34 D3[y] (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))+2 D6[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r (g45 gu34 D3[y]+gu34 g34 D5[y]) hrs[r]+gu34 g35 D4[y] hs[r]+gu34 D4[y2L35] hs2[r])-2 gu34 D3[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (r (g46 D5[y]+g45 D6[y]) hrs[r]+g56 D4[y] hs[r]+D4[y2L56] hs2[r])-(r (g46 D2[y]+g26 D4[y]) hCrs[r]+g24 D6[y] hCs[r]+D6[y2L24] hCs2[r]) (r (δ25 gu34 D3[y]+gu34 g35 Du2[y]) hrs[r]+gu34 δ23 D5[y] hs[r]+gu12 gu34 D5[y2L13] hs2[r])-(r (δ25 gu34 D3[y]+gu34 g35 Du2[y]) hCrs[r]+gu34 δ23 D5[y] hCs[r]+gu34 gu12 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r])+D5[y] (2 r hCrs[r]+(1+hd) hCs[r]) (r (g46 gu34 D3[y]+gu34 g36 D4[y]) hrs[r]+gu34 g34 D6[y] hs[r]+gu34 D6[y2L34] hs2[r]))/.{gu34 D6[y2L34]->0,gu34 g34->hd+1}];
term27withcc2=FullSimplify[FullSimplify[(1/(2 (r^6))) gu34 gu56 (-2 (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) (r (g23 gu12 D1[y]+gu12 g12 D3[y]) hrs[r]+gu12 g13 D2[y] hs[r]+gu12 D2[y2L13] hs2[r])+2 (r (g45 D3[y]+g34 D5[y]) hCrs[r]+g35 D4[y] hCs[r]+D4[y2L35] hCs2[r]) (r (g26 gu12 D1[y]+gu12 g12 D6[y]) hrs[r]+gu12 g16 D2[y] hs[r]+gu12 D2[y2L16] hs2[r])+2 (r (g26 gu12 D1[y]+gu12 g12 D6[y]) hCrs[r]+gu12 g16 D2[y] hCs[r]+gu12 D2[y2L16] hCs2[r]) (r (g45 D3[y]+g34 D5[y]) hrs[r]+g35 D4[y] hs[r]+D4[y2L35] hs2[r])-2 (r (g23 gu12 D1[y]+gu12 g12 D3[y]) hCrs[r]+gu12 g13 D2[y] hCs[r]+gu12 D2[y2L13] hCs2[r]) (r (g46 D5[y]+g45 D6[y]) hrs[r]+g56 D4[y] hs[r]+D4[y2L56] hs2[r])+(r (g46 D3[y]+g36 D4[y]) hCrs[r]+g34 D6[y] hCs[r]+D6[y2L34] hCs2[r]) (r (g25 gu12 D1[y]+gu12 g15 D2[y]) hrs[r]+gu12 g12 D5[y] hs[r]+gu12 D5[y2L12] hs2[r])-(r (g46 D2[y]+g26 D4[y]) hCrs[r]+g24 D6[y] hCs[r]+D6[y2L24] hCs2[r]) (r (g35 gu12 D1[y]+gu12 g15 D3[y]) hrs[r]+gu12 g13 D5[y] hs[r]+gu12 D5[y2L13] hs2[r])-(r (g35 gu12 D1[y]+gu12 g15 D3[y]) hCrs[r]+gu12 g13 D5[y] hCs[r]+gu12 D5[y2L13] hCs2[r]) (r (g46 D2[y]+g26 D4[y]) hrs[r]+g24 D6[y] hs[r]+D6[y2L24] hs2[r])+(r (g25 gu12 D1[y]+gu12 g15 D2[y]) hCrs[r]+gu12 g12 D5[y] hCs[r]+gu12 D5[y2L12] hCs2[r]) (r (g46 D3[y]+g36 D4[y]) hrs[r]+g34 D6[y] hs[r]+D6[y2L34] hs2[r]))/.{gu12 g12->hd+1,gu12 g13 D2[y]->D3[y],gu12 g16 D2[y]->D6[y],g25 gu12 D1[y]->D5[y],g15 gu12 D2[y]->D5[y],gu12 D1[y]->Du2[y],gu12 D5[y2L12]->0,g23 Du2[y]->D3[y],g26 Du2[y]->D6[y],gu12 D2[y2L13]->-((CS2 hd)/(hd+1))D3[y],gu12 D2[y2L16]->-((CS2 hd)/(hd+1))D6[y],g15 gu12->δ25,g13 gu12->δ23}]/.{gu12 g12->hd+1,gu12 g13 D2[y]->D3[y],gu12 g16 D2[y]->D6[y],g25 gu12 D1[y]->D5[y],g15 gu12 D2[y]->D5[y],gu12 D1[y]->Du2[y],gu12 D5[y2L12]->0,g23 Du2[y]->D3[y],g26 Du2[y]->D6[y],gu12 D2[y2L13]->-((CS2 hd)/(hd+1))D3[y],gu12 D2[y2L16]->-((CS2 hd)/(hd+1))D6[y],g15 gu12->δ25,g13 gu12->δ23}];
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term27withcc12-term27withcc13/.{g24 gu12 gu34->gu13,gu13 D5[y2L13]->0,gu12 gu34 gu56 D5[y2L13] D6[y2L24]->((CS CS2 hd (CS-2(hd+1)))/(hd+1))}]/.{g24 gu12 gu34->gu13,gu13 D5[y2L13]->0,gu12 gu34 gu56 D5[y2L13] D6[y2L24]->((CS CS2 hd (CS-2(hd+1)))/(hd+1))}]/.{g24 gu12 gu34->gu13,gu13 D5[y2L13]->0,gu12 gu34 gu56 D5[y2L13] D6[y2L24]->((CS CS2 hd (CS-2(hd+1)))/(hd+1))}]/.{}]
term26withcc8=FullSimplify[(1/(2 (r^6)))(-(1/(1+hd))2 CS r ((1+hd) ((2+hd) r hCrs[r]+hCs[r])-CS2 hd hCs2[r]) (r hrr[r]-2 hrs[r])+4 ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) ((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r])-(1/(1+hd))2 CS r (r hCrr[r]-2 hCrs[r]) ((1+hd) ((2+hd) r hrs[r]+hs[r])-CS2 hd hs2[r])-2 (((1+hd))^2) (2 hCs[r]-r hCs'[r]) (-2 hs[r]+r hs'[r])+ (gu13 y2L13(2  y hCs[r]-r  y hCs'[r])+gu12 gu34 y2L24 y2L13(2   hCs2[r]-r   hCs2'[r]))((r  hs2'[r]-2  hs2[r]))+ (g13 gu13 (2  y hCs[r]-r  y hCs'[r])+g13 gu12 gu34 y2L24(2   hCs2[r]-r   hCs2'[r]))((-2  y hs[r]+r y hs'[r]))+ (g24 gu24 (2  y hCs[r]-r  y hCs'[r])+g24 gu12 gu34 y2L13( 2   hCs2[r]-r   hCs2'[r]))((-2  y hs[r]+ r y hs'[r]))+ (y2L24 gu24 (2  y hCs[r]-r  y hCs'[r])+gu12 gu34 y2L24 y2L13( 2   hCs2[r]-r   hCs2'[r]))((r  hs2'[r]-2  hs2[r])))/.{gu13 y2L13->0,y2L24 gu24 ->0,g24 gu24->hd+1,g13 gu13->hd+1,g24 gu12 gu34 y2L13->0,g13 gu12 gu34 y2L24->0,gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1))}]
term26withcc7=FullSimplify[FullSimplify[(1/(2 (r^6))) (-(1/(1+hd))2 r gu34 D3[y] D4[y] ((1+hd) ((2+hd) r hCrs[r]+hCs[r])-CS2 hd hCs2[r]) (r hrr[r]-2 hrs[r])+2 y (gu34 g34 (r^2) y hCrr[r]+r gu34 D4D3[y] hCrs[r]-gu34 g34 y hCs[r]-gu34 y2L34 hCs2[r]) ((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r])-(1/(1+hd))2 r gu34 D3[y] D4[y] (r hCrr[r]-2 hCrs[r]) ((1+hd) ((2+hd) r hrs[r]+hs[r])-CS2 hd hs2[r])+2 y ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (gu34 g34 (r^2) y hrr[r]+r gu34 D4D3[y] hrs[r]-gu34 g34 y hs[r]-gu34 y2L34 hs2[r])-(1+hd) y (-2 gu34 g34 y hCs[r]-2 gu34 y2L34 hCs2[r]+gu34 g34 r y hCs'[r]+r gu34 y2L34 hCs2'[r]) (2 hs[r]-r hs'[r])+gu12 (2 g24 y hCs[r]+2 y2L24 hCs2[r]-r (g24 y hCs'[r]+y2L24 hCs2'[r])) (-2 gu34 g13 y hs[r]-2 gu34 y2L13 hs2[r]+gu34 g13 r y hs'[r]+r gu34 y2L13 hs2'[r])+gu12 (2 gu34 g13 y hCs[r]+2 gu34 y2L13 hCs2[r]-r (gu34 g13 y hCs'[r]+gu34 y2L13 hCs2'[r])) (-2 g24 y hs[r]-2 y2L24 hs2[r]+g24 r y hs'[r]+r y2L24 hs2'[r])-(1+hd) y (2 hCs[r]-r hCs'[r]) (-2 gu34 g34 y hs[r]-2 gu34 y2L34 hs2[r]+gu34 g34 r y hs'[r]+r gu34 y2L34 hs2'[r]))/.{gu34 y2L34->0,gu34 g34->hd+1,gu34 D3[y] D4[y]->CS,gu34  D4D3[y]->-CS y}]/.{(y^2)->1}];
term26withcc6=FullSimplify[(1/(2 (r^6))) (-(1/(1+hd))2 r gu34 D3[y] D4[y] ((1+hd) ((2+hd) r hCrs[r]+hCs[r])-CS2 hd hCs2[r]) (r hrr[r]-2 hrs[r])+2 y (gu34 g34 (r^2) y hCrr[r]+r gu34 D4D3[y] hCrs[r]-gu34 g34 y hCs[r]-gu34 y2L34 hCs2[r]) ((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r])-(1/(1+hd))2 r gu34 D3[y] D4[y] (r hCrr[r]-2 hCrs[r]) ((1+hd) ((2+hd) r hrs[r]+hs[r])-CS2 hd hs2[r])+2 y ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (gu34 g34 (r^2) y hrr[r]+r gu34 D4D3[y] hrs[r]-gu34 g34 y hs[r]-gu34 y2L34 hs2[r])-(1+hd) y (-2 gu34 g34 y hCs[r]-2 gu34 y2L34 hCs2[r]+gu34 g34 r y hCs'[r]+r gu34 y2L34 hCs2'[r]) (2 hs[r]-r hs'[r])+gu12 (2 g24 y hCs[r]+2 y2L24 hCs2[r]-r (g24 y hCs'[r]+y2L24 hCs2'[r])) (-2 gu34 g13 y hs[r]-2 gu34 y2L13 hs2[r]+gu34 g13 r y hs'[r]+r gu34 y2L13 hs2'[r])+gu12 (2 gu34 g13 y hCs[r]+2 gu34 y2L13 hCs2[r]-r (gu34 g13 y hCs'[r]+gu34 y2L13 hCs2'[r])) (-2 g24 y hs[r]-2 y2L24 hs2[r]+g24 r y hs'[r]+r y2L24 hs2'[r])-(1+hd) y (2 hCs[r]-r hCs'[r]) (-2 gu34 g34 y hs[r]-2 gu34 y2L34 hs2[r]+gu34 g34 r y hs'[r]+r gu34 y2L34 hs2'[r]))/.{gu34 y2L34->0,gu34 g34->hd+1}];
term26withcc5=FullSimplify[(1/(2 (r^6))) gu34 (-2 r (r (g23 gu12 D1[y]+g12 gu12 D3[y]) hCrs[r]+gu12 g13 D2[y] hCs[r]+gu12 D2[y2L13] hCs2[r]) (r D4[y] hrr[r]-2 D4[y] hrs[r])+2 (g34 (r^2) y hCrr[r]+r D4D3[y] hCrs[r]-g34 y hCs[r]-y2L34 hCs2[r]) (g12 gu12 (r^2) y hrr[r]+r gu12 D2D1[y] hrs[r]-gu12 g12 y hs[r]-gu12 y2L12 hs2[r])+2 (gu12 g12 (r^2) y hCrr[r]+r gu12 D2D1[y] hCrs[r]-gu12 g12 y hCs[r]-gu12 y2L12 hCs2[r]) (g34 (r^2) y hrr[r]+r D4D3[y] hrs[r]-g34 y hs[r]-y2L34 hs2[r])-2 r (r D4[y] hCrr[r]-2 D4[y] hCrs[r]) (r (g23 gu12 D1[y]+gu12 g12 D3[y]) hrs[r]+gu12 g13 D2[y] hs[r]+gu12 D2[y2L13] hs2[r])-(-2 g34 y hCs[r]-2 y2L34 hCs2[r]+r (g34 y hCs'[r]+y2L34 hCs2'[r])) (2 gu12 g12 y hs[r]+2 gu12 y2L12 hs2[r]-r (gu12 g12 y hs'[r]+gu12 y2L12 hs2'[r]))+(-2 g24 y hCs[r]-2 y2L24 hCs2[r]+r (g24 y hCs'[r]+y2L24 hCs2'[r])) (2 gu12 g13 y hs[r]+2 gu12 y2L13 hs2[r]-r (gu12 g13 y hs'[r]+gu12 y2L13 hs2'[r]))+(-2 gu12 g13 y hCs[r]-2 gu12 y2L13 hCs2[r]+r (gu12 g13 y hCs'[r]+gu12 y2L13 hCs2'[r])) (2 g24 y hs[r]+2 y2L24 hs2[r]-r (g24 y hs'[r]+y2L24 hs2'[r]))-(-2 gu12 g12 y hCs[r]-2 gu12 y2L12 hCs2[r]+r (gu12 g12 y hCs'[r]+gu12 y2L12 hCs2'[r])) (2 g34 y hs[r]+2 y2L34 hs2[r]-r (g34 y hs'[r]+y2L34 hs2'[r])))/.{gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,gu12 D2D1[y]->-CS y,gu34 D4D3[y]->-CS y,g23 gu12 D1[y]->D3[y],g13 gu12 D2[y]->D3[y],gu12 D2[y2L13]->-((CS2 hd)/(hd+1))D3[y]}];
term26withcc4=FullSimplify[(1/(2 (r^6))) gu34 (-2 r (r (g23 gu12 D1[y]+g12 gu12 D3[y]) hCrs[r]+gu12 g13 D2[y] hCs[r]+gu12 D2[y2L13] hCs2[r]) (r D4[y] hrr[r]-2 D4[y] hrs[r])+2 (g34 (r^2) y hCrr[r]+r D4D3[y] hCrs[r]-g34 y hCs[r]-y2L34 hCs2[r]) (g12 gu12 (r^2) y hrr[r]+r gu12 D2D1[y] hrs[r]-gu12 g12 y hs[r]-gu12 y2L12 hs2[r])+2 (gu12 g12 (r^2) y hCrr[r]+r gu12 D2D1[y] hCrs[r]-gu12 g12 y hCs[r]-gu12 y2L12 hCs2[r]) (g34 (r^2) y hrr[r]+r D4D3[y] hrs[r]-g34 y hs[r]-y2L34 hs2[r])-2 r (r D4[y] hCrr[r]-2 D4[y] hCrs[r]) (r (g23 gu12 D1[y]+gu12 g12 D3[y]) hrs[r]+gu12 g13 D2[y] hs[r]+gu12 D2[y2L13] hs2[r])-(-2 g34 y hCs[r]-2 y2L34 hCs2[r]+r (g34 y hCs'[r]+y2L34 hCs2'[r])) (2 gu12 g12 y hs[r]+2 gu12 y2L12 hs2[r]-r (gu12 g12 y hs'[r]+gu12 y2L12 hs2'[r]))+(-2 g24 y hCs[r]-2 y2L24 hCs2[r]+r (g24 y hCs'[r]+y2L24 hCs2'[r])) (2 gu12 g13 y hs[r]+2 gu12 y2L13 hs2[r]-r (gu12 g13 y hs'[r]+gu12 y2L13 hs2'[r]))+(-2 gu12 g13 y hCs[r]-2 gu12 y2L13 hCs2[r]+r (gu12 g13 y hCs'[r]+gu12 y2L13 hCs2'[r])) (2 g24 y hs[r]+2 y2L24 hs2[r]-r (g24 y hs'[r]+y2L24 hs2'[r]))-(-2 gu12 g12 y hCs[r]-2 gu12 y2L12 hCs2[r]+r (gu12 g12 y hCs'[r]+gu12 y2L12 hCs2'[r])) (2 g34 y hs[r]+2 y2L34 hs2[r]-r (g34 y hs'[r]+y2L34 hs2'[r])))/.{gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,gu12 D2D1[y]->-CS y,gu34 D4D3[y]->-CS y(*,g23 gu12 D1[y]->D3[y],g13 gu12 D2[y]->D3[y],gu12 D2[y2L13]->-((CS2 hd)/(hd+1))D3[y]*)}];
term26withcc3=FullSimplify[(1/(2 (r^6))) gu34 (-2 r (r (g23 gu12 D1[y]+g12 gu12 D3[y]) hCrs[r]+gu12 g13 D2[y] hCs[r]+gu12 D2[y2L13] hCs2[r]) (r D4[y] hrr[r]-2 D4[y] hrs[r])+2 (g34 (r^2) y hCrr[r]+r D4D3[y] hCrs[r]-g34 y hCs[r]-y2L34 hCs2[r]) (g12 gu12 (r^2) y hrr[r]+r gu12 D2D1[y] hrs[r]-gu12 g12 y hs[r]-gu12 y2L12 hs2[r])+2 (gu12 g12 (r^2) y hCrr[r]+r gu12 D2D1[y] hCrs[r]-gu12 g12 y hCs[r]-gu12 y2L12 hCs2[r]) (g34 (r^2) y hrr[r]+r D4D3[y] hrs[r]-g34 y hs[r]-y2L34 hs2[r])-2 r (r D4[y] hCrr[r]-2 D4[y] hCrs[r]) (r (g23 gu12 D1[y]+gu12 g12 D3[y]) hrs[r]+gu12 g13 D2[y] hs[r]+gu12 D2[y2L13] hs2[r])-(-2 g34 y hCs[r]-2 y2L34 hCs2[r]+r (g34 y hCs'[r]+y2L34 hCs2'[r])) (2 gu12 g12 y hs[r]+2 gu12 y2L12 hs2[r]-r (gu12 g12 y hs'[r]+gu12 y2L12 hs2'[r]))+(-2 g24 y hCs[r]-2 y2L24 hCs2[r]+r (g24 y hCs'[r]+y2L24 hCs2'[r])) (2 gu12 g13 y hs[r]+2 gu12 y2L13 hs2[r]-r (gu12 g13 y hs'[r]+gu12 y2L13 hs2'[r]))+(-2 gu12 g13 y hCs[r]-2 gu12 y2L13 hCs2[r]+r (gu12 g13 y hCs'[r]+gu12 y2L13 hCs2'[r])) (2 g24 y hs[r]+2 y2L24 hs2[r]-r (g24 y hs'[r]+y2L24 hs2'[r]))-(-2 gu12 g12 y hCs[r]-2 gu12 y2L12 hCs2[r]+r (gu12 g12 y hCs'[r]+gu12 y2L12 hCs2'[r])) (2 g34 y hs[r]+2 y2L34 hs2[r]-r (g34 y hs'[r]+y2L34 hs2'[r])))/.{gu12 y2L12->0,gu34 y2L34->0}];
term26withcc2=(1/(2 (r^6)))gu12 gu34 (-2 r (r (g23 D1[y]+g12 D3[y]) hCrs[r]+g13 D2[y] hCs[r]+D2[y2L13] hCs2[r]) (r D4[y] hrr[r]-2  D4[y] hrs[r])-2 r (r D4[y] hCrr[r]-2  D4[y] hCrs[r]) (r (g23 D1[y]+g12 D3[y]) hrs[r]+g13 D2[y] hs[r]+D2[y2L13] hs2[r])+2 (g34 (r^2) y hCrr[r]+r D4D3[y] hCrs[r]- (g34 y hCs[r]+y2L34 hCs2[r])) (g12 (r^2) y hrr[r]+r D2D1[y] hrs[r]- (g12 y hs[r]+y2L12 hs2[r]))+2 (g12 (r^2) y hCrr[r]+r D2D1[y] hCrs[r]- (g12 y hCs[r]+y2L12 hCs2[r])) (g34 (r^2) y hrr[r]+r D4D3[y] hrs[r]- (g34 y hs[r]+y2L34 hs2[r]))-(-(g34+g34) y hCs[r]-(y2L34+y2L34) hCs2[r]+r (g34 y hCs'[r]+y2L34 hCs2'[r])) ((g12+g12) y hs[r]+(y2L12+y2L12) hs2[r]-r (g12 y hs'[r]+y2L12 hs2'[r]))+(-(g24+g24) y hCs[r]-( y2L24+ y2L24) hCs2[r]+r (g24 y hCs'[r]+y2L24 hCs2'[r])) ((g13+g13) y hs[r]+( y2L13+ y2L13) hs2[r]-r (g13 y hs'[r]+y2L13 hs2'[r]))+(-(g13+g13) y hCs[r]-( y2L13+ y2L13) hCs2[r]+r (g13 y hCs'[r]+y2L13 hCs2'[r])) ((g24+g24) y hs[r]+( y2L24+y2L24) hs2[r]-r (g24 y hs'[r]+y2L24 hs2'[r]))-(-(g12+g12) y hCs[r]-( y2L12+y2L12) hCs2[r]+r (g12 y hCs'[r]+y2L12 hCs2'[r])) ((g34+g34) y hs[r]+(y2L34+y2L34) hs2[r]-r (g34 y hs'[r]+y2L34 hs2'[r])));
FullSimplify[FullSimplify[FullSimplify[FullSimplify[FullSimplify[term26withcc8-term26withcc7/.{g13 gu12 gu34->gu24,g24 gu12 gu34->gu13 ,gu34 y2L34->0,gu34 g34->hd+1,gu13 g13->hd+1,gu24 g24->hd+1,gu34 D3[y] D4[y]->CS,gu34  D4D3[y]->-CS y}]/.{g13 gu12 gu34->gu24,g24 gu12 gu34->gu13 ,gu34 y2L34->0,gu34 g34->hd+1,gu13 g13->hd+1,gu24 g24->hd+1,gu34 D3[y] D4[y]->CS,gu34  D4D3[y]->-CS y}]/.{(y^2)->1}]/.{g13 gu12 gu34->gu24,g24 gu12 gu34->gu13 ,gu34 y2L34->0,gu34 g34->hd+1,gu13 g13->hd+1,gu24 g24->hd+1,gu34 D3[y] D4[y]->CS,gu34  D4D3[y]->-CS y,gu13 y2L13->0,gu24 y2L24->0,gu12 gu34 y (g24 y2L13+g13 y2L24)->0}]/.{g13 gu12 gu34->gu24,g24 gu12 gu34->gu13 ,gu34 y2L34->0,gu34 g34->hd+1,gu13 g13->hd+1,gu24 g24->hd+1,gu34 D3[y] D4[y]->CS,gu34  D4D3[y]->-CS y,gu13 y2L13->0,gu24 y2L24->0,gu12 gu34 y (g24 y2L13+g13 y2L24)->0,gu12 gu34 (1+hd) y2L13 y2L24->CS CS2 hd}]
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term26withcc2-term26withcc/.{delta48 D8[y]->D4[y],delta47 D7[y]->D4[y],delta28 g18->g12,delta37 g17->g13,delta27 g37->g23,delta38 g18->g13,delta48 g18->g14,delta28 g48->g24,delta18 g48->g14,delta28 g18->g12,delta17 g37->g13,delta18 g28->g12,delta48 g28->g24,delta27 g17->g12,delta17 g27->g12,delta48 g38->g34,delta38 g48->g34,delta47 g27->g24,delta27 g47->g24,delta37 y2L17->y2L13,delta27 y2L37->y2L23,delta38 y2L18->y2L13,delta48 y2L18->y2L14,delta28 y2L48->y2L24,delta18 y2L48->y2L14,delta28 y2L18->y2L12,delta17 y2L37->y2L13,delta18 y2L28->y2L12,delta48 y2L28->y2L24,delta27 y2L17->y2L12,delta17 y2L27->y2L12,delta48 y2L38->y2L34,delta38 y2L48->y2L34,delta47 y2L27->y2L24,delta27 y2L47->y2L24}]/.{delta48 D8[y]->D4[y],delta47 D7[y]->D4[y],delta28 g18->g12,delta37 g17->g13,delta27 g37->g23,delta38 g18->g13,delta48 g18->g14,delta28 g48->g24,delta18 g48->g14,delta28 g18->g12,delta17 g37->g13,delta18 g28->g12,delta48 g28->g24,delta27 g17->g12,delta17 g27->g12,delta48 g38->g34,delta38 g48->g34,delta47 g27->g24,delta27 g47->g24,delta37 y2L17->y2L13,delta27 y2L37->y2L23,delta38 y2L18->y2L13,delta48 y2L18->y2L14,delta28 y2L48->y2L24,delta18 y2L48->y2L14,delta28 y2L18->y2L12,delta17 y2L37->y2L13,delta18 y2L28->y2L12,delta48 y2L28->y2L24,delta27 y2L17->y2L12,delta17 y2L27->y2L12,delta48 y2L38->y2L34,delta38 y2L48->y2L34,delta47 y2L27->y2L24,delta27 y2L47->y2L24}]/.{delta48 D8[y]->D4[y],delta47 D7[y]->D4[y],delta28 g18->g12,delta37 g17->g13,delta27 g37->g23,delta38 g18->g13,delta48 g18->g14,delta28 g48->g24,delta18 g48->g14,delta28 g18->g12,delta17 g37->g13,delta18 g28->g12,delta48 g28->g24,delta27 g17->g12,delta17 g27->g12,delta48 g38->g34,delta38 g48->g34,delta47 g27->g24,delta27 g47->g24,delta37 y2L17->y2L13,delta27 y2L37->y2L23,delta38 y2L18->y2L13,delta48 y2L18->y2L14,delta28 y2L48->y2L24,delta18 y2L48->y2L14,delta28 y2L18->y2L12,delta17 y2L37->y2L13,delta18 y2L28->y2L12,delta48 y2L28->y2L24,delta27 y2L17->y2L12,delta17 y2L27->y2L12,delta48 y2L38->y2L34,delta38 y2L48->y2L34,delta47 y2L27->y2L24,delta27 y2L47->y2L24}]/.{delta18 g38->g13,delta18 y2L38->y2L13,delta47 g37->g34,delta47 y2L37->y2L34,delta37 g47->g34,delta37 y2L47->y2L34}];
term25withcc4=FullSimplify[FullSimplify[(1/(r^4))(((CS CS2 hd (w^2) hCs2[r] hs2[r])/(1+hd))+gu34 D4[y] hCtt[r] (g23 gu12 r D1[y] hrs[r]+(1+hd) r D3[y] hrs[r]+(gu12 g13 D2[y] hs[r]+gu12 D2[y2L13] hs2[r]))-(1+hd) (y^2) (hd (w^2) hCs[r] hs[r]+2 (1+hd) (r^2) hCtr[r] htr[r])-2 (CS^2) (y^2) hCts[r] hts[r]+2 CS (1+hd) r (y^2) (hCts[r] htr[r]+hCtr[r] hts[r])+ (gu34 D4[y]g23 gu12 D1[y] r hCrs[r]+(1+hd)gu34 D4[y]D3[y] r hCrs[r]+(gu34 D4[y]gu12 g13 D2[y] hCs[r]+gu34 D4[y]gu12 D2[y2L13] hCs2[r])) htt[r])/.{gu12 g13 D2[y]->D3[y],gu12 D2[y2L13]->-((CS2 hd)/(hd+1))D3[y],g23 gu12 r D1[y]->D3[y]}]/.{gu34 D3[y] D4[y]->CS,(y^2)->1}]
term25withcc3=FullSimplify[FullSimplify[(1/(2 (r^4)))(((2 CS CS2 hd (w^2) hCs2[r] hs2[r])/(1+hd))+2  (y^2) ((gu12 gu34 g13 g24-gu12 gu34 g12 g34) (w^2) hCs[r] hs[r]-2 gu12 gu34 g12 g34 (r^2) hCtr[r] htr[r])-4 gu12 gu34 D2D1[y] D4D3[y] hCts[r] hts[r]- y (-(w^2) (gu12 gu34 g24 y2L13+gu12 gu34 g13 y2L24) (hCs2[r] hs[r]+hCs[r] hs2[r])+2 r (gu12 gu34 g34 D2D1[y]+gu12 gu34 g12 D4D3[y]) (hCts[r] htr[r]+hCtr[r] hts[r]))+2  (hCtt[r] (r (gu12 gu34 D4[y]g23 D1[y]+gu12 gu34 D4[y]g12 D3[y]) hrs[r]+gu12 gu34 D4[y]g13 D2[y] hs[r]+gu12 gu34 D4[y]D2[y2L13] hs2[r])+(r (gu12 gu34 D4[y]g23 D1[y]+gu12 gu34 D4[y]g12 D3[y]) hCrs[r]+gu12 gu34 D4[y]g13 D2[y] hCs[r]+gu12 gu34 D4[y]D2[y2L13] hCs2[r]) htt[r]))/.{gu12 gu34 g24 y2L13->0,gu12 gu34 g13 y2L24->0,gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,g13 g24 gu12->g34,g13 g24 gu12 gu34->hd+1,gu12  D2D1[y]->-CS y,gu34 D4D3[y]->-CS y}]/.{gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,g13 g24 gu12->g34,g13 g24 gu12 gu34->hd+1,gu12  D2D1[y]->-CS y,gu34 D4D3[y]->-CS y}];
term25withcc2=FullSimplify[(1/(2 (r^4))) (2 (w^2) (gu12 gu34 y2L13 y2L24-gu12 gu34 y2L12 y2L34) hCs2[r] hs2[r]+2 (y^2) ((gu12 gu34 g13 g24-gu12 gu34 g12 g34) (w^2) hCs[r] hs[r]-2 gu12 gu34 g12 g34 (r^2) hCtr[r] htr[r])-4 gu12 gu34 D2D1[y] D4D3[y] hCts[r] hts[r]-y ((w^2) (g34 gu12 gu34 y2L12-g24 gu12 gu34 y2L13-g13 gu12 gu34 y2L24+gu12 gu34 g12 y2L34) hCs2[r] hs[r]+(w^2) (g34 gu12 gu34 y2L12-g24 gu12 gu34 y2L13-gu12 gu34 g13 y2L24+gu12 gu34 g12 y2L34) hCs[r] hs2[r]+2 r (g34 gu12 gu34 D2D1[y]+gu12 gu34 g12 D4D3[y]) (hCts[r] htr[r]+hCtr[r] hts[r]))+2 D4[y] (hCtt[r] (r (g23 gu12 gu34 D1[y]+gu12 gu34 g12 D3[y]) hrs[r]+gu12 gu34 g13 D2[y] hs[r]+gu12 gu34 D2[y2L13] hs2[r])+(r (g23 gu12 gu34 D1[y]+gu12 gu34 g12 D3[y]) hCrs[r]+gu12 gu34 g13 D2[y] hCs[r]+gu12 gu34 D2[y2L13] hCs2[r]) htt[r]))/.{gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0}];
FullSimplify[FullSimplify[FullSimplify[FullSimplify[FullSimplify[term25withcc4-term25withcc3/.{gu12 gu34 g24 y2L13->0,gu12 gu34 g13 y2L24->0,gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1}]/.{gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,g13 g24 gu12 gu34->hd+1,gu12  D2D1[y]->-CS y,gu34 D4D3[y]->-CS y}]/.{gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,g13 g24 gu12 gu34->hd+1,gu12  D2D1[y]->-CS y,gu34 D4D3[y]->-CS y}]/.{gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,g13 g24 gu12 gu34->hd+1,gu12  D2D1[y]->-CS y,gu34 D4D3[y]->-CS y}]/.{gu12 gu34 y2L13 y2L24->((CS CS2 hd)/(hd+1)),gu12 y2L12->0,gu34 y2L34->0,gu12 g12->hd+1,gu34 g34->hd+1,g13 g24 gu12 gu34->hd+1,gu12  D2D1[y]->-CS y,gu34 D4D3[y]->-CS y}]
term24cctry9=FullSimplify[(1/(2 (r^6)))(r CS (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+r CS (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])- (((hd+1)((r^2) hCrr[r]-hCs[r])-r CS hCrs[r]) ( ((r^2) hrr[r]-hs[r]))+(-CS ((r^2) hCrr[r]-hCs[r])+r CS(CS-hd) hCrs[r]-(((CS CS2 hd)/(hd+1))) hCs2[r]) (r hrs[r])+(r (((CS CS2 hd)/(hd+1))) hCrs[r]-(((CS CS2 hd)/(hd+1))) hCs2[r]) (- hs2[r]))-(((hd+1) ((r^2)hCrr[r]-hCs[r])-r CS hCrs[r]) ( ((r^2)  hrr[r]-hs[r]))+(-CS y y ((r^2)hCrr[r]-hCs[r])+r  CS(CS-hd)hCrs[r]-(((CS CS2 hd)/(hd+1))) hCs2[r]) (r hrs[r])+(r (((CS CS2 hd)/(hd+1))) hCrs[r]-(((CS CS2 hd)/(hd+1)))hCs2[r]) (- hs2[r]))+2 r  (CS ((2+hd) r hrs[r]+hs[r])+(-((CS CS2 hd)/(hd+1))) hs2[r]) (-hCrs[r]+r hCrs'[r])-2 (1+hd)((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r]) (-2 hCs[r]+r hCs'[r])+2 r (CS ((2+hd) r hCrs[r]+hCs[r])+(-((CS CS2 hd)/(hd+1))) hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd) ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (2 hs[r]-r hs'[r]))/.{(y^2)->1}]
term24cctry8=Simplify[(1/(2 (r^6)))(r CS (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+r CS (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])- (((hd+1)((r^2) hCrr[r]-hCs[r])-r CS hCrs[r]) ( ((r^2) hrr[r]-hs[r]))+(-CS ((r^2) hCrr[r]-hCs[r])+r CS(CS-hd) hCrs[r]-D5D1[y]gu12 gu56 y2L26 hCs2[r]) (r hrs[r])+(r y2L15 gu12 gu56 D6D2[y] hCrs[r]-(((CS CS2 hd)/(hd+1))) hCs2[r]) (- hs2[r]))-(((hd+1) ((r^2)hCrr[r]-hCs[r])-r CS hCrs[r]) ( ((r^2)  hrr[r]-hs[r]))+(-CS y y ((r^2)hCrr[r]-hCs[r])+r  CS(CS-hd)hCrs[r]-D6D2[y] gu12 gu56 y2L15 hCs2[r]) (r hrs[r])+(y2L26 gu12 gu56 r D5D1[y] hCrs[r]-(((CS CS2 hd)/(hd+1)))hCs2[r]) (- hs2[r]))+2 r  (CS ((2+hd) r hrs[r]+hs[r])+(-((CS CS2 hd)/(hd+1))) hs2[r]) (-hCrs[r]+r hCrs'[r])-2 (1+hd)((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r]) (-2 hCs[r]+r hCs'[r])+2 r (CS ((2+hd) r hCrs[r]+hCs[r])+(-((CS CS2 hd)/(hd+1))) hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd) ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (2 hs[r]-r hs'[r]))];
term24cctry7=Simplify[(1/(2 (r^6)))(r CS (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+r CS (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])- (((hd+1)((r^2) hCrr[r]-hCs[r])-r CS hCrs[r]) ( ((r^2) hrr[r]-hs[r]))+(-CS ((r^2) hCrr[r]-hCs[r])+r D5D1[y]gu12 gu56 D6D2[y] hCrs[r]-D5D1[y]gu12 gu56 y2L26 hCs2[r]) (r hrs[r])+(r y2L15 gu12 gu56 D6D2[y] hCrs[r]-y2L15 gu12 gu56 y2L26 hCs2[r]) (- hs2[r]))-(((hd+1) ((r^2)hCrr[r]-hCs[r])-r CS hCrs[r]-g26 y gu12 gu56 y2L15 hCs2[r]) ( ((r^2)  hrr[r]-hs[r]))+(-CS y y ((r^2)hCrr[r]-hCs[r])+D6D2[y] gu12 gu56 r D5D1[y] hCrs[r]-D6D2[y] gu12 gu56 y2L15 hCs2[r]) (r hrs[r])+(y2L26 gu12 gu56 r D5D1[y] hCrs[r]-y2L26 gu12 gu56 y2L15 hCs2[r]) (- hs2[r]))+2 r  (CS ((2+hd) r hrs[r]+hs[r])+(-((CS CS2 hd)/(hd+1))) hs2[r]) (-hCrs[r]+r hCrs'[r])-2 (1+hd)((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r]) (-2 hCs[r]+r hCs'[r])+2 r (CS ((2+hd) r hCrs[r]+hCs[r])+(-((CS CS2 hd)/(hd+1))) hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd) ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (2 hs[r]-r hs'[r]))];
term24cctry6=Simplify[(1/(2 (r^6)))(r CS (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+r CS (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])- (((hd+1)((r^2) hCrr[r]-hCs[r])+r g15 y gu12 gu56 D6D2[y] hCrs[r]) ( ((r^2) hrr[r]-hs[r]))+(-CS ((r^2) hCrr[r]-hCs[r])+r D5D1[y]gu12 gu56 D6D2[y] hCrs[r]-D5D1[y]gu12 gu56 y2L26 hCs2[r]) (r hrs[r])+(r y2L15 gu12 gu56 D6D2[y] hCrs[r]-y2L15 gu12 gu56 y2L26 hCs2[r]) (- hs2[r]))-((gu26 y ((r^2)hCrr[r]-hCs[r])+gu12 gu56 r D5D1[y] hCrs[r]-gu12 gu56 y2L15 hCs2[r]) (g26 y ((r^2)  hrr[r]-hs[r])+r D6D2[y] hrs[r]-y2L26 hs2[r]))+2 r  (CS ((2+hd) r hrs[r]+hs[r])+(-((CS CS2 hd)/(hd+1))) hs2[r]) (-hCrs[r]+r hCrs'[r])-2 (1+hd)((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r]) (-2 hCs[r]+r hCs'[r])+2 r (CS ((2+hd) r hCrs[r]+hCs[r])+(-((CS CS2 hd)/(hd+1))) hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd) ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (2 hs[r]-r hs'[r]))];
term24cctry5=Simplify[(1/(2 (r^6)))(r CS (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+r CS (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])- (gu15 y((r^2) hCrr[r]-hCs[r])+r gu12 gu56 D6D2[y] hCrs[r]-gu12 gu56 y2L26 hCs2[r]) (g15 y ((r^2) hrr[r]-hs[r])+r D5D1[y] hrs[r]-y2L15 hs2[r])-(gu26 y ((r^2)hCrr[r]-hCs[r])+gu12 gu56 r D5D1[y] hCrs[r]-gu12 gu56 y2L15 hCs2[r]) (g26 y ((r^2)  hrr[r]-hs[r])+r D6D2[y] hrs[r]-y2L26 hs2[r])+2 r  (CS ((2+hd) r hrs[r]+hs[r])+Du6[y]Du1[y2L16] hs2[r]) (-hCrs[r]+r hCrs'[r])-2 (1+hd) (y^2) ((1+hd) (r^2) hrr[r]-CS r hrs[r]-(1+hd) hs[r]) (-2 hCs[r]+r hCs'[r])+2 r (CS ((2+hd) r hCrs[r]+hCs[r])+Du6[y]Du1[y2L16] hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd) ((1+hd) (r^2) hCrr[r]-CS r hCrs[r]-(1+hd) hCs[r]) (2 hs[r]-r hs'[r]))];
term24cctry4=(1/(2 (r^6))) (r Du5[y] (r (D5[y]+D5[y]) hCrs[r]+(hd+1) D5[y] hCs[r]) (r hrr[r]-2 hrs[r])- (gu26 (r^2) y hCrr[r]+r gu56 gu12 D5D1[y] hCrs[r]-(gu26 y hCs[r]+gu56 gu12 y2L15 hCs2[r])) (g26 (r^2) y hrr[r]-g26 y hs[r]+r D6D2[y] hrs[r]-y2L26 hs2[r])+r Du5[y] (r hCrr[r]-2 hCrs[r]) (r (D5[y]+ D5[y]) hrs[r]+(hd+1) D5[y] hs[r])- (gu56 g26 (r^2) y hCrr[r]+r gu56 D6D2[y] hCrs[r]-(gu56 g26 y hCs[r]+gu56 y2L26 hCs2[r])) (gu12 g15 (r^2) y hrr[r]+gu12 r D5D1[y] hrs[r]-(gu12 g15 y hs[r]+gu12 y2L15 hs2[r]))+2 r (r (D6[y]+(hd+1) D6[y]) hrs[r]+D6[y] hs[r]+Du1[y2L16] hs2[r]) (-Du6[y] hCrs[r]+r Du6[y] hCrs'[r])-2 ((hd+1) (r^2) y hrr[r]+r (-CS y) hrs[r]- ((hd+1) y hs[r])) (-2  ((hd+1) y hCs[r])+(1+hd) r y hCs'[r])+2 r Du6[y] (r (D6[y]+(hd+1) D6[y]) hCrs[r]+D6[y] hCs[r]+Du1[y2L16] hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd)((hd+1) (r^2) hCrr[r]+r (-CS ) hCrs[r]-((hd+1)hCs[r])) (2 hs[r]-r hs'[r]));
term24cctry3=(1/(2 (r^6))) (gu56 r D6[y] (r (g25 gu12 D1[y]+gu12 g15 D2[y]) hCrs[r]+(hd+1) D5[y] hCs[r]) (r hrr[r]-2 hrs[r])-gu56 (gu12 g15 (r^2) y hCrr[r]+r gu12 D5D1[y] hCrs[r]-(gu12 g15 y hCs[r]+gu12 y2L15 hCs2[r])) (g26 (r^2) y hrr[r]+r D6D2[y] hrs[r]-g26 y hs[r]-y2L26 hs2[r])+gu56 r D6[y] (r hCrr[r]-2 hCrs[r]) (r (g25 gu12 D1[y]+ gu12 g15 D2[y]) hrs[r]+(hd+1) D5[y] hs[r])-gu56 (g26 (r^2) y hCrr[r]+r D6D2[y] hCrs[r]-(g26 y hCs[r]+y2L26 hCs2[r])) (gu12 g15 (r^2) y hrr[r]+gu12 r D5D1[y] hrs[r]-(gu12 g15 y hs[r]+gu12 y2L15 hs2[r]))+2 r (r (g26 gu12 D1[y]+(hd+1) D6[y]) hrs[r]+gu12 g16 D2[y] hs[r]+gu12 D2[y2L16] hs2[r]) (-gu56 D5[y] hCrs[r]+gu56 r D5[y] hCrs'[r])-2 ((hd+1) (r^2) y hrr[r]+r (-CS y) hrs[r]- ((hd+1) y hs[r])) (-2  (gu56 g56 y hCs[r]+gu56 y2L56 hCs2[r])+(1+hd) r y hCs'[r])+2 gu56 r D5[y] (r (g26 gu12 D1[y]+(hd+1) D6[y]) hCrs[r]+gu12 g16 D2[y] hCs[r]+gu12 D2[y2L16] hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd)((hd+1) (r^2) hCrr[r]+r (-CS ) hCrs[r]-((hd+1)hCs[r])) (2 hs[r]-r hs'[r]));
term24cctry2=(1/(2 (r^6)))gu12 (gu56 r D6[y] (r (g25 D1[y]+g15 D2[y]) hCrs[r]+g12 D5[y] hCs[r]+D5[y2L12] hCs2[r]) (r hrr[r]-2 hrs[r])-gu56 (g15 (r^2) y hCrr[r]+r D5D1[y] hCrs[r]-(g15 y hCs[r]+y2L15 hCs2[r])) (g26 (r^2) y hrr[r]+r D6D2[y] hrs[r]-g26 y hs[r]-y2L26 hs2[r])+gu56 r D6[y] (r hCrr[r]-2 hCrs[r]) (r (g25 D1[y]+g15 D2[y]) hrs[r]+g12 D5[y] hs[r]+D5[y2L12] hs2[r])-gu56 (g26 (r^2) y hCrr[r]+r D6D2[y] hCrs[r]-(g26 y hCs[r]+y2L26 hCs2[r])) (g15 (r^2) y hrr[r]+r D5D1[y] hrs[r]-(g15 y hs[r]+y2L15 hs2[r]))+2 r (r (g26 D1[y]+g12 D6[y]) hrs[r]+g16 D2[y] hs[r]+D2[y2L16] hs2[r]) (-gu56 D5[y] hCrs[r]+gu56 r D5[y] hCrs'[r])-2 (g12 (r^2) y hrr[r]+r D2D1[y] hrs[r]- (g12 y hs[r]+y2L12 hs2[r])) (-2 gu56 (g56 y hCs[r]+y2L56 hCs2[r])+(1+hd) r y hCs'[r])+2 gu56 r D5[y] (r (g26 D1[y]+g12 D6[y]) hCrs[r]+g16 D2[y] hCs[r]+D2[y2L16] hCs2[r]) (-hrs[r]+r hrs'[r])+2 (1+hd) y (g12 (r^2) y hCrr[r]+r D2D1[y] hCrs[r]-(g12 y hCs[r]+y2L12 hCs2[r])) (2 hs[r]-r hs'[r]));
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term24cctry8-term24cctry9/.{(y^2)->1,y2L26 gu12 gu56 D5D1[y]->(((CS CS2 hd)/(hd+1))),y2L15 gu12 gu56 D6D2[y]->(((CS CS2 hd)/(hd+1)))}]/.{(y^2)->1,y2L26 gu12 gu56 D5D1[y]->(((CS CS2 hd)/(hd+1))),y2L15 gu12 gu56 D6D2[y]->(((CS CS2 hd)/(hd+1)))}]/.{(y^2)->1,y2L26 gu12 gu56 D5D1[y]->(((CS CS2 hd)/(hd+1))),y2L15 gu12 gu56 D6D2[y]->(((CS CS2 hd)/(hd+1)))}]/.{(y^2)->1,y2L26 gu12 gu56 D5D1[y]->(((CS CS2 hd)/(hd+1))),y2L15 gu12 gu56 D6D2[y]->(((CS CS2 hd)/(hd+1)))}]
FullSimplify[term24withccf-term24cctry9]
Print["Tests:"]
term=term24cctry3;
FullSimplify[D[D[term,hrs[r]],hCs2[r]]-D[D[term,hCrs[r]],hs2[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[FullSimplify[D[D[term,hrs[r]],hCs[r]]-D[D[term,hCrs[r]],hs[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hrs[r]],hCts[r]]-D[D[term,hCrs[r]],hts[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hrs[r]],hCtt[r]]-D[D[term,hCrs[r]],htt[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hrs[r]],hCtr[r]]-D[D[term,hCrs[r]],htr[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hrs[r]],hCrr[r]]-D[D[term,hCrs[r]],hrr[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hts[r]],hCs2[r]]-D[D[term,hCts[r]],hs2[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hts[r]],hCs[r]]-D[D[term,hCts[r]],hs[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hts[r]],hCtt[r]]-D[D[term,hCts[r]],htt[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hts[r]],hCtr[r]]-D[D[term,hCts[r]],htr[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hts[r]],hCrr[r]]-D[D[term,hCts[r]],hrr[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[FullSimplify[D[D[term,hrr[r]],hCs2[r]]-D[D[term,hCrr[r]],hs2[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[FullSimplify[D[D[term,hrr[r]],hCs[r]]-D[D[term,hCrr[r]],hs[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[FullSimplify[D[D[term,hrr[r]],hCtr[r]]-D[D[term,hCrr[r]],htr[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hrr[r]],hCtt[r]]-D[D[term,hCrr[r]],htt[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,htt[r]],hCs2[r]]-D[D[term,hCtt[r]],hs2[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,htt[r]],hCs[r]]-D[D[term,hCtt[r]],hs[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,htt[r]],hCtr[r]]-D[D[term,hCtt[r]],htr[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,htr[r]],hCs2[r]]-D[D[term,hCtr[r]],hs2[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,htr[r]],hCs[r]]-D[D[term,hCtr[r]],hs[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
FullSimplify[D[D[term,hs[r]],hCs2[r]]-D[D[term,hCs[r]],hs2[r]]/.{(y^2)->1,g56 gu56->hd+1,gu56 y2L56->0}]
term23withcc2=FullSimplify[FullSimplify[(1/(2 (r^4))) (r y (-2gu12 g12 y hCs[r]-2gu12 y2L12 hCs2[r]+r (gu12 g12 y hCs'[r]+gu12 y2L12 hCs2'[r])) hrr'[r]+( D2[y] hCrs[r]-r D2[y] hCrs'[r]) gu12(- D1[y] hrs[r]+r D1[y] hrs'[r])+( D1[y] hCrs[r]-r D1[y] hCrs'[r]) gu12(-D2[y] hrs[r]+r D2[y] hrs'[r])-r y hCrr'[r] (2gu12 g12 y hs[r]+2gu12 y2L12 hs2[r]-r (gu12 g12 y hs'[r]+gu12 y2L12 hs2'[r])))/.{gu12 y2L12->0,gu12 g12->hd+1,gu12 D1[y] D2[y]->CS}]/.{gu12 y2L12->0,gu12 g12->hd+1,gu12 D1[y] D2[y]->CS,(y^2)->1}]
FullSimplify[FullSimplify[FullSimplify[term23withcc2-term23withcc/.{delta17 g27->g12,delta18 g28->g12,delta28 g18->g12,delta27 g17->g12,delta28 y2L18->y2L12,delta27 y2L17->y2L12,delta17 y2L27->y2L12,delta18 y2L28->y2L12,delta18 D8[y]->D1[y] ,delta28 D8[y]->D2[y]  ,delta17 D7[y]->D1[y] ,delta27 D7[y]->D2[y]  ,(y^2)->1}]/.{(y^2)->1,g12 gu12->hd+1,gu12 D1[y] D2[y]->CS,gu12 y2L12->0,gu12 D2D1[y]->-CS y}]/.{(y^2)->1}]
term22withcc3=FullSimplify[FullSimplify[(1/(2 (r^3))) (-g12 gu12 r (w^2) hCs[r] hrr[r]+2 r (w^2) gu12 D1[y] D2[y] hCrs[r] hrs[r]-2 gu12 g12 (r^2) htr[r] hCtr'[r]+2 gu12 g12 (r^2) hrr[r] hCtt'[r]-2 gu12 g12 hs[r] hCtt'[r]-2  y gu12 y2L12 hs2[r] hCtt'[r]-2 gu12 g12 (r^2) hCtr[r] htr'[r]-2  gu12 g12 hCs[r] htt'[r]+r y hCrr[r] (-(w^2) (gu12 g12 y hs[r]+gu12 y2L12 hs2[r])+2 gu12 g12 r y htt'[r])-y hCs2[r] (r (w^2) gu12 y2L12 hrr[r]+2  gu12 y2L12 htt'[r])+2 r y gu12 D2D1[y] (-hts[r] hCtr'[r]+hrs[r] hCtt'[r]-hCts[r] htr'[r]+hCrs[r] htt'[r]))/.{g12 gu12->hd+1,gu12 D1[y] D2[y]->CS,gu12 y2L12->0,gu12 D2D1[y]->-CS y}]/.{(y^2)->1}]
term22withcc2=FullSimplify[FullSimplify[(1/(2 (r^3))) (-g12 gu12 r (w^2) hCs[r] hrr[r]+2 r (w^2) gu12 D1[y] D2[y] hCrs[r] hrs[r]-2 gu12 g12 (r^2) htr[r] hCtr'[r]+2 gu12 g12 (r^2) hrr[r] hCtt'[r]-2 gu12 g12 hs[r] hCtt'[r]-2  y gu12 y2L12 hs2[r] hCtt'[r]-2 gu12 g12 (r^2) hCtr[r] htr'[r]-2  gu12 g12 hCs[r] htt'[r]+r y hCrr[r] (-(w^2) (gu12 g12 y hs[r]+gu12 y2L12 hs2[r])+2 gu12 g12 r y htt'[r])-y hCs2[r] (r (w^2) gu12 y2L12 hrr[r]+2  gu12 y2L12 htt'[r])+2 r y gu12 D2D1[y] (-hts[r] hCtr'[r]+hrs[r] hCtt'[r]-hCts[r] htr'[r]+hCrs[r] htt'[r]))/.{g12 gu12->hd+1,gu12 D1[y] D2[y]->CS,gu12 y2L12->0(*,gu12 D2D1[y]->-CS y*)}]/.{(y^2)->1}];
FullSimplify[FullSimplify[FullSimplify[term22withcc2-term22withcc3/.{delta28 g18->g12,delta27 g17->g12,delta28 y2L18->y2L12,delta27 y2L17->y2L12,(y^2)->1}]/.{(y^2)->1,g12 gu12->hd+1,gu12 D1[y] D2[y]->CS,gu12 y2L12->0,gu12 D2D1[y]->-CS y}]/.{(y^2)->1}]
term21withcc5=FullSimplify[FullSimplify[FullSimplify[(1/(2 (r^4)))(2 I (1+hd) w y y((1+hd) r  hCtr[r]-CS  hCts[r]) hs[r]-CS hCtt[r] (2 r hrs[r]+(1+hd) hs[r])+2 I CS w hCts[r] ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 I CS w ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) hts[r]-2 I (1+hd) w y y hCs[r] ((1+hd) r  htr[r]-CS  hts[r])+(D5D1[y]gu15 r y hCtr[r]+D5D1[y]gu12 gu56 D6D2[y] hCts[r]) ( hts[r])+(gu15 g15 r  hCtr[r]y+g15 hCts[r]gu12 gu56 D6D2[y]) ( y r htr[r])+(g26 gu26 r hCtr[r]y+hCts[r]g26 gu12 gu56 D5D1[y] ) ( y r htr[r])+( D6D2[y]gu26 r y hCtr[r]+ D6D2[y]gu12 gu56 D5D1[y] hCts[r]) hts[r]-CS (2 r hCrs[r]+(1+hd) hCs[r]) htt[r])/.{gu15 g15->hd+1,gu26 g26->hd+1,g26 gu12 gu56 D5D1[y]->-CS y,g15 gu12 gu56 D6D2[y]->-CS y,gu15 D5D1[y]->-CS y,gu26 D6D2[y]->-CS y}]/.{(y^2)->1,gu12 gu56 D5D1[y] D6D2[y]->CS(CS-hd)}]/.{(y^2)->1->1}]
term21withcc4=FullSimplify[(1/(2 (r^4)))(2 I (1+hd) w y ((1+hd) r y hCtr[r]-CS y hCts[r]) hs[r]- hCtt[r] ( r (D6[y]gu16 D1[y]+D6[y]gu26 D2[y]) hrs[r]+D6[y]gu56 (1+hd) D5[y] hs[r])+2 I gu56 w D5[y] D6[y] hCts[r] ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd)))-2 I gu56 w D5[y] D6[y] ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) hts[r]-2 I (1+hd) w y hCs[r] ((1+hd) r y htr[r]-CS y hts[r])+ (gu15 r y hCtr[r]+gu12 gu56 D6D2[y] hCts[r]) (g15 r y htr[r]+D5D1[y] hts[r])+(gu26 r y hCtr[r]+gu12 gu56 D5D1[y] hCts[r]) (g26 r y htr[r]+D6D2[y] hts[r])-( r (gu16 D6[y] D1[y]+gu26 D6[y] D2[y]) hCrs[r]+D6[y] gu56 (1+hd) D5[y] hCs[r]) htt[r])/.{gu56 D5[y] D6[y]->CS,gu26 D2[y] D6[y]->CS,gu16 D1[y] D6[y]->CS}];
term21withcc3=FullSimplify[FullSimplify[(1/(2 (r^4))) (2 I w (gu12 g12 r y hCtr[r]+gu12 D2D1[y] hCts[r]) (gu56 g56 y hs[r]+gu56 y2L56 hs2[r])+2 I w gu56 D5[y] hCts[r] (r (gu12 g26 D1[y]+gu12 g12 D6[y]) hrs[r]+g16 gu12 D2[y] hs[r]+gu12 D2[y2L16] hs2[r])-D6[y] hCtt[r] (r (gu12 gu56 g25 D1[y]+gu56 g15 gu12 D2[y]) hrs[r]+g12 gu12 gu56 D5[y] hs[r]+gu12 gu56 D5[y2L12] hs2[r])-2 I w gu56 D5[y] (r (gu12 g26 D1[y]+gu12 g12 D6[y]) hCrs[r]+g16 gu12 D2[y] hCs[r]+gu12 D2[y2L16] hCs2[r]) hts[r]-2 I w (gu56 g56 y hCs[r]+gu56 y2L56 hCs2[r]) (gu12 g12 r y htr[r]+gu12 D2D1[y] hts[r])+(g26 gu12 r y hCtr[r]+gu12 D6D2[y] hCts[r]) (gu56 g15 r y htr[r]+gu56 D5D1[y] hts[r])+(g15 gu56 r y hCtr[r]+gu56 D5D1[y] hCts[r]) (gu12 g26 r y htr[r]+gu12 D6D2[y] hts[r])-D6[y] (r (gu12 gu56 g25 D1[y]+gu56 g15 gu12 D2[y]) hCrs[r]+gu12 g12 gu56 D5[y] hCs[r]+gu12 gu56 D5[y2L12] hCs2[r]) htt[r])/.{gu12 D2D1[y]->-CS y,gu12 g12->hd+1, gu56 y2L56->0, gu56 g56->hd+1,gu56 y2L56->0, gu12 D5[y2L12]->0,(y^2)->1}]/.{gu12 D2[y2L16]->-((CS2 hd)/(hd+1))D6[y],g16 gu12 D2[y]->D6[y],g26 gu12 D1[y]->D6[y],(y^2)->1}];
term21withcc2=FullSimplify[FullSimplify[(1/(2 (r^4))) (2 I w (gu12 g12 r y hCtr[r]+gu12 D2D1[y] hCts[r]) (gu56 g56 y hs[r]+gu56 y2L56 hs2[r])+2 I w gu56 D5[y] hCts[r] (r (gu12 g26 D1[y]+gu12 g12 D6[y]) hrs[r]+g16 gu12 D2[y] hs[r]+gu12 D2[y2L16] hs2[r])-D6[y] hCtt[r] (r (gu12 gu56 g25 D1[y]+gu56 g15 gu12 D2[y]) hrs[r]+g12 gu12 gu56 D5[y] hs[r]+gu12 gu56 D5[y2L12] hs2[r])-2 I w gu56 D5[y] (r (gu12 g26 D1[y]+gu12 g12 D6[y]) hCrs[r]+g16 gu12 D2[y] hCs[r]+gu12 D2[y2L16] hCs2[r]) hts[r]-2 I w (gu56 g56 y hCs[r]+gu56 y2L56 hCs2[r]) (gu12 g12 r y htr[r]+gu12 D2D1[y] hts[r])+(g26 gu12 r y hCtr[r]+gu12 D6D2[y] hCts[r]) (gu56 g15 r y htr[r]+gu56 D5D1[y] hts[r])+(g15 gu56 r y hCtr[r]+gu56 D5D1[y] hCts[r]) (gu12 g26 r y htr[r]+gu12 D6D2[y] hts[r])-D6[y] (r (gu12 gu56 g25 D1[y]+gu56 g15 gu12 D2[y]) hCrs[r]+gu12 g12 gu56 D5[y] hCs[r]+gu12 gu56 D5[y2L12] hCs2[r]) htt[r])/.{gu12 D2D1[y]->-CS y,gu12 g12->hd+1, gu56 y2L56->0, gu56 g56->hd+1,gu56 y2L56->0, gu12 D5[y2L12]->0,(y^2)->1,gu12 gu56 D5D1[y] D6D2[y]->CS(CS-hd)}]/.{(y^2)->1,gu12 gu56 D5D1[y] D6D2[y]->CS(CS-hd)}];
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term21withcc4-term21withcc5/.{-gu16+g25 gu12 gu56->0,-gu26+g15 gu12 gu56->0,g26 gu12 gu56->gu15,gu12 gu56 g15->gu26,gu56 D5[y] D6[y]->CS,(y^2)->1,g26 gu12 gu56 D5D1[y]->-CS y,g15 gu12 gu56 D6D2[y]->-CS y}]/.{-gu16+g25 gu12 gu56->0,-gu26+g15 gu12 gu56->0,g26 gu12 gu56->gu15,gu12 gu56 g15->gu26,gu56 D5[y] D6[y]->CS,(y^2)->1,gu26 g26->hd+1,gu15 g15->hd+1,g26 gu12 gu56 D5D1[y]->-CS y,g15 gu12 gu56 D6D2[y]->-CS y}]/.{gu16-g25 gu12 gu56->0,-gu26+g15 gu12 gu56->0,g26 gu12 gu56->gu15,gu12 gu56 g15->gu26,gu56 D5[y] D6[y]->CS,(y^2)->1,gu26 g26->hd+1,gu15 g15->hd+1,g26 gu12 gu56 D5D1[y]->-CS y,gu15 D5D1[y]->-CS y,g15 gu12 gu56 D6D2[y]->-CS y,gu26 D6D2[y]->-CS y,(y^2)->1}]/.{(y^2)->1,gu12 gu56 D5D1[y] D6D2[y]->CS(CS-hd)}]
term20withcc3=FullSimplify[FullSimplify[(1/(2 (r^4))) (4 I gu12 g12 (r^3) w hCtr[r] hrr[r]-2 I  gu12 g12 r w hCtr[r] hs[r]-2 I  r w y  gu12 y2L12 hCtr[r] hs2[r]-4 I gu12 g12 (r^3) w hCrr[r] htr[r]+2 I  gu12 g12 r w hCs[r] htr[r]+2 I  r w y gu12 y2L12 hCs2[r] htr[r]+2 I (r^2) w y gu12 D2D1[y] (hCts[r] hrr[r]+hCtr[r] hrs[r]-hCrs[r] htr[r]-hCrr[r] hts[r])+r y hCtt'[r] (gu12(2g12) y hs[r]+gu12(2y2L12) hs2[r]-r (gu12 g12 y hs'[r]+gu12 y2L12 hs2'[r]))+(- D2[y] hCts[r]+r D2[y] hCts'[r]) gu12(- D1[y] hts[r]+r D1[y] hts'[r])+(- D1[y] hCts[r]+r D1[y] hCts'[r]) gu12(- D2[y] hts[r]+r D2[y] hts'[r])+r y (gu12(2 g12) y hCs[r]+gu12(2y2L12) hCs2[r]-r (gu12 g12 y hCs'[r]+gu12 y2L12 hCs2'[r])) htt'[r])/.{gu12 y2L12->0,gu12 g12->hd+1,gu12 D1[y] D2[y]->CS,gu12 D2D1[y]->-CS y, (y^2)->1}]/.{gu12 y2L12->0,gu12 g12->hd+1,gu12 D1[y] D2[y]->CS,gu12 D2D1[y]->-CS y, (y^2)->1}]
term20withcc2=(1/(2 (r^4))) (4 I gu12 g12 (r^3) w hCtr[r] hrr[r]-2 I  gu12 g12 r w hCtr[r] hs[r]-2 I  r w y  gu12 y2L12 hCtr[r] hs2[r]-4 I gu12 g12 (r^3) w hCrr[r] htr[r]+2 I  gu12 g12 r w hCs[r] htr[r]+2 I  r w y gu12 y2L12 hCs2[r] htr[r]+2 I (r^2) w y gu12 D2D1[y] (hCts[r] hrr[r]+hCtr[r] hrs[r]-hCrs[r] htr[r]-hCrr[r] hts[r])+r y hCtt'[r] (gu12(2g12) y hs[r]+gu12(2y2L12) hs2[r]-r (gu12 g12 y hs'[r]+gu12 y2L12 hs2'[r]))+(- D2[y] hCts[r]+r D2[y] hCts'[r]) gu12(- D1[y] hts[r]+r D1[y] hts'[r])+(- D1[y] hCts[r]+r D1[y] hCts'[r]) gu12(- D2[y] hts[r]+r D2[y] hts'[r])+r y (gu12(2 g12) y hCs[r]+gu12(2y2L12) hCs2[r]-r (gu12 g12 y hCs'[r]+gu12 y2L12 hCs2'[r])) htt'[r]);
FullSimplify[FullSimplify[term20withcc2-term20withcc3/.{delta28 g18->g12,delta18 g28->g12,delta27 g17->g12,delta17 g27->g12,delta28 y2L18 ->y2L12,delta18 y2L28->y2L12,delta27 y2L17 ->y2L12,delta17 y2L27->y2L12,delta18 D8[y]->D1[y],delta28 D8[y]->D2[y],delta17 D7[y]->D1[y],delta27 D7[y]->D2[y],gu12 y2L12->0,gu12 g12->hd+1,gu12 D1[y] D2[y]->CS,gu12 D2D1[y]->-CS y, (y^2)->1}]/.{delta28 g18->g12,delta18 g28->g12,delta27 g17->g12,delta17 g27->g12,delta28 y2L18 ->y2L12,delta18 y2L28->y2L12,delta27 y2L17 ->y2L12,delta17 y2L27->y2L12,delta18 D8[y]->D1[y],delta28 D8[y]->D2[y],delta17 D7[y]->D1[y],delta27 D7[y]->D2[y],gu12 y2L12->0,gu12 g12->hd+1,gu12 D1[y] D2[y]->CS,gu12 D2D1[y]->-CS y, (y^2)->1}]
term19withcc2=FullSimplify[FullSimplify[(1/(2 (r^2))) (w^2) (y hCtt[r] (gu12 g12 y hs[r]+gu12 y2L12 hs2[r])-2 gu12 D1[y] D2[y] hCts[r] hts[r]+y (gu12 g12 y hCs[r]+gu12 y2L12 hCs2[r]) htt[r])/.{gu12 g12->hd+1,gu12 D1[y] D2[y]->CS, gu12 y2L12->0,(y^2)->1}]/.{gu12 g12->hd+1,gu12 D1[y] D2[y]->CS, gu12 y2L12->0,(y^2)->1}]
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term19withcc2-term19withcc/.{gu12 g12->hd+1,gu12 D1[y] D2[y]->CS, gu12 y2L12->0,(y^2)->1}]/.{gu12 g12->hd+1,gu12 D1[y] D2[y]->CS, gu12 y2L12->0,(y^2)->1}]/.{gu12 g12->hd+1,gu12 D1[y] D2[y]->CS, gu12 y2L12->0,(y^2)->1}]/.{gu12 g12->hd+1,gu12 D1[y] D2[y]->CS, gu12 y2L12->0,(y^2)->1}]
term18withcc11=FullSimplify[(1/(2 (r^6)))(2 (r^2) hCs[r] hrr[r]+CS (r^2) hCs[r] hrr[r]+2 hd (r^2) hCs[r] hrr[r]+CS hd (r^2) hCs[r] hrr[r]-4 CS r hCs[r] hrs[r]+((4 CS CS2 hd r hCs2[r] hrs[r])/(1+hd))-2 hCs[r] hs[r]-2 hd hCs[r] hs[r]+(r^2) hCrr[r] (-2 (1+hd) (r^2) hrr[r]+4 CS r hrs[r]+(2+CS) (1+hd) hs[r])-2 gu34 gu56 y2L35 y2L46 hCs2[r] hs2[r]+2 CS hd (r^3) hrs[r] hCrs'[r]-2 CS hd (r^2) hs[r] hCrs'[r]-((2 CS CS2 hd (r^2) hs2[r] hCrs'[r])/(1+hd))-2 CS hd (r^2) hCs[r] hrs'[r]-((2 CS CS2 hd (r^2) hCs2[r] hrs'[r])/(1+hd))+2 r hCrs[r] (2 CS (r^2) hrr[r]-r (2 CS (2+hd)+gu34 gu56 D5D3[y] D6D4[y]) hrs[r]+CS (-2 hs[r]+((2 CS2 hd hs2[r])/(1+hd))+hd (r^2) hrs'[r])))/.{gu34 gu56 y2L35 y2L46->((CS CS2 hd )/(1+hd)),gu34 gu56 D5D3[y] D6D4[y]->CS(CS-hd)}]
term18withcc10=FullSimplify[FullSimplify[(1/(2 (r^6)))(CS r (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+r  (-gu35 D5D3[y](r^2) y hCrr[r]-D5D3[y]gu34 gu56 r D6D4[y] hCrs[r]+gu35 D5D3[y]y hCs[r]+D5D3[y]gu34 gu56 y2L46 hCs2[r]) hrs[r]+r (CS (r^2) hCrr[r]-CS hCs[r]+(-r gu34 gu56 D6D4[y] D5D3[y] hCrs[r]+gu34 gu56 D6D4[y] y2L35 hCs2[r])) hrs[r]-y (-CS r y hCrs[r]+(1+hd) y ((r^2) hCrr[r]-hCs[r])) ((r^2) hrr[r]-hs[r])-y (gu35 r D5D3[y] hCrs[r]+(1+hd) y ((r^2) hCrr[r]-hCs[r])) ((r^2) hrr[r]-hs[r])+CS r (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])+(r D5D3[y] gu34 gu56 y2L46 hCrs[r]-gu34 gu56 y2L46 y2L35 hCs2[r]) hs2[r]+ (y2L35 gu35 (r^2) y hCrr[r]+y2L35 gu34 gu56 r D6D4[y] hCrs[r]-y2L35 gu35 y hCs[r]-y2L35 gu34 gu56 y2L46 hCs2[r]) hs2[r]-2 CS r (2 r hrs[r]+(1+hd) hs[r]) (-hCrs[r]+r hCrs'[r])+2 CS r ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd))) (-hCrs[r]+r hCrs'[r])-2 CS r (2 r hCrs[r]+(1+hd) hCs[r]) (-hrs[r]+r hrs'[r])+2 CS r ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (-hrs[r]+r hrs'[r]))/.{gu35 y2L35->0,gu35 D5D3[y]->-CS y,D5D3[y]gu34 gu56 y2L46->((CS2 hd CS)/(1+hd)),D6D4[y]gu34 gu56 y2L35->((CS2 hd CS)/(1+hd)),(y^2)->1}]/.{(y^2)->1}];
term18withcc9=FullSimplify[FullSimplify[(1/(2 (r^6)))(CS r (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+ (-r (gu34 g46 gu56 r D5D3[y] r y hCrr[r]+gu34 gu56 r D5D3[y]D6D4[y] hCrs[r])+gu34 gu56 r D5D3[y]g46 y hCs[r]+gu34 gu56 r D5D3[y]y2L46 hCs2[r]) hrs[r]+r (CS (r^2) (y^2) hCrr[r]-CS (y^2) hCs[r]+ (-r gu34 gu56 D6D4[y]D5D3[y] hCrs[r]+gu34 gu56 D6D4[y]y2L35 hCs2[r])) hrs[r]-y (-CS r y hCrs[r]+(1+hd) y ((r^2) hCrr[r]-hCs[r])) ((r^2) hrr[r]-hs[r])-y (g46 gu34 gu56 r D5D3[y] hCrs[r]+(1+hd) y ((r^2) hCrr[r]-hCs[r])-g46 gu34 gu56 y2L35 hCs2[r]) ((r^2) hrr[r]-hs[r])+CS r (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])+ (r gu34 gu56 y2L46 D5D3[y] hCrs[r]-gu34 gu56 y2L46 y2L35 hCs2[r]) hs2[r]+ (g46 gu34 gu56 y2L35 (r^2) y hCrr[r]+r gu34 gu56 y2L35 D6D4[y] hCrs[r]-gu34 gu56 y2L35 g46 y hCs[r]-gu34 gu56 y2L35 y2L46 hCs2[r]) hs2[r]-2 CS r (2 r hrs[r]+(1+hd) hs[r]) (-hCrs[r]+r hCrs'[r])+2 CS r ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd))) (-hCrs[r]+r hCrs'[r])-2 CS r (2 r hCrs[r]+(1+hd) hCs[r]) (-hrs[r]+r hrs'[r])+2 CS r ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (-hrs[r]+r hrs'[r]))/.{(y^2)->1,gu34 gu56 g46->gu35,gu34 g46 gu56 ->gu35,gu35 y2L35->0}]/.{(y^2)->1,gu34 gu56 g46->gu35,gu34 g46 gu56 ->gu35,gu35 y2L35->0}];
term18withcc8=
term18withcc8=FullSimplify[(1/(2 (r^6)))(CS r (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+CS r (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])-((gu46 g46 ((r^2) y hCrr[r]- y hCs[r])+gu46 r D6D4[y] hCrs[r]-gu46 y2L46 hCs2[r]) ( (r^2) y hrr[r]-y hs[r])+(gu34 gu56 r D5D3[y]g46 ((r^2) y hCrr[r]- y hCs[r])+r gu34 gu56 r D5D3[y]D6D4[y] hCrs[r]-gu34 gu56 r D5D3[y]y2L46 hCs2[r]) ( hrs[r])+(gu34 gu56 y2L35 g46 ((r^2) y hCrr[r]- y hCs[r])+gu34 gu56 y2L35 r D6D4[y] hCrs[r]-gu34 gu56 y2L35 y2L46 hCs2[r]) (- hs2[r]))-((g46 gu46 ((r^2) y hCrr[r]- y hCs[r])+g46 gu34 gu56 r D5D3[y] hCrs[r]-g46 gu34 gu56 y2L35 hCs2[r]) ( (r^2) y hrr[r]-y hs[r])+(gu46 D6D4[y]((r^2) y hCrr[r]- y hCs[r])+D6D4[y]gu34 gu56 r D5D3[y] hCrs[r]-D6D4[y]gu34 gu56 y2L35 hCs2[r]) (r  hrs[r])+(gu46 y2L46((r^2) y hCrr[r]- y hCs[r])+y2L46 gu34 gu56 r D5D3[y] hCrs[r]-y2L46 gu34 gu56 y2L35 hCs2[r]) (- hs2[r]))-2 CS r (2 r hrs[r]+(1+hd) hs[r]) (-hCrs[r]+r hCrs'[r])+2 CS r ((2+hd) r hrs[r]+hs[r]-((CS2 hd hs2[r])/(1+hd))) (-hCrs[r]+r hCrs'[r])-2 CS r (2 r hCrs[r]+(1+hd) hCs[r]) (-hrs[r]+r hrs'[r])+2 CS r ((2+hd) r hCrs[r]+hCs[r]-((CS2 hd hCs2[r])/(1+hd))) (-hrs[r]+r hrs'[r]))/.{gu46 g46->hd+1,gu46 D6D4[y] ->-CS y,gu46 y2L46->0,gu46 D6D4[y]->-CS y}];
term18withcc7=FullSimplify[(1/(2 (r^6)))(CS r (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+CS r (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])-(g46 (r^2) y hCrr[r]+r D6D4[y] hCrs[r]-g46 y hCs[r]-y2L46 hCs2[r]) (gu46 (r^2) y hrr[r]+gu34 gu56 r D5D3[y] hrs[r]-gu46 y hs[r]-gu34 gu56 y2L35 hs2[r])-(gu46 (r^2) y hCrr[r]+gu34 gu56 r D5D3[y] hCrs[r]-gu46 y hCs[r]-gu34 gu56 y2L35 hCs2[r]) (g46 (r^2) y hrr[r]+r D6D4[y] hrs[r]-g46 y hs[r]-y2L46 hs2[r])-2 CS r (2 r hrs[r]+(1+hd) hs[r]) (-hCrs[r]+r hCrs'[r])+2 r  (Du6[y] D6[y]((2+hd) r hrs[r]+hs[r])+D6[y]gu34 gu56 D4[y2L35] hs2[r]) (-hCrs[r]+r hCrs'[r])-2 r Du4[y] D4[y]( r (2) hCrs[r]+(1+hd)  hCs[r]) (-hrs[r]+r hrs'[r])+2 r  (D6[y]Du6[y] ((2+hd) r hCrs[r]+hCs[r])+D6[y] gu34 gu56 D4[y2L35] hCs2[r]) (-hrs[r]+r hrs'[r]))/.{D4[y] Du4[y]->CS,D6[y] Du6[y]->CS,gu34 gu56 D4[y2L35] D6[y]->-((CS CS2 hd)/(hd+1))}];
term18withcc6=FullSimplify[(1/(2 (r^6)))(CS r (2 r hCrs[r]+(1+hd) hCs[r]) (r hrr[r]-2 hrs[r])+CS r (r hCrr[r]-2 hCrs[r]) (2 r hrs[r]+(1+hd) hs[r])-(g46 (r^2) y hCrr[r]+r D6D4[y] hCrs[r]-g46 y hCs[r]-y2L46 hCs2[r]) (gu46 (r^2) y hrr[r]+gu34 gu56 r D5D3[y] hrs[r]-gu46 y hs[r]-gu34 gu56 y2L35 hs2[r])-(gu46 (r^2) y hCrr[r]+gu34 gu56 r D5D3[y] hCrs[r]-gu46 y hCs[r]-gu34 gu56 y2L35 hCs2[r]) (g46 (r^2) y hrr[r]+r D6D4[y] hrs[r]-g46 y hs[r]-y2L46 hs2[r])+2 r D6[y] (r (gu36 D3[y]+gu56 (1+hd) D5[y]) hrs[r]+gu46 D4[y] hs[r]+gu34 gu56 D4[y2L35] hs2[r]) (-hCrs[r]+r hCrs'[r])-2 r Du4[y]  D4[y]( r (2) hrs[r]+(1+hd) hs[r]) (-hCrs[r]+r hCrs'[r])+2 r D6[y] (r (gu36 D3[y]+gu56 (1+hd) D5[y]) hCrs[r]+gu46 D4[y] hCs[r]+gu34 gu56 D4[y2L35] hCs2[r]) (-hrs[r]+r hrs'[r])-2 gu34  r D3[y] (r (g46 gu56 D5[y]+g45 gu56 D6[y]) hCrs[r]+(hd+1) D4[y] hCs[r]) (-hrs[r]+r hrs'[r]))/.{Du4[y]  D4[y]->CS,gu56  D5[y]->Du6[y],gu46  D4[y]->Du6[y],gu36  D3[y]->Du6[y],g46 Du6[y]->D4[y],gu34  D3[y]->Du4[y]}];
term18withcc5=FullSimplify[FullSimplify[(1/(2 (r^6))) (r (r ( Du5[y]+ Du5[y]) hCrs[r]+(hd+1)  Du5[y] hCs[r])D5[y] (r  hrr[r]-2  hrs[r])+r (r  hCrr[r]-2  hCrs[r]) D5[y](r (Du5[y]+Du5[y]) hrs[r]+(hd+1) Du5[y] hs[r])-(g46 (r^2) y hCrr[r]+r D6D4[y] hCrs[r]-(g46 y hCs[r]+y2L46 hCs2[r])) ( gu46  (r^2) y hrr[r]+r gu34 gu56 D5D3[y] hrs[r]-( gu46  y hs[r]+gu34 gu56 y2L35 hs2[r]))-( gu46  (r^2) y hCrr[r]+r gu34 gu56 D5D3[y] hCrs[r]-( gu46  y hCs[r]+gu34 gu56 y2L35 hCs2[r])) (g46 (r^2) y hrr[r]+r D6D4[y] hrs[r]-(g46 y hs[r]+y2L46 hs2[r]))-2 r (r (g46 gu56 D5[y]+gu56 g45 D6[y]) hrs[r]+(hd+1) D4[y] hs[r]+gu56 D4[y2L56] hs2[r]) D3[y]gu34  (- hCrs[r]+r  hCrs'[r])+2 r (r ( gu36 D3[y]+(hd+1) gu56  D5[y]) hrs[r]+ gu46  D4[y] hs[r]+gu34 gu56 D4[y2L35] hs2[r]) (- D6[y] hCrs[r]+r D6[y] hCrs'[r])-2 r (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) gu34 gu56 D3[y](- hrs[r]+r  hrs'[r])+2 r (r (gu36 D3[y]+(hd+1) gu56  D5[y]) hCrs[r]+ gu46 D4[y] hCs[r]+gu34 gu56 D4[y2L35] hCs2[r]) D6[y](-  hrs[r]+r  hrs'[r]))/.{D5[y]Du5[y]->CS}]/.{D5[y]Du5[y]->CS}];
term18withcc4=(1/(2 (r^6))) (r (r (g46 gu34 gu56 D3[y]+gu34 gu56 g36 D4[y]) hCrs[r]+(hd+1) gu56  D6[y] hCs[r])D5[y] (r  hrr[r]-2  hrs[r])+r (r D5[y] hCrr[r]-2 delta57 D7[y] hCrs[r]) (r (g46 gu34 gu56 D3[y]+gu34 gu56 g36 D4[y]) hrs[r]+(hd+1) gu56  D6[y] hs[r])-(g46 (r^2) y hCrr[r]+r D6D4[y] hCrs[r]-(g46 y hCs[r]+y2L46 hCs2[r])) ( gu46  (r^2) y hrr[r]+r gu34 gu56 D5D3[y] hrs[r]-( gu46  y hs[r]+gu34 gu56 y2L35 hs2[r]))-( gu46  (r^2) y hCrr[r]+r gu34 gu56 D5D3[y] hCrs[r]-( gu46  y hCs[r]+gu34 gu56 y2L35 hCs2[r])) (g46 (r^2) y hrr[r]+r D6D4[y] hrs[r]-(g46 y hs[r]+y2L46 hs2[r]))-2 r (r (g46 gu56 D5[y]+gu56 g45 D6[y]) hrs[r]+(hd+1) D4[y] hs[r]+gu56 D4[y2L56] hs2[r]) D3[y]gu34  (- hCrs[r]+r  hCrs'[r])+2 r (r ( gu36 D3[y]+(hd+1) gu56  D5[y]) hrs[r]+ gu46  D4[y] hs[r]+gu34 gu56 D4[y2L35] hs2[r]) (- D6[y] hCrs[r]+r D6[y] hCrs'[r])-2 r (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) gu34 gu56 D3[y](- hrs[r]+r  hrs'[r])+2 r (r (gu36 D3[y]+(hd+1) gu56  D5[y]) hCrs[r]+ gu46 D4[y] hCs[r]+gu34 gu56 D4[y2L35] hCs2[r]) D6[y](-  hrs[r]+r  hrs'[r]));
term18withcc3=(1/(2 (r^6))) (r (r (g46 gu34 gu56 D3[y]+gu34 gu56 g36 D4[y]) hCrs[r]+gu34 gu56 g34 D6[y] hCs[r]) (r D5[y] hrr[r]-2 D5[y] hrs[r])+r (r D5[y] hCrr[r]-2 delta57 D7[y] hCrs[r]) (r (g46 gu34 gu56 D3[y]+gu34 gu56 g36 D4[y]) hrs[r]+gu34 gu56 g34 D6[y] hs[r]+gu34 gu56 D6[y2L34] hs2[r])-(g46 (r^2) y hCrr[r]+r D6D4[y] hCrs[r]-(g46 y hCs[r]+y2L46 hCs2[r])) (gu34 gu56 g35 (r^2) y hrr[r]+r gu34 gu56 D5D3[y] hrs[r]-(gu34 gu56 g35 y hs[r]+gu34 gu56 y2L35 hs2[r]))-(gu34 gu56 g35 (r^2) y hCrr[r]+r gu34 gu56 D5D3[y] hCrs[r]-(gu34 gu56 g35 y hCs[r]+gu34 gu56 y2L35 hCs2[r])) (g46 (r^2) y hrr[r]+r D6D4[y] hrs[r]-(g46 y hs[r]+y2L46 hs2[r]))-2 r (r (g46 D5[y]+g45 D6[y]) hrs[r]+g56 D4[y] hs[r]+D4[y2L56] hs2[r]) D3[y]gu34 gu56 (- hCrs[r]+r  hCrs'[r])+2 r (r (g45 gu34 gu56 D3[y]+gu34 gu56 g34 D5[y]) hrs[r]+gu34 gu56 g35 D4[y] hs[r]+gu34 gu56 D4[y2L35] hs2[r]) (- D6[y] hCrs[r]+r D6[y] hCrs'[r])-2 r (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) gu34 gu56 D3[y](- hrs[r]+r  hrs'[r])+2 r (r (g45 gu34 gu56 D3[y]+gu34 gu56 g34 D5[y]) hCrs[r]+gu34 gu56 g35 D4[y] hCs[r]+gu34 gu56 D4[y2L35] hCs2[r]) (- D6[y] hrs[r]+r D6[y] hrs'[r]));
term18withcc2=(1/(2 (r^6)))gu34 gu56 (r (r (g46 D3[y]+g36 D4[y]) hCrs[r]+g34 D6[y] hCs[r]+D6[y2L34] hCs2[r]) (r D5[y] hrr[r]-2 D5[y] hrs[r])+r (r D5[y] hCrr[r]-2 delta57 D7[y] hCrs[r]) (r (g46 D3[y]+g36 D4[y]) hrs[r]+g34 D6[y] hs[r]+D6[y2L34] hs2[r])-(g46 (r^2) y hCrr[r]+r D6D4[y] hCrs[r]-(g46 y hCs[r]+y2L46 hCs2[r])) (g35 (r^2) y hrr[r]+r D5D3[y] hrs[r]-(g35 y hs[r]+y2L35 hs2[r]))-(g35 (r^2) y hCrr[r]+r D5D3[y] hCrs[r]-(g35 y hCs[r]+y2L35 hCs2[r])) (g46 (r^2) y hrr[r]+r D6D4[y] hrs[r]-(g46 y hs[r]+y2L46 hs2[r]))-2 r (r (g46 D5[y]+g45 D6[y]) hrs[r]+g56 D4[y] hs[r]+D4[y2L56] hs2[r]) (-D3[y] hCrs[r]+r D3[y] hCrs'[r])+2 r (r (g45 D3[y]+g34 D5[y]) hrs[r]+g35 D4[y] hs[r]+D4[y2L35] hs2[r]) (- D6[y] hCrs[r]+r D6[y] hCrs'[r])-2 r (r (g46 D5[y]+g45 D6[y]) hCrs[r]+g56 D4[y] hCs[r]+D4[y2L56] hCs2[r]) (-D3[y] hrs[r]+r D3[y] hrs'[r])+2 r (r (g45 D3[y]+g34 D5[y]) hCrs[r]+g35 D4[y] hCs[r]+D4[y2L35] hCs2[r]) (- D6[y] hrs[r]+r D6[y] hrs'[r]));
FullSimplify[FullSimplify[FullSimplify[FullSimplify[FullSimplify[FullSimplify[term18withcc11-term18withcc10/.{gu34 g34->hd+1,gu56 g56->hd+1,gu46 g46->hd+1,gu46 D6D4[y] ->-CS y,gu46 y2L46->0,gu35-g46 gu34 gu56->0,(y^2)->1}]/.{gu34 g34->hd+1,gu56 g56->hd+1,gu46 g46->hd+1,gu46 D6D4[y] ->-CS y,gu46 y2L46->0,gu35-g46 gu34 gu56->0,(y^2)->1}]/.{gu34 g34->hd+1,gu56 g56->hd+1,gu46 g46->hd+1,gu46 D6D4[y] ->-CS y,g46 gu34 gu56->gu35,gu35 y2L35->0,(y^2)->1}]/.{gu34 g34->hd+1,gu56 g56->hd+1,gu46 g46->hd+1,gu46 D6D4[y] ->-CS y,g46 gu34 gu56->gu35,gu35 y2L35->0,gu35 D5D3[y]->-CS y,D5D3[y]gu34 gu56 y2L46->((CS2 hd CS)/(1+hd)),D6D4[y]gu34 gu56 y2L35->((CS2 hd CS)/(1+hd)),(y^2)->1}]/.{gu34 g34->hd+1,gu56 g56->hd+1,gu46 g46->hd+1,gu46 D6D4[y] ->-CS y,g46 gu34 gu56->gu35,gu35 y2L35->0,gu35 D5D3[y]->-CS y,D5D3[y]gu34 gu56 y2L46->((CS2 hd CS)/(1+hd)),D6D4[y]gu34 gu56 y2L35->((CS2 hd CS)/(1+hd)),(y^2)->1}]/.{(y^2)->1,gu34 gu56 y2L35 y2L46->((CS CS2 hd )/(1+hd)),gu34 gu56 D5D3[y] D6D4[y]->CS(CS-hd)}]
term17withcc3=FullSimplify[FullSimplify[(1/(2 (r^4))) (2(hd+1) (r^3) (y^2) hrr[r] hCrr'[r]-5  hCrs[r] (( D4[y]gu34 D3[y]+gu34 D3[y] D4[y])  hrs[r]-D4[y]r gu34 D3[y] hrs'[r])+r D4[y] (gu34 D3[y] hrs[r] (2 hCrr[r]+hCrs'[r])+ gu34 D3[y] hCrs[r] (2 hrr[r]+hrs'[r])+2 r gu34 D3[y] (-hrr[r] hCrs'[r]-(hCrr[r]+hCrs'[r]) hrs'[r]))+r (-(4 (hd+1)) (y^2) hs[r] hCrr'[r]+5 gu34 D3[y] D4[y] hrs[r] hCrs'[r]+2 (hd+1) (r^2) (y^2) hCrr[r] hrr'[r]-3 (hd+1) (y^2) hCs[r] hrr'[r]- (hd+1) (y^2) hCs[r] hrr'[r]+(hd+1) r (y^2) hCs'[r] hrr'[r]+2 r y gu34 D4D3[y] (hrs[r] hCrr'[r]+hCrs[r] hrr'[r])+(hd+1) r (y^2) hCrr'[r] hs'[r]))/.{ gu34  D4D3[y]->-CS y,D4[y]gu34 D3[y]->CS,(y^2)->1}]/.{ D4[y]gu34 D3[y]->CS,(y^2)->1}]
term17withcc2=(1/(2 (r^4))) (2(hd+1) (r^3) (y^2) hrr[r] hCrr'[r]-5  hCrs[r] (( D4[y]gu34 D3[y]+gu34 D3[y] D4[y])  hrs[r]-D4[y]r gu34 D3[y] hrs'[r])+r D4[y] (gu34 D3[y] hrs[r] (2 hCrr[r]+hCrs'[r])+ gu34 D3[y] hCrs[r] (2 hrr[r]+hrs'[r])+2 r gu34 D3[y] (-hrr[r] hCrs'[r]-(hCrr[r]+hCrs'[r]) hrs'[r]))+r (-(4 (hd+1)) (y^2) hs[r] hCrr'[r]+5 gu34 D3[y] D4[y] hrs[r] hCrs'[r]+2 (hd+1) (r^2) (y^2) hCrr[r] hrr'[r]-3 (hd+1) (y^2) hCs[r] hrr'[r]- (hd+1) (y^2) hCs[r] hrr'[r]+(hd+1) r (y^2) hCs'[r] hrr'[r]+2 r y gu34 D4D3[y] (hrs[r] hCrr'[r]+hCrs[r] hrr'[r])+(hd+1) r (y^2) hCrr'[r] hs'[r]));
FullSimplify[FullSimplify[term17withcc2-term17withcc3/.{gu34 g34->(hd+1), gu34 y2L34->0, D4[y]gu34 D3[y]->CS,gu34  D4D3[y]->-CS y,(y^2)->1}]/.{gu34 g34->(hd+1), gu34 y2L34->0, D4[y]gu34 D3[y]->CS,gu34  D4D3[y]->-CS y,(y^2)->1}]
term16withcc3=FullSimplify[FullSimplify[(1/(2 (r^3))) (-2 D4[y] (gu34 D3[y] hCtt[r] hrs[r]+ gu34 D3[y] hCrs[r] htt[r])+2 r CS ((w^2) hCrs[r] hrs[r]+htt[r] hCrs'[r]+hCtt[r] hrs'[r])-r y ((w^2) hCrr[r] (hd+1) y hs[r]-2 CS y  (hts[r] hCtr'[r]+hCts[r] htr'[r])+(hd+1) y ((w^2) hCs[r] hrr[r]+2 r (htr[r] hCtr'[r]+hCtr[r] htr'[r]))))/.{gu34 D3[y] D4[y] ->CS}]/.{gu34 D3[y] D4[y] ->CS,(y^2)->1}]
term16withcc2=(1/(2 (r^3)))gu34 (-2 D4[y] (D3[y] hCtt[r] hrs[r]+ D3[y] hCrs[r] htt[r])+2 r D3[y] D4[y] ((w^2) hCrs[r] hrs[r]+htt[r] hCrs'[r]+hCtt[r] hrs'[r])-r y ((w^2) hCrr[r] g34 y hs[r]+2 D4D3[y] (hts[r] hCtr'[r]+hCts[r] htr'[r])+g34 y ((w^2) hCs[r] hrr[r]+2 r (htr[r] hCtr'[r]+hCtr[r] htr'[r]))));
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term16withcc2-term16withcc3/.{gu34 g34 -> (hd+1),gu34 D3[y] D4[y] ->CS,gu34 D4D3[y]->-CS y}]/.{gu34 g34 -> (hd+1), D4[y] ->(CS/(gu34 D3[y])),gu34 D4D3[y]->-CS y,(y^2)->1}]/.{gu34 g34 -> (hd+1),gu34 D3[y] D4[y] ->CS,gu34 D4D3[y]->-CS y,(y^2)->1}]/.{gu34 g34 -> (hd+1),gu34 D3[y] D4[y] ->CS,gu34 D4D3[y]->-CS y,(y^2)->1}]
term15withcc3=FullSimplify[Simplify[(1/(r^4)) (r y (2gu56 g56 y hCs[r]+2gu56 y2L56 hCs2[r]-r (gu56 g56 y hCs'[r]+gu56 y2L56 hCs2'[r])) hrr'[r]+(-D6[y] hCrs[r]+r D6[y] hCrs'[r]) (-gu56 D5[y] hrs[r]+r gu56 D5[y] hrs'[r])+(-gu56 D5[y] hCrs[r]+r gu56 D5[y] hCrs'[r]) (-D6[y] hrs[r]+r D6[y] hrs'[r])+r y hCrr'[r] (2 gu56 g56 y hs[r]+2 gu56 y2L56 hs2[r]-r (gu56 g56 y hs'[r]+gu56 y2L56 hs2'[r])))/.{gu56 g56->hd+1,gu56 y2L56->0}]/.{gu56 D5[y]D6[y]->CS,(y^2)->1}]
term15withcc2=(1/(r^4))gu56 (r y (( g56+ g56) y hCs[r]+(y2L56+y2L56) hCs2[r]-r (g56 y hCs'[r]+y2L56 hCs2'[r])) hrr'[r]+(-D6[y] hCrs[r]+r D6[y] hCrs'[r]) (-D5[y] hrs[r]+r D5[y] hrs'[r])+(-D5[y] hCrs[r]+r D5[y] hCrs'[r]) (-D6[y] hrs[r]+r D6[y] hrs'[r])+r y hCrr'[r] ((g56+g56) y hs[r]+(y2L56+y2L56) hs2[r]-r (g56 y hs'[r]+y2L56 hs2'[r])));
FullSimplify[term15withcc2-term15withcc3]
term12withcc3=FullSimplify[FullSimplify[-(1/(2 (r^4)))(-( 2D6[y] gu56 D5[y])  hCts[r] hts[r]+r D6[y] ( gu56 D5[y] (-2 hCtt[r] hrs[r]+hCtr[r] hts[r])+D5[y] gu56 (hCts[r] htr[r]-2 hCrs[r] htt[r]))+r D5[y] gu56 ( D6[y] (hCts[r] htr[r]-2 I w hCrs[r] hts[r])+D6[y] (2 I w hCts[r] hrs[r]+hCtr[r] hts[r])+r D6[y] (hCtt[r] hrr[r]-2 hCtr[r] htr[r]+hCrr[r] htt[r]+2 I w (hts[r] hCrs'[r]-hCts[r] hrs'[r])))-2 I (r^2) w y (hd+1) (y hs[r] hCtr'[r]- y hCs[r] htr'[r]))/.{D6[y] gu56 D5[y]->CS,(y^2)->1}]/.{D6[y] gu56 D5[y]->CS,(y^2)->1}]
term12withcc2=-(1/(2 (r^4)))gu56 (-( 2D6[y] D5[y])  hCts[r] hts[r]+r D6[y] ( D5[y] (-2 hCtt[r] hrs[r]+hCtr[r] hts[r])+D5[y] (hCts[r] htr[r]-2 hCrs[r] htt[r]))+r D5[y] ( D6[y] (hCts[r] htr[r]-2 I w hCrs[r] hts[r])+D6[y] (2 I w hCts[r] hrs[r]+hCtr[r] hts[r])+r D6[y] (hCtt[r] hrr[r]-2 hCtr[r] htr[r]+hCrr[r] htt[r]+2 I w (hts[r] hCrs'[r]-hCts[r] hrs'[r])))-2 I (r^2) w y (g56 y hs[r] hCtr'[r]-g56 y hCs[r] htr'[r]));
FullSimplify[FullSimplify[FullSimplify[term12withcc2-term12withcc3/.{gu56  g56->(hd+1),D6[y] gu56 D5[y]->CS}]/.{gu56  g56->(hd+1),D6[y] gu56 D5[y]->CS,(y^2)->1}]/.{(y^2)->1}]
term9withcc3=FullSimplify[Simplify[(1/(2 (r^4)))(2(hd+1) (r^2) (y^2) hCtr[r] htr[r]+r y (-2 CS y) (hCts[r] htr[r]+hCtr[r] hts[r])+2 I (w  hCts[r] (D6[y]gu46 D4[y] hs[r]-((CS2 hd)/(hd+1))D5[y] D6[y]gu56 hs2[r])-(w  (D6[y] gu46 D4[y] hCs[r]-((CS2 hd)/(hd+1))D6[y]D5[y] gu56  hCs2[r])+I CS (CS-hd)hCts[r]) hts[r])+I   (-2 w hCts[r] (gu34 (hd+1)  D3[y]D4[y] hs[r])+2 w (gu34(hd+1) D3[y] D4[y] hCs[r]) hts[r]+ D3[y]gu35 r D5[y] (-2 w hCts[r] hrs[r]+I hCtt[r] hrs[r]+2 w hCrs[r] hts[r]+I hCrs[r] htt[r]))+ (-gu45 D5[y]r D4[y] (hCtt[r] hrs[r]+hCrs[r] htt[r])-(hd+1) D5[y]gu56 D6[y] (hCtt[r] hs[r]+2 I r w (-hCts[r] hrs[r]+hCrs[r] hts[r])+hCs[r] htt[r]) ))/.{D3[y]gu34 D4[y]->CS,D3[y]gu35 D5[y]->CS,D4[y]gu45 D5[y]->CS,D4[y]gu46 D6[y]->CS,D6[y]gu56 D5[y]->CS,(y^2)->1}]/.{D3[y]gu34 D4[y]->CS,D3[y]gu35 D5[y]->CS,D4[y]gu45 D5[y]->CS,D4[y]gu46 D6[y]->CS,D6[y]gu56 D5[y]->CS,(y^2)->1}]
term9withcc2=(1/(2 (r^4)))(2(hd+1) (r^2) (y^2) hCtr[r] htr[r]+r y (-2 CS y) (hCts[r] htr[r]+hCtr[r] hts[r])+2 I (w D6[y] hCts[r] (gu46 D4[y] hs[r]-((CS2 hd)/(hd+1))D5[y] gu56 hs2[r])-(w D6[y] ( gu46 D4[y] hCs[r]-((CS2 hd)/(hd+1))D5[y] gu56  hCs2[r])+I CS (CS-hd)hCts[r]) hts[r])+I   D3[y] (-2 w hCts[r] (gu34 (hd+1) D4[y] hs[r])+2 w (gu34(hd+1) D4[y] hCs[r]) hts[r]+gu35 r D5[y] (-2 w hCts[r] hrs[r]+I hCtt[r] hrs[r]+2 w hCrs[r] hts[r]+I hCrs[r] htt[r]))+D5[y] (-gu45 r D4[y] (hCtt[r] hrs[r]+hCrs[r] htt[r])-(hd+1) gu56 D6[y] (hCtt[r] hs[r]+2 I r w (-hCts[r] hrs[r]+hCrs[r] hts[r])+hCs[r] htt[r])- gu56  0 (hCtt[r] hs2[r]+hCs2[r] htt[r])));
FullSimplify[FullSimplify[FullSimplify[FullSimplify[term9withcc3-term9withcc2/.{D3[y]gu34 D4[y]->CS,D3[y]gu35 D5[y]->CS,D4[y]gu45 D5[y]->CS,D4[y]gu46 D6[y]->CS,D6[y]gu56 D5[y]->CS,(y^2)->1}]/.{D3[y]gu34 D4[y]->CS,D3[y]gu35 D5[y]->CS,D4[y]gu45 D5[y]->CS,D4[y]gu46 D6[y]->CS,D6[y]gu56 D5[y]->CS,(y^2)->1}]/.{D3[y]gu34 D4[y]->CS,D3[y]gu35 D5[y]->CS,D4[y]gu45 D5[y]->CS,D4[y]gu46 D6[y]->CS,D6[y]gu56 D5[y]->CS,(y^2)->1}]/.{D3[y]gu34 D4[y]->CS,D3[y]gu35 D5[y]->CS,D4[y]gu45 D5[y]->CS,D4[y]gu46 D6[y]->CS,D6[y]gu56 D5[y]->CS,(y^2)->1}]
term12withcc3=FullSimplify[FullSimplify[-(1/(2 (r^4)))(-( 2D6[y] gu56 D5[y])  hCts[r] hts[r]+r D6[y] ( gu56 D5[y] (-2 hCtt[r] hrs[r]+hCtr[r] hts[r])+D5[y] gu56 (hCts[r] htr[r]-2 hCrs[r] htt[r]))+r D5[y] gu56 ( D6[y] (hCts[r] htr[r]-2 I w hCrs[r] hts[r])+D6[y] (2 I w hCts[r] hrs[r]+hCtr[r] hts[r])+r D6[y] (hCtt[r] hrr[r]-2 hCtr[r] htr[r]+hCrr[r] htt[r]+2 I w (hts[r] hCrs'[r]-hCts[r] hrs'[r])))-2 I (r^2) w y (hd+1) (y hs[r] hCtr'[r]- y hCs[r] htr'[r]))/.{D6[y] gu56 D5[y]->CS,(y^2)->1}]/.{D6[y] gu56 D5[y]->CS,(y^2)->1}]
term12withcc2=-(1/(2 (r^4)))gu56 (-( 2D6[y] D5[y])  hCts[r] hts[r]+r D6[y] ( D5[y] (-2 hCtt[r] hrs[r]+hCtr[r] hts[r])+D5[y] (hCts[r] htr[r]-2 hCrs[r] htt[r]))+r D5[y] ( D6[y] (hCts[r] htr[r]-2 I w hCrs[r] hts[r])+D6[y] (2 I w hCts[r] hrs[r]+hCtr[r] hts[r])+r D6[y] (hCtt[r] hrr[r]-2 hCtr[r] htr[r]+hCrr[r] htt[r]+2 I w (hts[r] hCrs'[r]-hCts[r] hrs'[r])))-2 I (r^2) w y (g56 y hs[r] hCtr'[r]-g56 y hCs[r] htr'[r]));
FullSimplify[FullSimplify[FullSimplify[term12withcc2-term12withcc3/.{gu56  g56->(hd+1),D6[y] gu56 D5[y]->CS}]/.{gu56  g56->(hd+1),D6[y] gu56 D5[y]->CS,(y^2)->1}]/.{(y^2)->1}]