SetDirectory["C:\\drorbn\\AcademicPensieve\\2016-03"];
<< SnG.m

dbdm[u_,v_] := Plus[
db[1][u,dσ[2,-2][v]] // dm[2,-2,2],
-db[1][u,dσ[2,-2][v]] // dm[-2,2,2],
-db[2][u,dσ[1,-1][v]] // dm[1,-1,1],
db[2][u,dσ[1,-1][v]] // dm[-1,1,1]
];
dbdm@@{UU[a[f[(Subscript[b, 2])],1,1]],UU[a[1,1,2]]}

(Subscript[ϵ, 14])=(Subscript[ϵ, 4]) (Subscript[ϵ, 10]);

(Subscript[ϵ, 9])=(Subscript[ϵ, 10])(Subscript[ϵ, 48]);

tmhts[u_] := (u// tm[1,2,1] // hts[4,1]) -(u// hts[4,1] // hts[4,2] // tm[1,2,1]);
tmhts@UU[δaa[(Subscript[f, 32])[(Subscript[b, 1]),(Subscript[b, 2]),(Subscript[b, 3])],1,4,2,4]]

(Subscript[ϵ, 3])=(Subscript[ϵ, 4]) (Subscript[ϵ, 10]);

hmhts[u_] := (u// hm[1,2,1] // hts[1,4]) -(u// hts[2,4] // hts[1,4] // hm[1,2,1]);
hmhts@UU[δaa[(Subscript[f, 37])[(Subscript[b, 4]),(Subscript[b, 5])],4,1,4,2]]

(Subscript[ϵ, 16])=(Subscript[ϵ, 8]) (Subscript[ϵ, 15]);

dbJacobi[u_,v_,w_] := db[0][u, db[0][v,w]] + db[0][v, db[0][w,u]] + db[0][w, db[0][u,v]];
dbJacobi@@{UU[a[(Subscript[f, 2])[(Subscript[b, 0]),(Subscript[b, 1]),(Subscript[b, 2])],0,0]],UU[a[(Subscript[g, 4])[(Subscript[b, 0]),(Subscript[b, 3]),(Subscript[b, 4])],0,3]],UU[a[(Subscript[h, 8])[(Subscript[b, 0]),(Subscript[b, 5]),(Subscript[b, 6])],5,0]]}

(Subscript[ϵ, 18]) =(Subscript[ϵ, 25]);

(Subscript[ϵ, 13]) = (Subscript[ϵ, 12]) (Subscript[ϵ, 26]) (Subscript[ϵ, 27]) (Subscript[ϵ, 48]) / (Subscript[ϵ, 25]^2);

(Subscript[ϵ, 31])=(Subscript[ϵ, 27])(Subscript[ϵ, 45])/(Subscript[ϵ, 44]);

(Subscript[ϵ, 45])  = (Subscript[ϵ, 12]) (Subscript[ϵ, 26]) (Subscript[ϵ, 27]) (Subscript[ϵ, 48]) /(Subscript[ϵ, 25]);

(Subscript[ϵ, 25]) =((  (Subscript[ϵ, 26]) (Subscript[ϵ, 27])  )/(Subscript[ϵ, 44]));

(Subscript[ϵ, 28])= (Subscript[ϵ, 35]) (Subscript[ϵ, 44]) (Subscript[ϵ, 48])/(Subscript[ϵ, 26]);

(Subscript[ϵ, 47]) =(Subscript[ϵ, 4]) (Subscript[ϵ, 12]) (Subscript[ϵ, 44]);

(Subscript[ϵ, 46])=(Subscript[ϵ, 4]) (Subscript[ϵ, 12])  (Subscript[ϵ, 44]);

(Subscript[ϵ, 48])=(Subscript[ϵ, 4]);