kernelopts(assertlevel=1): with(Physics):with(Library):Setup(spacetimeindices=lowercaselatin): Define(A[a]):Define(B[a,b]):Define(F[a,b,c]):Define(H[a,b,c,d]):Define(J[a,b,c,d,e]): tTensor:=((58)*F[~c,d,g]*J[i,h,c,~i,~h]*B[~d,a]*A[b]*A[~g]+(58)*A[~c]*(-1)*F[~d,g,c]*J[h,i,d,~h,~i]*B[~g,a]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[c]*A[~e]*A[a]*(18)*A[e]*H[f,~f,b,~c]+(18)*A[e]*A[a]*A[~e]*H[c,~c,b,~f]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[c,~c,~i,h,f]*B[b,~f]*F[i,~j,~h]*H[~d,d,j,a]+(-1)*J[f,~f,~c,h,i]*H[~j,j,d,a]*B[b,~i]*F[c,~d,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,h,g,~e]*(18)*J[~g,~d,c,b,e]*F[d,f,a]*B[~f,~h]+B[~h,~e]*F[f,h,a]*J[~c,~f,d,b,g]*(18)*(-1)*H[~d,e,c,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,e,b]*B[c,~e]*F[~c,~f,d]*A[a]*A[f]+B[c,~f]*F[~c,~d,e]*A[d]*F[~e,f,b]*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*J[~f,~c,g,f,~g]*A[a]*A[b]+A[f]*A[b]*J[~g,~f,c,g,~c]*A[a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[j,a,c]*H[d,i,~d,b]*A[~c]*J[e,g,~j,~i,~e]*(2)*A[~g]+(-1)*H[i,c,~i,b]*A[~e]*(2)*J[d,e,~g,~c,~d]*A[~j]*F[g,a,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((43)*J[f,e,d,g,c]*B[~g,h]*H[~f,i,~d,~e]*J[~c,~h,a,~i,b]+H[~c,h,~e,~i]*B[~d,f]*(-1)*J[~g,~f,a,~h,b]*(43)*J[c,i,e,d,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,k,~j,j]*A[g]*H[~f,f,~k,b]*J[a,i,~d,~g,~i]*(17)*(-1)+(17)*H[j,f,~i,i]*A[d]*J[a,k,~j,~d,~k]*H[~g,g,~f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((72)*A[f]*H[~d,d,c,g]*J[a,~f,~g,e,~i]*F[i,b,~c]*A[~e]+(-1)*A[~i]*H[~f,f,c,g]*(72)*A[e]*J[a,~e,~g,i,~d]*F[d,b,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,b,f]*B[d,~f]*(-1)*(65)*F[a,~c,~d]*B[c,e]+(65)*B[c,e]*F[a,~c,~f]*B[f,~d]*F[~e,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[~f]*J[e,~e,~g,g,f]*A[a]+(-1)*A[~g]*J[e,~e,~f,f,g]*A[a]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~f]*B[c,d]*B[~e,~d]*F[e,a,f]*A[~c]+(-1)*B[e,c]*B[~f,~c]*F[f,a,d]*B[b,~d]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,g,h]*A[~e]*J[~d,~h,a,c,f]*A[b]*H[~g,d,e,~c]*(42)+J[~g,~f,a,d,e]*(42)*H[~h,g,c,~d]*F[~e,h,f]*A[b]*A[~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,d,b,a,~e]*J[~g,c,e,~d,~f]*F[~c,f,h]*A[~h]+F[~d,e,c]*J[~h,d,g,~f,~e]*A[~c]*(-1)*J[h,f,b,a,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,b,d,a,~d]*F[~f,g,c]*B[~h,~c]*A[h]*A[~g]+J[g,b,h,a,~h]*F[~g,f,d]*B[~c,~d]*(-1)*A[~f]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[f]*B[e,~d]*H[c,~e,a,d]*F[~f,~c,b]*(73)+B[d,~c]*(73)*F[~e,~f,b]*H[f,~d,a,c]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((70)*H[~d,~e,~f,b]*B[g,~i]*J[~g,f,d,e,a]*F[~h,i,h]+B[i,~e]*J[~i,f,g,h,a]*H[~g,~h,~f,b]*(-1)*F[~d,e,d]*(70)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*H[~f,f,h,e]*J[j,~j,~i,~e,i]*B[a,b]+H[~f,f,j,i]*B[a,b]*A[~j]*J[e,~e,~h,~i,h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,b,a]*H[g,~c,~e,~d]*B[e,~g]*(-1)*F[c,f,d]*(4)+(4)*F[~c,b,a]*H[g,~d,~f,~e]*F[d,c,e]*B[f,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,~c,h,~j]*A[e]*F[j,k,b]*H[a,g,~g,i]*H[~k,~i,~e,~h]+A[k]*H[i,~i,j,~e]*H[~h,~g,~k,~j]*H[a,c,~c,g]*(-1)*F[e,h,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*(-1)*J[f,~d,c,g,~e]*J[b,e,d,~f,~c]*(7)*A[~g]+A[~d]*A[a]*J[b,g,c,~f,~e]*J[f,~c,e,d,~g]*(7)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,g,c]*H[~g,~d,~e,b]*A[~c]*H[e,a,d,~f]+F[e,f,g]*A[~g]*H[~f,~d,~c,b]*H[c,a,d,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*F[h,~c,d]*F[~h,~g,~e]*H[c,f,~d,e]*(98)*H[~f,b,a,g]+F[~f,~g,~h]*H[d,e,~c,h]*F[f,~d,c]*H[~e,b,a,g]*(98)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((34)*H[b,~f,i,a]*F[~h,~i,~g]*A[c]*H[e,~c,h,~d]*H[f,~e,d,g]+H[e,~h,g,i]*A[f]*F[~d,~c,~i]*H[h,~f,d,~g]*(-1)*(34)*H[b,~e,c,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,a,d]*H[c,b,g,~d]*A[h]*(-1)*H[~c,e,~h,~e]*(44)+F[~d,a,e]*(44)*H[~g,h,~c,~h]*A[c]*H[g,b,d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,d,g,~h,e]*(75)*B[a,c]*A[h]*J[~d,i,~e,~i,~c]*A[~g]*(-1)+A[~g]*J[b,d,g,~c,i]*B[a,e]*A[c]*J[~d,h,~i,~h,~e]*(75)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,d,~e]*A[e]*F[b,~g,h]*H[a,f,~h,g]*A[~f]+(-1)*F[~e,e,~h]*F[b,~f,d]*A[~g]*A[h]*H[a,g,~d,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,e]*F[b,~d,~g]*(20)*(-1)*A[g]*A[~f]*J[f,a,d,~e,~c]+F[b,~f,~d]*A[d]*J[e,a,f,~c,~g]*(20)*B[g,c]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,g,e,~c]*(9)*J[~i,~g,~h,h,b]*A[c]*B[a,i]+(-1)*(9)*B[a,e]*J[~e,~i,~h,h,b]*H[~c,i,c,~g]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,~k,a,~j,k]*A[f]*J[b,~e,~i,~f,i]*H[~d,j,h,e]*A[d]+J[b,~e,~f,~i,f]*(-1)*J[~j,~h,a,~d,h]*A[k]*A[i]*H[~k,d,j,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,f]*(58)*(-1)*H[c,a,b,e]*A[~c]*A[~e]+(58)*B[~e,e]*A[~f]*A[~c]*H[c,a,b,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,h]*(22)*H[~i,~e,e,~h]*F[i,b,a]*A[f]*B[~c,c]*(-1)+B[~h,e]*H[~i,~c,c,~e]*B[~f,f]*A[h]*F[i,b,a]*(22)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,k,f,h,~k]*H[d,~f,j,b]*J[~g,a,~j,~d,~h]*B[~i,i]+B[~k,k]*(-1)*J[g,i,d,h,~i]*H[j,~d,f,b]*J[~g,a,~f,~j,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,~f,e,~h]*(89)*B[f,a]*B[~e,~c]*H[b,c,~i,i]*(-1)+(89)*B[~h,~e]*H[b,e,~c,c]*B[f,a]*H[i,~f,h,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[a]*(46)*(-1)*F[b,~c,~e]*B[c,e]*A[d]+B[e,d]*A[~c]*F[b,~e,~d]*(46)*A[a]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[h,~h,~c]*H[a,g,~i,i]*H[e,b,~g,c]*A[~e]+A[~c]*H[c,b,~h,g]*F[i,~i,~g]*(-1)*H[a,h,~e,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*(39)*B[~e,f]*J[b,e,~f,~c,c]*A[~g]*A[g]+A[~f]*A[a]*(-1)*B[~g,e]*J[b,g,~e,~c,c]*A[f]*(39)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*B[b,a]*A[~e]*A[d]*F[e,f,~f]+A[~d]*F[d,e,~e]*A[f]*(-1)*B[b,a]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~f]*F[a,f,~h]*B[~c,e]*J[h,~e,c,d,~d]+J[c,~h,e,d,~d]*B[b,~f]*(-1)*B[~e,h]*F[a,f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,e,i,c,f]*(-1)*F[h,~e,~h]*B[~j,~f]*(96)*J[~c,a,g,j,~i]*A[~g]+F[e,~g,~e]*J[b,g,c,i,j]*A[~f]*J[~i,a,f,h,~c]*(96)*B[~h,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,e,c,g,~e]*F[j,k,b]*J[~k,~h,~j,h,~c]*F[~l,l,~g]+J[a,h,e,j,~h]*J[~l,~g,~c,g,~e]*(-1)*F[c,l,b]*F[~k,k,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[i,d]*A[h]*J[a,b,~h,~c,~e]*J[~i,c,~d,~g,g]*A[e]*(92)+(92)*A[e]*(-1)*A[g]*J[~i,d,~c,~h,h]*J[a,b,~e,~d,~g]*B[i,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~d]*F[g,~g,~h]*(62)*A[h]*H[j,d,a,~j]*B[~i,i]+A[g]*B[b,~h]*B[~i,i]*(-1)*F[d,~d,~g]*H[j,h,a,~j]*(62)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((32)*B[c,a]*J[f,~i,~h,i,h]*B[e,b]*B[~f,~e]*(-1)*A[~c]+B[c,a]*(32)*B[i,b]*A[~c]*J[e,~f,~h,f,h]*B[~e,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((12)*F[g,~g,~e]*B[~c,~f]*A[e]*F[a,f,b]*A[c]+A[c]*B[~c,~e]*F[g,~g,~f]*F[a,e,b]*A[f]*(-1)*(12)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[b]*B[e,c]*H[g,~f,~e,d]*A[~g]*H[a,~d,~c,f]*(80)+A[~d]*B[c,g]*H[d,~e,~c,f]*A[b]*(80)*H[a,~f,~g,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,~c,d]*H[~f,c,~e,b]*A[~d]*B[e,f]+(-1)*B[d,f]*H[~f,e,~d,b]*F[a,~e,c]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[l,~d,~l,b]*H[m,~j,e,a]*J[n,~e,c,~n,~c]*H[~m,k,j,~k]*A[d]+J[m,~l,e,~m,~e]*A[k]*H[~d,n,c,~n]*H[j,~k,~j,b]*H[d,~c,l,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~c]*(6)*B[c,~f]*A[~g]*H[f,g,d,~d]*A[a]+B[d,~f]*H[f,c,g,~g]*B[b,~d]*A[a]*A[~c]*(6)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~d]*F[~h,~f,b]*A[h]*J[f,~c,~e,d,c]*A[e]+B[a,~f]*J[h,~c,~e,f,c]*F[~d,~h,b]*A[d]*A[e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((95)*F[~g,~f,c]*B[f,b]*H[~e,g,d,~c]*F[e,~d,a]*(-1)+B[g,b]*(95)*F[e,~c,a]*H[~e,f,c,~d]*F[~f,~g,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[l,~e]*H[j,~g,~j,e]*J[~d,d,g,b,~k]*J[h,~l,k,a,~h]+B[j,~k]*J[l,~j,e,a,~l]*H[d,~h,~d,k]*J[~g,g,h,b,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[j,~j]*H[c,~g,k,~k]*J[f,~f,~c,~i,a]*F[b,i,g]+B[k,~k]*J[f,~f,~g,~i,a]*F[b,i,c]*H[g,~c,j,~j]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*J[i,e,f,a,~d]*H[d,~i,g,c]*B[~c,h]*(80)*H[~f,b,~g,~e]*(-1)+A[~e]*B[~g,e]*(80)*H[c,~f,d,g]*J[f,h,i,a,~c]*H[~i,b,~d,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,a,f]*B[~c,~e]*B[d,b]*(-1)*F[~f,~d,e]*(30)+F[e,a,c]*F[~c,~d,f]*(30)*B[~e,~f]*B[d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*F[~f,d,~c]*B[b,~d]*H[a,e,c,f]+A[~f]*(-1)*F[~c,e,~d]*H[a,f,d,c]*B[b,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[~h]*F[g,~d,~g]*A[a]*H[c,d,~c,h]+A[~g]*F[c,~d,~c]*A[b]*A[a]*(-1)*H[h,d,~h,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*F[~h,g,d]*(82)*J[i,b,~d,~i,a]*F[~g,~f,~c]*F[c,f,h]+(82)*F[~h,~d,~i]*J[c,b,~g,~c,a]*F[i,d,f]*F[~f,h,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,a]*B[~g,~f]*F[e,c,d]*J[~e,~c,b,f,g]+F[g,f,e]*B[~d,~c]*J[~g,~f,b,c,d]*(-1)*B[~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,f,~c,~d]*A[~h]*J[c,a,~j,~f,j]*F[b,h,~i]*A[i]*(12)+A[~d]*F[b,d,~f]*(-1)*(12)*J[i,a,~j,~c,j]*H[h,c,~i,~h]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,~h,~j,~i]*F[f,j,g]*F[~f,d,~d]*A[~c]*(58)*J[b,a,c,i,h]*(-1)+A[~h]*F[~g,j,~j]*(58)*F[g,f,i]*J[b,a,h,c,d]*H[~i,~d,~f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,d]*B[e,a]*(89)*A[~e]*A[b]+B[~d,d]*A[~e]*A[b]*(89)*B[e,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~h,d]*F[~g,a,b]*(43)*H[~d,h,i,~e]*J[~c,g,~i,e,c]+B[~g,i]*H[~i,g,d,~h]*J[~e,c,~d,h,e]*(-1)*F[~c,a,b]*(43)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*F[b,~h,~e]*(57)*A[~g]*J[f,h,d,g,~c]*H[~f,a,c,e]+F[b,~g,~e]*J[c,g,d,h,~f]*(57)*A[~h]*A[~d]*H[~c,a,f,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,~d]*H[f,~e,h,e]*A[g]*(13)*A[~g]*H[d,a,~h,b]+A[g]*H[e,a,~h,b]*(13)*H[f,~d,h,d]*(-1)*B[~f,~e]*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,~j,~f,~i]*J[g,~d,c,~g,b]*A[a]*A[i]*J[j,f,d,h,~c]*(43)+J[d,~c,i,~d,b]*(43)*H[~g,~h,~j,~f]*J[h,j,c,g,~i]*A[f]*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[c]*A[~c]*(-1)*(83)*A[~e]*H[a,e,b,d]+A[e]*(83)*A[~d]*A[~e]*A[~c]*H[a,d,b,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,~e,~f,f,b]*A[h]*H[c,e,~h,a]*A[~g]*A[g]+H[g,e,~c,a]*A[c]*(-1)*A[f]*A[~f]*J[~g,~e,~h,h,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,~e,b]*A[a]*(86)*H[d,~f,~g,g]*B[f,e]+B[f,g]*(-1)*A[a]*H[e,~f,~d,d]*(86)*F[~e,~g,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~i,e,i]*F[~g,h,d]*(46)*H[~c,~e,a,~d]*H[g,c,~h,b]+(46)*H[e,i,~g,b]*F[~e,g,h]*H[~i,~d,a,~h]*(-1)*F[~c,d,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,~g,~f,f]*B[g,~e]*A[b]*F[~h,h,e]+A[b]*(-1)*F[~h,h,f]*B[e,~f]*H[a,~e,~g,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*A[~c]*J[d,~f,a,~d,b]*B[g,c]*A[f]*(77)+A[f]*B[g,c]*A[~g]*J[d,~f,a,~d,b]*(-1)*(77)*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,~f,~g,b]*F[i,~h,~e]*H[h,~d,f,c]*H[g,~i,d,a]*A[e]+A[i]*H[d,~g,h,e]*F[c,~d,~i]*H[f,~c,g,a]*(-1)*H[~e,~h,~f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,~c,f,~j,~i]*J[d,~l,~e,~h,c]*J[~f,~d,g,i,~g]*J[l,a,h,j,e]+J[g,~e,~l,~c,j]*(-1)*J[e,a,c,d,l]*J[b,~j,h,~d,~f]*J[~h,~g,i,f,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,a,~d]*A[~c]*A[e]*F[~f,b,d]*B[c,f]+F[~c,b,d]*F[~e,a,~d]*B[f,c]*A[~f]*(-1)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[~e,j,~i,i,~j]*A[k]*(96)*A[e]*B[c,b]*J[a,~c,~k,~g,g]+A[g]*A[i]*J[a,~e,~g,~j,j]*J[~i,c,~k,k,~c]*B[e,b]*(96)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*F[f,a,b]*(83)*(-1)*B[~c,d]*F[c,e,~g]*F[g,~e,~d]+F[c,a,b]*F[d,~f,~e]*F[g,f,~d]*B[~g,e]*(83)*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,c]*A[~e]*A[~c]*B[~f,~d]*H[e,a,f,d]+B[b,e]*(-1)*B[~f,~c]*H[d,a,f,c]*A[~d]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*H[~e,b,g,~d]*J[a,~h,i,e,h]*H[~j,d,~i,j]+A[~d]*H[~e,b,d,~g]*(-1)*H[~i,g,~h,i]*J[a,~j,h,e,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((92)*(-1)*F[~e,~c,g]*B[c,~h]*B[h,a]*J[~f,~g,e,f,b]+B[f,~h]*J[~g,~e,c,g,b]*B[h,a]*F[~c,~f,e]*(92)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*H[~i,h,c,j]*H[~e,b,i,e]*J[d,~d,~j,~c,a]+(-1)*J[c,~c,~e,~j,a]*H[~h,i,j,e]*H[~d,b,h,d]*A[~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,~h]*J[d,~g,a,f,h]*B[~e,e]*F[b,~d,~f]+(-1)*B[f,~d]*J[e,~f,a,g,d]*B[~h,h]*F[b,~e,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,g,c]*(-1)*A[b]*(57)*A[~e]*F[d,a,e]*B[~d,~c]+F[~e,e,c]*A[~d]*(57)*A[b]*B[~g,~c]*F[g,a,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,~j,d,~d]*J[~c,~i,a,j,c]*B[i,~f]*(23)*F[f,~g,b]+B[d,~c]*(-1)*(23)*F[c,~f,b]*J[~g,~d,a,i,g]*H[f,~i,j,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,g,h]*J[~l,b,a,~h,~g]*H[j,~j,k,~k]*F[~i,~e,i]*A[l]+F[~k,~l,k]*F[l,g,i]*(-1)*A[h]*J[~h,b,a,~i,~g]*H[e,~e,j,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*H[~d,i,f,~f]*F[~h,~j,d]*(99)*A[b]*J[~e,e,~i,j,a]*(-1)+J[~i,i,~h,j,a]*A[b]*A[f]*H[~e,h,d,~d]*F[~f,~j,e]*(99)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*B[b,c]*F[~g,~c,f]*H[~f,d,~d,g]+A[a]*B[b,c]*H[~d,g,~g,f]*(-1)*F[~f,~c,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[c,~g,i,~i]*(86)*B[~f,~c]*F[g,b,f]*F[h,a,~h]+H[c,~g,f,~f]*B[~h,~c]*F[g,b,h]*(86)*F[i,a,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[b]*B[a,~g]*H[d,f,~f,e]*B[g,~e]+B[a,~d]*H[g,f,~f,e]*A[b]*B[d,~e]*(-1)*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*J[d,~c,a,~e,f]*A[c]*F[~d,h,~f]*H[i,b,~h,~i]+H[e,b,~h,~e]*J[i,~f,a,~c,d]*A[f]*A[c]*(-1)*F[~i,h,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,f,g,~c]*A[~d]*H[~h,~g,~f,a]*H[~e,c,b,h]*A[e]+H[~d,~h,~f,a]*A[~e]*H[e,f,h,~c]*A[g]*(-1)*H[~g,c,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~d]*F[~h,~f,e]*H[c,d,h,~c]*F[~e,f,a]+B[b,~d]*F[~e,c,a]*F[~f,~c,e]*H[h,d,f,~h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*B[f,~e]*B[g,~c]*F[e,~f,a]*H[d,c,b,~g]+H[g,f,b,~e]*B[e,~f]*F[c,~d,a]*B[d,~c]*A[~g]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,a,~h,j]*A[e]*J[f,~g,g,h,c]*H[~e,~d,~j,b]*B[~f,~c]+(-1)*A[c]*J[d,~e,e,f,h]*H[g,a,~f,j]*B[~d,~h]*H[~c,~g,~j,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,g,~g,i,~e]*B[a,~d]*A[e]*B[d,f]*H[b,~i,h,~f]+B[a,~i]*(-1)*A[e]*J[~g,d,~d,h,~e]*H[b,~h,g,~f]*B[i,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,j,h,~c,g]*J[i,~i,a,~h,~g]*B[~e,b]*B[e,c]+B[c,j]*(-1)*B[~c,b]*J[~h,h,i,~j,e]*J[g,~g,a,~i,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((75)*F[~e,d,~i]*H[~h,c,h,i]*H[~f,~d,a,e]*B[~c,f]*A[b]+H[~f,h,f,i]*A[b]*B[~h,e]*(75)*F[~d,c,~i]*(-1)*H[~e,~c,a,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((98)*(-1)*B[e,a]*F[i,~i,~h]*J[d,g,h,~g,b]*B[~d,~e]+B[e,a]*(98)*J[g,h,i,~h,b]*F[d,~d,~i]*B[~g,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,c]*J[~c,f,~e,g,~g]*(33)*(-1)*A[b]*B[~f,a]+B[e,f]*J[~f,c,~e,g,~g]*B[~c,a]*(33)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,f,~f,~e]*A[~j]*(16)*J[k,~d,~k,~i,d]*H[a,j,e,i]+H[a,e,j,k]*H[b,f,~f,~j]*(-1)*(16)*J[i,~d,~i,~k,d]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,~g,~e,e]*F[g,~h,~d]*J[h,~i,f,b,d]*B[a,i]+(-1)*J[f,~e,h,b,i]*H[~h,~d,~g,g]*F[d,~f,~i]*B[a,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,e,~d,a]*B[~e,b]*A[d]*A[~c]+H[d,e,~c,a]*A[c]*A[~d]*B[~e,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*J[d,~d,f,~f,h]*H[i,~h,a,b]*A[~e]*A[~i]+H[i,~f,a,b]*A[~e]*A[e]*A[~i]*J[h,~h,d,~d,f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,h,c,e,i]*F[~f,f,~c]*A[~i]*F[~h,b,a]+A[~e]*F[~i,i,~h]*J[~c,f,h,c,e]*(-1)*F[~f,b,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,c,~g,~e]*F[~h,d,f]*A[~d]*J[h,~c,e,b,~f]*A[g]+H[a,g,~c,~e]*J[d,~g,e,b,~f]*A[c]*F[~d,h,f]*A[~h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[c,b,a,e,d]*B[~e,~g]*B[~d,f]*B[~c,~f]*A[g]+(-1)*B[~e,g]*A[f]*J[c,b,a,d,e]*B[~c,~g]*B[~d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*A[f]*H[b,a,c,~c]*B[~e,~f]+B[~c,~e]*(-1)*A[e]*A[c]*H[b,a,f,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[~d]*B[a,e]*A[~e]*F[d,~c,b]+B[a,e]*A[~d]*A[c]*A[~e]*F[d,~c,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[g]*H[~g,~c,a,c]*H[b,h,~h,~d]+H[~h,~d,a,d]*A[h]*H[b,c,~c,~g]*(-1)*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,h]*A[~i]*F[e,b,~h]*A[a]*J[i,c,~c,~d,d]+A[a]*J[d,h,~h,~i,i]*B[~c,e]*(-1)*A[~d]*F[c,b,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,~d]*B[b,c]*(12)*A[~e]*F[d,e,a]*(-1)+B[b,d]*B[~d,~c]*F[c,e,a]*(12)*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*(32)*(-1)*A[f]*F[a,e,~d]*J[g,~e,~g,b,d]+J[e,~f,~e,b,d]*(32)*F[a,f,~d]*A[g]*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,i,h,f]*F[g,~h,~g]*B[~e,b]*F[a,e,~i]+F[a,g,~f]*(-1)*H[~h,f,i,h]*B[~g,b]*F[e,~i,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((3)*(-1)*A[f]*J[~e,d,a,~i,h]*A[g]*J[b,~d,i,~g,~c]*H[c,~f,~h,e]+A[c]*J[b,~i,h,~c,~g]*H[g,~d,~f,e]*A[d]*(3)*J[~e,i,a,~h,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~h,a,~f]*H[f,d,~g,~c]*(46)*J[b,c,~d,e,g]*B[~e,h]*(-1)+(46)*J[b,c,~e,g,d]*H[h,e,~d,~c]*B[~g,f]*F[~f,a,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,~e,~j,j,~h]*A[g]*A[e]*B[b,~g]*J[f,a,~f,h,~i]+J[e,a,~e,g,~f]*B[b,~h]*(-1)*A[j]*A[h]*J[f,~j,~i,i,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*H[~f,~c,e,d]*A[f]*(72)*H[a,~e,c,~d]+(-1)*A[b]*H[~c,~d,f,e]*H[a,~f,d,~e]*A[c]*(72)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[~i,~j,i,j]*J[e,b,~h,a,~d]*B[d,~g]*(54)*F[g,h,~e]+B[g,~h]*J[d,b,~i,a,~g]*H[~e,~j,e,j]*F[h,i,~d]*(54)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,d]*H[~g,~d,g,~e]*F[b,a,~f]*A[e]+A[g]*B[e,d]*(-1)*F[b,a,~e]*H[~f,~d,f,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,g,a]*(43)*B[e,f]*B[~f,~g]*F[~e,~d,d]+B[~e,~g]*(-1)*F[b,g,a]*(43)*F[~d,~f,f]*B[d,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~f,~i]*(-1)*F[h,g,c]*F[~h,a,~g]*(44)*J[~e,e,i,f,~c]+(44)*F[~f,a,~c]*J[~i,i,e,g,~h]*F[f,c,h]*F[b,~g,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,~c]*(47)*F[c,~f,~e]*A[a]*B[g,~g]*B[b,f]+B[b,c]*F[g,~c,~e]*A[a]*B[f,~f]*(47)*(-1)*B[e,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,a,i,b]*J[d,h,c,~e,~j]*F[~f,~c,~g]*J[~h,f,g,~d,~i]*A[j]+J[~g,e,f,~d,~h]*H[i,a,h,b]*(-1)*J[d,g,c,~i,~j]*F[~e,~c,~f]*A[j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,d,a,b]*J[~j,~i,~d,~c,c]*(72)*J[j,k,~k,~f,i]*(-1)*A[f]*A[h]+H[~j,k,a,b]*A[j]*A[f]*(72)*J[i,d,~d,~f,c]*J[~i,~c,~k,~h,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*F[c,b,h]*F[f,~c,e]*J[~d,a,~h,~e,d]+A[~c]*F[c,~d,f]*F[d,b,e]*J[~h,a,~e,~f,h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,j,l,a,~l]*J[m,k,~k,~m,~d]*J[n,h,b,d,~n]*(-1)*A[~h]*(76)+(76)*J[m,d,~d,~m,~h]*A[~j]*J[~k,k,n,a,~n]*J[l,j,b,h,~l]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,~f,~i,~d]*(51)*A[b]*F[~g,g,j]*F[~e,h,~j]*(-1)*J[a,e,i,d,f]+(51)*F[~e,e,d]*A[b]*H[~h,~i,~g,~f]*F[~j,h,~d]*J[a,j,g,f,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,d,e,c]*(51)*B[a,b]*B[g,~e]*(-1)*H[~c,~f,~d,~g]+B[a,b]*H[g,d,e,f]*(51)*H[~f,~g,~d,~c]*B[c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((62)*F[g,~c,e]*A[~f]*F[~d,f,~g]*J[c,~e,a,d,b]+A[~c]*F[f,~d,g]*J[d,~g,a,e,b]*F[~e,c,~f]*(62)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,i,~h]*A[~g]*J[a,~e,g,~c,e]*J[h,b,~i,~f,c]+A[~g]*(-1)*J[h,b,~i,~c,f]*F[c,i,~h]*J[a,~e,g,~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~c,b]*F[~f,d,e]*A[a]*A[c]*B[~e,~d]+F[d,~c,b]*(-1)*F[~d,f,e]*A[a]*B[~e,~f]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*H[d,f,a,b]*F[~e,~c,~f]*B[~d,c]+B[~d,f]*F[~c,~f,~e]*H[d,e,a,b]*A[c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*B[~g,~e]*A[c]*B[b,e]*H[a,~c,~f,f]+(-1)*H[a,~e,~c,c]*A[f]*B[b,g]*B[~f,~g]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((7)*H[e,g,b,f]*B[~i,~e]*J[~h,~f,d,~g,h]*B[i,a]*A[~d]+A[~g]*(-1)*H[e,i,b,h]*(7)*B[~d,~e]*J[~f,~h,g,~i,f]*B[d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[~g,b,f,~c]*H[e,c,d,g]*F[~e,~f,a]*(57)*A[~d]+H[~f,b,g,~d]*H[c,d,e,f]*A[~e]*F[~c,~g,a]*(57)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*J[b,~h,~g,~f,d]*B[i,~c]*F[h,e,f]*J[~i,~e,g,~d,c]+A[a]*(-1)*J[~e,~i,g,~d,f]*B[e,~f]*J[b,~c,~g,~h,d]*F[c,i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,b]*B[g,f]*H[e,c,~e,a]*A[~g]*A[~c]+A[~f]*(-1)*B[~e,b]*A[~c]*H[g,f,~g,a]*B[c,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,g,~e,~i,~f]*J[~d,h,a,c,e]*A[~c]*F[b,i,~h]*(39)*(-1)*B[~g,f]+B[~e,g]*J[c,e,~f,~i,~g]*(39)*A[~h]*F[b,i,~d]*J[~c,d,a,h,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[c,~c,~i,b,d]*F[~e,a,~g]*A[~f]*A[~d]*H[e,i,g,f]+J[e,~e,~i,b,c]*A[~d]*H[g,i,f,d]*A[~c]*(-1)*F[~g,a,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,j,i,b,~i]*(89)*B[a,~h]*H[~c,d,~d,c]*A[~j]+H[~j,h,~h,j]*B[a,~d]*(89)*A[~i]*J[d,i,c,b,~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,g,~f,c,~c]*A[f]*B[h,d]*A[~g]*F[b,~h,~d]+J[a,f,~c,g,~g]*A[~f]*(-1)*A[c]*B[h,d]*F[b,~h,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,~j,~e,~g]*J[~k,h,~f,j,k]*(5)*F[b,i,~d]*J[g,~h,d,f,~i]*A[e]+(-1)*F[b,k,~f]*A[e]*J[i,~g,f,h,~k]*(5)*H[a,~j,~e,~i]*J[~d,g,~h,j,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,a,g,~e,~h]*J[~l,k,l,~k,h]*J[j,m,b,~j,e]*(76)*A[~m]+J[~j,k,j,~k,h]*(76)*J[~m,a,m,~l,~h]*(-1)*J[g,e,b,~g,l]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*F[e,~d,g]*H[b,c,d,f]*B[a,~e]*B[~c,~g]+H[b,g,c,e]*B[~g,~f]*B[a,~d]*A[~e]*(-1)*F[d,~c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[~d,b,e,c,d]*A[g]*A[~g]*(33)*F[~e,~c,a]+A[d]*(33)*J[~g,b,c,e,g]*F[~c,~e,a]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*J[k,~k,a,~g,i]*(56)*A[j]*B[d,~d]*(-1)*J[b,~j,~i,c,~c]+(56)*A[g]*B[d,~d]*J[c,~c,a,~j,k]*A[j]*J[b,~g,~k,i,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~i,~f,c]*B[i,h]*F[b,~j,j]*J[~c,k,~k,a,~h]+B[h,j]*(-1)*H[k,~h,~k,c]*J[~c,f,~f,a,~j]*F[b,~i,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,~i,a,~j,e]*J[~c,~e,b,f,g]*B[~g,k]*A[d]*(83)*J[~d,~k,c,j,~f]+A[g]*(-1)*J[e,~e,a,~f,k]*B[~i,c]*(83)*J[~j,~k,b,d,i]*J[~g,~c,j,f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,f]*(35)*A[c]*H[b,a,~g,e]*B[~d,~f]*F[g,~c,~e]*(-1)+A[f]*B[~c,~g]*(35)*H[b,a,~e,d]*B[c,g]*F[e,~f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,d,~f,b,i]*B[e,f]*J[~i,~c,~h,a,c]*(93)*(-1)*A[~e]*A[~d]+(93)*J[~i,~e,~f,a,e]*J[f,d,~h,b,i]*A[~c]*B[c,h]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,~c,~f,j,i]*F[b,h,~j]*H[a,~h,~i,f]*H[c,e,~e,~g]+H[j,h,~h,~e]*J[e,~j,~g,f,i]*F[b,c,~f]*H[a,~c,~i,g]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*A[~d]*A[b]*B[~g,d]*J[c,g,~c,~f,a]+A[~d]*A[c]*(-1)*B[~f,d]*J[g,f,~g,~c,a]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,g,i,k,f]*J[m,h,c,~c,l]*J[~m,~f,~g,~i,a]*J[~k,~h,d,~l,~d]+(-1)*J[b,l,m,i,k]*J[f,c,h,~h,d]*J[~i,~c,g,~d,~g]*J[~f,~k,~l,~m,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,~d,~c,d,b]*B[f,a]*F[~e,~h,~f]*B[e,c]+B[h,a]*J[d,~c,~e,c,b]*F[~f,~d,~h]*B[f,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,f,b,h]*H[~c,~g,~d,e]*A[a]*B[g,d]*F[~f,~e,~h]+H[~f,~c,~e,h]*B[c,e]*F[~d,~h,~g]*(-1)*A[a]*H[f,d,b,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*(8)*J[g,~e,a,b,h]*J[f,c,e,~g,~c]*A[~f]+J[c,f,g,~h,~f]*J[h,~g,a,b,e]*A[~e]*A[~c]*(-1)*(8)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*B[g,b]*(95)*J[i,~i,~h,h,j]*H[~g,f,~j,~f]+A[a]*H[~f,g,~h,~g]*(-1)*B[f,b]*J[j,~j,~i,i,h]*(95)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,h,e]*J[b,a,~h,~g,~f]*(-1)*H[~j,j,c,~k]*H[f,k,g,~c]*(46)+(46)*H[k,h,e,~j]*F[~f,c,f]*H[~g,g,j,~h]*J[b,a,~c,~e,~k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,d,g,e,h]*H[~c,~h,a,~d]*F[b,~g,~e]*B[f,c]+H[~h,~e,a,~f]*B[c,h]*J[~c,f,g,d,e]*(-1)*F[b,~g,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*B[~e,~c]*J[~d,g,e,c,b]*H[~f,~g,d,a]+B[~f,~d]*J[~e,g,f,d,b]*A[c]*(-1)*H[~c,~g,e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*B[f,~g]*H[c,~e,~d,a]*J[b,g,~f,d,~c]+J[b,c,~d,e,~g]*(-1)*A[f]*B[d,~c]*H[g,~f,~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[j,~e,~d,b,~f]*J[i,a,e,~i,g]*A[~h]*F[~g,~j,h]*B[f,d]+J[g,a,d,~g,e]*J[i,~d,~j,b,~h]*F[~e,~i,f]*(-1)*A[~f]*B[h,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~i,f,j]*J[~j,e,g,~e,i]*A[~f]*J[b,a,~d,d,~g]+(-1)*F[~d,i,g]*A[~i]*J[~g,f,e,~f,d]*J[b,a,~j,j,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*H[~d,c,a,e]*(74)*J[d,f,~e,h,g]*F[b,~g,~h]*A[~f]+H[~c,d,a,f]*J[c,h,~f,g,e]*F[b,~e,~g]*(-1)*A[~d]*A[~h]*(74)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[j,g,~e]*F[~c,c,h]*(28)*A[~j]*J[d,~h,~g,a,~f]*H[b,~d,f,e]+(28)*H[b,~e,g,h]*F[~c,c,f]*J[e,~f,~d,a,~g]*(-1)*F[j,d,~h]*A[~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,~i,j,f,~h]*H[~j,~e,e,g]*B[~g,b]*A[a]*B[h,i]+B[i,j]*A[a]*H[~h,~f,f,e]*(-1)*B[~e,b]*J[~g,~j,h,g,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,j,a,~j,~g]*H[b,~h,g,c]*(79)*(-1)*F[~c,e,h]*B[i,~i]+H[b,~e,g,h]*J[~c,j,a,~j,~g]*B[i,~i]*F[~h,c,e]*(79)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[i,a]*A[~e]*(85)*J[~i,~d,~f,f,d]*F[h,e,b]*A[~h]+(-1)*J[~i,~e,~h,h,e]*(85)*A[~f]*F[d,f,b]*B[i,a]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,d,i]*H[~g,a,~i,c]*J[e,g,~f,f,~d]*B[~c,b]+F[~e,c,d]*H[~i,a,~d,f]*J[e,i,~g,g,~c]*B[~f,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,~g]*A[~c]*B[c,g]*F[~f,~e,a]*H[f,b,h,~h]+A[~h]*(-1)*B[c,~e]*H[f,b,g,~g]*F[~f,~c,a]*B[h,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*(79)*(-1)*A[d]*B[a,~c]*A[b]*A[c]+A[b]*A[~c]*A[d]*B[a,~d]*A[c]*(79)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,~f]*A[b]*B[f,~d]*F[a,~c,c]+B[f,~d]*(-1)*B[d,~f]*F[a,~c,c]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*F[~c,~d,b]*B[a,~g]*B[g,c]*B[f,~f]+(-1)*B[d,f]*F[~f,~c,b]*A[c]*B[g,~g]*B[a,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[~f]*F[~g,d,a]*(87)*J[g,b,~c,~d,e]*F[f,~e,c]+J[d,b,~c,~e,g]*(87)*F[f,~g,c]*F[~d,e,a]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*(-1)*H[~f,a,g,b]*(56)*B[~d,~e]*J[e,h,~g,f,~h]+J[d,f,~h,g,~f]*H[~g,a,h,b]*A[e]*B[~e,~d]*(56)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,e,c,h,i]*B[~k,k]*J[~c,~f,~e,f,~h]*H[b,a,~i,j]*(54)+B[~k,k]*H[b,a,~i,h]*(-1)*J[~h,e,j,f,i]*(54)*J[~j,~c,~e,c,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[g,i,f]*(47)*A[h]*J[~f,~c,~g,c,~e]*H[e,b,a,~h]*A[~i]+J[~e,~c,~g,c,~i]*A[~h]*A[f]*H[i,b,a,~f]*F[g,h,e]*(-1)*(47)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[h,i,~i]*F[d,c,~c]*J[a,~h,b,~e,~d]*A[e]+J[a,~e,b,~c,~d]*F[d,i,~i]*(-1)*A[c]*F[e,h,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,e]*H[c,~h,a,b]*A[~e]*H[g,~g,~c,f]*A[h]+(-1)*A[h]*H[c,~c,~f,g]*B[~g,e]*H[f,~h,a,b]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~h,g,h]*H[~g,a,~c,d]*B[f,b]*A[~f]*B[~d,c]+B[h,b]*B[~f,d]*(-1)*F[~c,g,c]*A[~h]*H[~g,a,~d,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*A[b]*B[d,c]*(82)*B[~c,~e]*H[a,f,e,~d]+A[b]*(-1)*B[c,f]*A[~d]*B[~f,~e]*(82)*H[a,d,e,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[~e]*J[~f,e,~d,g,c]*A[b]*H[~c,f,a,~g]+A[~c]*(-1)*J[~d,c,~e,f,g]*A[e]*A[b]*H[~g,d,a,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,e]*(-1)*F[a,~e,~d]*A[d]*(65)*A[~c]*A[c]+B[b,c]*F[a,~c,~d]*A[~e]*A[d]*(65)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*(20)*A[~d]*J[e,~g,c,~f,a]*J[d,g,b,~e,f]+(-1)*(20)*A[~e]*J[c,~d,f,~g,a]*J[e,d,b,~c,g]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*B[f,e]*H[a,~c,~h,b]*J[~e,g,~f,~g,h]*(71)+(-1)*J[~f,c,~g,~c,h]*H[a,~e,~h,b]*A[e]*B[g,f]*(71)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,f,d,g,~k]*H[~d,~e,~f,~j]*H[~i,i,~c,b]*H[a,k,~g,j]*A[c]+A[g]*J[i,k,j,e,~d]*H[a,d,~e,c]*H[~j,~i,~k,~c]*(-1)*H[~f,f,~g,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~h,~d,b]*A[e]*J[a,~i,~e,i,h]*B[g,~g]*(-1)*(27)*A[d]+(27)*A[e]*F[~h,~d,b]*B[g,~g]*A[d]*J[a,~i,~e,i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*(69)*F[~f,~e,~d]*J[e,~h,f,h,b]*B[d,~g]*(-1)*A[g]+A[a]*B[h,~g]*A[g]*(69)*F[~f,~e,~h]*J[e,~d,f,d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,i,~f]*J[f,d,c,a,~i]*(36)*H[~d,~e,~g,~c]*(-1)*F[g,h,e]*A[~h]+A[~f]*(36)*F[c,f,i]*J[e,g,h,a,~d]*H[~g,~i,~c,~h]*F[b,d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*B[~d,f]*B[a,~f]*F[~g,h,~h]*(33)*H[c,b,d,g]+B[~g,d]*F[~h,c,~c]*(33)*A[~f]*(-1)*H[f,b,g,h]*B[a,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((65)*F[~d,h,d]*B[~h,e]*A[~f]*J[~i,a,i,b,~e]*A[f]*(-1)+F[~i,f,i]*A[~d]*J[~h,a,h,b,~e]*(65)*B[~f,e]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,d]*F[a,~d,h]*J[~g,e,g,~h,~c]*B[c,~e]+F[a,~d,g]*(-1)*B[b,d]*J[~c,e,c,~g,~h]*B[h,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[l]*(2)*A[~d]*J[~f,~k,b,f,h]*J[e,~e,~j,a,j]*(-1)*H[k,d,~l,~h]+A[~e]*J[~l,~j,b,l,f]*(2)*J[k,~k,~h,a,h]*H[j,e,~d,~f]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*A[e]*B[a,b]*(-1)*H[~e,c,~c,f]*(33)+H[~c,f,~f,e]*A[c]*A[~e]*B[a,b]*(33)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[j,i,h]*J[g,~e,a,~c,b]*A[~h]*B[~i,~j]*J[~g,e,~f,c,f]+F[j,f,i]*A[~i]*(-1)*J[~g,c,~h,e,h]*B[~f,~j]*J[g,~c,a,~e,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,b]*H[i,~f,~e,~i]*(-1)*B[~d,h]*A[f]*J[g,d,a,~h,e]*(52)+B[~g,e]*A[f]*J[h,g,a,~e,i]*(52)*B[~h,b]*H[d,~f,~i,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,a,~d,e]*F[~e,c,d]*(-1)*A[f]*A[~c]*A[b]*(3)+A[~e]*H[~c,a,~d,f]*A[c]*A[b]*(3)*F[~f,e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*B[e,a]*J[h,~e,~c,d,~d]*H[i,c,b,~i]+J[h,~e,~c,i,~i]*B[e,a]*A[~h]*(-1)*H[d,c,b,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*H[~d,a,c,~c]*A[~f]*B[d,f]+(-1)*H[~c,a,f,~f]*B[c,d]*A[~d]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,~d]*A[e]*F[b,~f,~e]*B[a,f]+B[a,f]*(-1)*F[b,~f,~e]*A[e]*B[d,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,~f,d,~h]*J[g,a,b,j,c]*B[~j,~i]*H[~g,i,~d,f]*(14)*A[~c]+B[~d,~c]*H[i,~h,j,~i]*H[~g,c,~j,h]*J[g,a,b,d,f]*(14)*A[~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*A[c]*A[b]*J[~c,d,f,~d,a]+J[~f,c,d,~c,a]*A[~d]*A[f]*(-1)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[g,a,~i]*F[i,~h,~e]*H[~f,d,~d,h]*(32)*F[b,~g,e]*A[f]*(-1)+F[i,~f,~e]*A[g]*(32)*F[b,~h,e]*F[h,a,~i]*H[~g,d,~d,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,a,~e]*A[~c]*B[e,~d]*A[d]*A[b]+A[e]*B[d,~e]*F[c,a,~d]*(-1)*A[b]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,h,b,a]*H[e,~e,c,f]*A[g]*A[~h]*B[~g,~f]+H[g,~g,h,e]*A[~f]*A[c]*(-1)*H[~h,f,b,a]*B[~c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((16)*H[~j,h,d,b]*H[j,~f,~e,~h]*H[e,f,i,~d]*H[~i,a,g,~g]*(-1)+H[d,~f,~h,~e]*(16)*H[h,f,i,~g]*H[~d,e,g,b]*H[~i,a,j,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~f,~k,~c]*J[d,a,j,~e,~j]*A[~h]*A[c]*(-1)*(22)*J[~d,b,h,k,e]+(22)*H[h,~h,~k,~d]*A[~j]*J[f,a,c,~e,~c]*A[d]*J[~f,b,j,k,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,a,d]*A[~f]*F[~c,~e,~d]*(-1)*A[b]*B[e,c]*(53)+F[e,a,c]*B[d,f]*(53)*A[b]*A[~e]*F[~f,~d,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*H[h,e,f,~h]*A[~e]*H[~f,g,~c,b]*B[c,a]+A[~f]*H[g,f,h,~g]*(-1)*H[~h,c,~e,b]*B[e,a]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[~d]*A[c]*H[d,b,e,g]*F[~c,~f,~e]*(15)*F[a,~g,f]+F[~e,~g,~f]*A[~d]*F[a,~c,g]*H[d,b,f,c]*A[e]*(15)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[e]*A[b]*H[~e,a,~h,d]*(21)*J[~d,h,g,~g,~c]+A[b]*J[~e,d,c,~c,~h]*(21)*A[g]*H[~g,a,~d,e]*A[h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,b,~h,d,~e]*F[~d,i,~c]*(-1)*H[~g,~i,a,h]*A[g]*(71)*A[c]+F[~h,e,~d]*(71)*A[i]*J[g,b,~c,h,~g]*H[~i,~e,a,c]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~c,h,a]*H[~i,i,~f,c]*A[~h]*(-1)*(55)*F[b,~e,e]+A[~e]*F[b,~i,i]*(55)*H[~f,f,~c,h]*H[c,~h,e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,h]*J[j,~j,b,~d,~f]*F[~h,d,~e]*J[~i,g,a,f,e]*A[i]+F[~i,e,~h]*(-1)*A[d]*B[~f,i]*J[~d,f,a,g,h]*J[j,~j,b,~e,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,d,e]*B[a,~e]*B[f,~c]*F[b,~d,c]+B[a,~c]*F[b,~e,f]*(-1)*F[~d,e,c]*B[d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*F[d,~e,c]*A[~c]*B[b,a]*B[~d,e]*(2)+F[c,~d,e]*B[~c,d]*(2)*B[b,a]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((48)*A[~c]*A[d]*A[a]*B[e,b]*F[c,~d,~e]+A[a]*F[c,~e,~d]*(48)*A[~c]*A[e]*B[d,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,a]*F[~c,d,~e]*A[~d]*H[~g,g,c,b]+A[~g]*B[c,a]*(-1)*H[~d,d,e,b]*F[~e,g,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*(54)*H[e,~f,c,~e]*B[f,b]*A[~c]+B[c,b]*A[a]*H[f,~c,e,~f]*(54)*(-1)*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*A[c]*J[g,~g,b,~f,~d]*A[d]*(9)*H[~h,a,f,~c]+A[d]*A[g]*H[~g,a,f,~d]*(-1)*A[c]*J[h,~h,b,~f,~c]*(9)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,c,~c,g,j]*B[~g,a]*H[b,~e,~k,~j]*J[e,i,~f,~i,k]+H[b,~g,~i,~k]*J[g,f,~e,~f,i]*J[e,c,~c,j,k]*(-1)*B[~j,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*H[d,~d,e,~g]*(44)*B[~e,h]*J[b,~h,a,~c,g]+(-1)*B[~e,g]*A[c]*(44)*H[h,~h,e,~d]*J[b,~g,a,~c,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,~c,f,d]*A[b]*(56)*A[c]*A[~f]*A[a]*(-1)+(56)*A[f]*A[b]*H[~c,~f,d,c]*A[~d]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~c,~e]*(90)*A[~d]*H[e,~f,c,b]*B[d,a]+F[c,~f,~d]*B[e,a]*A[~e]*(-1)*H[d,~c,f,b]*(90)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,a,j,~j]*H[h,~e,~c,c]*A[~k]*(95)*F[~h,~d,g]*H[b,~g,k,d]+(-1)*(95)*F[~g,~j,e]*H[k,a,h,~h]*A[~d]*H[g,~k,~c,c]*H[b,~e,d,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*H[~f,c,~i,i]*J[g,~d,a,f,~e]*A[d]*F[e,~c,b]+F[i,~c,b]*A[~e]*J[e,~f,a,g,~i]*A[f]*H[~g,c,~d,d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,d,g,h,c]*H[~g,~e,b,~h]*F[~c,e,~d]*B[a,f]+B[a,h]*(-1)*J[~h,c,g,f,e]*H[~g,~d,b,~f]*F[~e,d,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,a]*J[c,~h,g,b,i]*J[~g,f,j,~j,~i]*H[h,~f,~c,d]+(-1)*H[h,~f,~c,d]*J[~i,f,j,~j,~g]*J[c,~h,i,b,g]*B[~d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,d,b]*F[g,~c,c]*A[~e]*F[~f,i,a]*(21)*H[~i,f,~d,e]*(-1)+A[~f]*H[~e,d,~i,f]*(21)*F[g,~c,c]*F[~d,e,a]*F[~g,i,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,a,k,j,~c]*(-1)*H[~g,g,~l,l]*(14)*J[c,~m,e,b,m]*A[~k]*A[~e]+H[~e,e,~m,m]*J[k,~l,c,b,l]*J[~j,a,g,j,~k]*A[~c]*(14)*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,f,~h,~c]*H[~e,g,~g,d]*F[~j,c,b]*J[h,a,j,~d,~f]+H[d,h,~j,~c]*F[~g,c,b]*(-1)*J[j,a,g,~f,~h]*H[~d,e,~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*F[e,~e,h]*B[~g,~h]*J[i,~c,b,g,c]*B[a,~i]*(83)+F[i,~i,h]*(83)*B[a,~c]*J[c,~g,b,e,g]*B[~e,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,b,c,f,g]*(-1)*H[e,h,~d,a]*A[d]*(77)*H[~g,~f,~c,~h]+(77)*H[f,g,~d,a]*H[~e,~h,~c,~g]*J[~f,b,c,h,e]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*B[c,~g]*J[~e,e,a,~c,d]*A[b]*A[~d]+A[~c]*J[~e,e,a,~g,c]*B[g,~d]*A[b]*(-1)*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~h,h]*F[~e,e,~g]*F[f,a,b]*B[g,~f]+(-1)*F[f,a,b]*F[~g,g,~h]*B[~e,e]*B[h,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*J[d,e,g,~e,a]*A[~d]*F[~g,b,f]+F[~g,b,f]*A[~d]*A[~f]*(-1)*J[d,e,g,~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~f,g]*F[h,~d,e]*F[a,d,~g]*A[~h]*B[b,~e]+F[e,~e,h]*(-1)*F[a,g,~h]*A[~f]*B[b,~d]*F[f,~g,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,d,~h]*B[~j,~i]*A[b]*H[~g,f,~f,a]*(97)*H[g,j,i,h]+(97)*B[~j,~f]*H[~i,g,~g,a]*H[i,j,f,d]*A[b]*F[~h,h,~d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,~e,c,d,g]*(37)*B[~i,b]*A[j]*J[~k,~d,~f,~c,i]*J[k,~g,f,a,~j]+A[d]*J[g,~j,i,a,~d]*(37)*J[e,~e,k,c,j]*B[~f,b]*J[~g,~c,~i,~k,f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,f]*F[~e,b,d]*J[~i,~f,a,~g,e]*H[~c,c,g,i]+B[~g,c]*H[~d,d,f,e]*J[~e,~c,a,~f,i]*(-1)*F[~i,b,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*A[~c]*(13)*A[b]*A[c]+A[c]*(13)*A[a]*A[~c]*A[b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,g,~g,i]*F[~h,~i,h]*A[e]*F[b,f,a]*A[~e]+A[f]*F[b,e,a]*F[~g,~i,g]*(-1)*A[~f]*H[~e,h,~h,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*F[g,~c,~g]*(29)*A[f]*H[e,a,b,~f]*A[c]+(-1)*A[g]*(29)*F[e,~f,~e]*A[f]*A[~c]*H[c,a,b,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,~f,~g,d,~e]*A[a]*H[e,g,c,~d]*A[f]*A[~c]+H[d,e,c,~g]*(-1)*A[~c]*J[b,~f,~e,g,~d]*A[a]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,~f,i,~c]*A[~g]*J[d,c,f,e,~i]*(85)*B[~e,b]*H[~d,g,a,~h]+J[f,h,g,d,~e]*A[~i]*B[~d,b]*(-1)*(85)*H[~f,i,a,~c]*H[c,~g,e,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[d]*B[~c,a]*B[b,c]+A[d]*(-1)*B[b,c]*A[~d]*B[~c,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,i,a]*B[e,j]*A[~d]*J[~h,~f,~j,f,c]*J[~i,b,h,~c,d]*(40)+A[~j]*B[i,f]*J[~e,~h,~f,h,c]*(40)*F[~i,d,a]*J[~d,b,e,~c,j]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,i,b]*F[c,h,e]*A[f]*B[~c,~e]*(58)*J[~h,d,a,~d,~i]+A[e]*(58)*J[~f,i,a,~i,~d]*B[~h,~c]*F[~e,d,b]*(-1)*F[h,f,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~f]*A[~g]*A[c]*J[~e,f,~c,a,e]*A[g]+B[b,~c]*A[~f]*A[e]*A[f]*(-1)*J[~g,c,~e,a,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~c,~e,f]*A[c]*H[e,d,~g,a]*F[g,b,~d]*A[~f]+F[g,b,~c]*A[e]*F[~e,~d,f]*A[~f]*H[d,c,~g,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,~i,e,~h,c]*B[~c,a]*H[~d,h,i,~e]*B[~g,g]*A[d]+A[d]*B[~e,e]*J[b,~h,g,~c,i]*(-1)*H[~d,c,h,~g]*B[~i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[i,j,~f,~g]*(-1)*J[~h,~j,k,~e,g]*J[b,~k,~c,~i,~d]*J[c,a,h,e,d]*A[f]*(90)+H[g,f,~e,~c]*J[b,~i,~d,~g,~h]*A[e]*(90)*J[~k,~f,i,~j,c]*J[d,a,k,j,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[~g,b,e,h,a]*F[~h,~e,c]*(55)*B[~f,f]*B[g,~c]+B[~e,e]*B[h,~f]*J[~h,b,g,c,a]*F[~c,~g,f]*(55)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*F[j,~j,b]*H[a,h,f,~f]*H[~h,i,~e,~i]+F[f,~f,b]*H[a,i,h,~h]*(-1)*A[e]*H[~i,j,~e,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~g,~f]*A[g]*J[~h,f,e,~e,h]*A[~i]*B[i,a]*(100)+F[b,~g,~f]*A[~i]*(100)*J[~h,f,e,~e,h]*(-1)*A[g]*B[i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,~h]*B[c,b]*H[a,f,d,e]*J[~f,~c,~e,h,~g]*A[~d]+J[~g,~d,~c,f,~h]*B[h,~f]*(-1)*A[~e]*H[a,g,e,c]*B[d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,~g]*J[c,a,g,~f,f]*B[~e,~c]*A[b]+A[b]*(-1)*B[e,~g]*J[f,a,g,~c,c]*B[~e,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,c,f,a,j]*B[~e,~j]*H[d,i,~i,~d]*F[e,~f,~c]+H[j,d,~d,~j]*J[b,f,c,a,e]*B[~i,~e]*F[i,~c,~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,d,c]*F[b,~c,~e]*A[~d]*A[a]*(55)+(-1)*F[e,d,c]*(55)*A[~d]*F[b,~c,~e]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,b,~l,l,~k]*H[d,~f,~d,~h]*(-1)*A[h]*(3)*J[k,~g,j,g,a]*A[~j]+J[k,b,~g,g,~j]*A[~d]*A[h]*J[j,~l,d,l,a]*H[f,~k,~f,~h]*(3)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,~e,~c,g,d]*A[a]*F[f,e,i]*A[~i]*H[~g,b,~f,c]*(81)+(-1)*A[~g]*H[~c,b,~d,i]*J[~e,~f,~i,c,e]*F[d,f,g]*(81)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,f,j,b]*F[g,~i,a]*H[~g,~f,e,~h]*(27)*J[~d,~j,h,i,d]+(-1)*H[~g,d,f,b]*F[h,~i,a]*J[~e,~f,j,i,e]*(27)*H[~h,~d,g,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[~d,c,g,j,k]*H[f,h,~j,d]*H[b,~g,~e,e]*A[~f]*(73)*H[~k,a,~h,~c]+H[c,k,~f,e]*H[~g,a,~k,~d]*A[~c]*H[b,~h,~j,j]*J[~e,d,h,f,g]*(73)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,c,g,~g]*B[~f,~h]*A[b]*A[~e]*(41)*H[a,h,f,~c]+H[a,h,c,~e]*(41)*H[f,e,g,~g]*B[~c,~h]*A[b]*A[~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*H[g,a,b,e]*A[~g]*F[~e,~c,h]*F[~f,c,f]*(23)+(-1)*(23)*A[~c]*H[g,a,b,f]*A[~g]*F[~f,~e,c]*F[~h,e,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,d,f,c,a]*A[b]*B[~c,~f]*B[e,~d]+B[~d,~c]*J[~f,e,c,d,a]*B[f,~e]*A[b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,f,~c,a,~e]*A[~f]*(-1)*A[~d]*J[b,~g,d,c,e]*(60)+(60)*J[g,e,~c,a,~d]*J[b,~g,f,c,d]*A[~f]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,~f,~e]*J[~d,b,e,~g,~j]*J[d,j,g,~i,h]*J[k,~k,f,~h,i]+J[~g,b,e,~i,~k]*(-1)*F[a,~j,~e]*J[g,k,i,~d,h]*J[f,~f,j,~h,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,f]*A[~f]*H[~c,e,b,~e]*A[a]+A[~c]*A[a]*(-1)*B[e,c]*H[~e,f,b,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*F[~f,~e,~g]*H[a,g,i,e]*B[~i,~d]*H[~c,b,c,d]+H[~c,b,c,d]*A[f]*H[a,g,e,i]*F[~f,~i,~g]*(-1)*B[~e,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*B[~h,g]*J[f,~g,e,~e,~f]*A[a]*A[h]+J[e,~f,h,~h,~e]*B[~g,f]*A[b]*A[g]*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,g]*A[~f]*A[~c]*A[c]*J[a,h,b,f,~h]+A[~h]*B[~c,c]*J[a,g,b,h,~g]*(-1)*A[~f]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,d,~e,f,g]*H[a,c,~c,e]*(-1)*B[~g,~d]*B[~f,~i]*(96)*A[i]+B[~e,~c]*A[i]*J[b,c,~d,f,e]*H[a,g,~g,d]*B[~f,~i]*(96)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[h,c]*H[g,e,f,~g]*A[a]*F[~c,~h,~f]*(97)*B[b,~e]+B[b,~f]*(97)*A[a]*B[g,e]*(-1)*F[~e,~g,~c]*H[h,f,c,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~i,d,a,b]*B[h,e]*(-1)*F[c,i,~d]*J[~g,g,~c,~e,~h]*(26)+J[~d,d,~g,~h,~i]*F[g,e,~c]*(26)*H[~e,c,a,b]*B[i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,~c,~h,~f,~e]*(-1)*H[g,e,f,h]*A[~d]*A[b]*(46)*F[c,~g,a]+F[e,~g,a]*H[g,f,d,c]*A[b]*(46)*J[h,~e,~c,~d,~f]*A[~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~j,j,d,i]*B[a,g]*F[~k,~d,k]*J[b,~e,~i,~g,e]*(9)+B[a,d]*(9)*J[b,~k,~j,~d,k]*F[~e,~i,e]*H[~g,g,i,j]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,d,~e,b,e]*B[~d,a]*A[~c]*B[c,~g]+B[d,~c]*J[c,e,~g,b,g]*(-1)*A[~d]*B[~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~i,i]*H[j,c,~d,~c]*(31)*A[a]*B[~g,~f]*(-1)*J[b,d,f,g,~j]+B[~d,d]*(31)*A[a]*J[b,g,f,j,~i]*H[i,c,~g,~c]*B[~j,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,~c]*F[~d,f,a]*H[~f,~g,~h,b]*J[e,c,h,d,g]+J[h,f,d,e,c]*H[~g,~c,~d,b]*B[~h,~f]*F[~e,g,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,c,a,~f,d]*B[f,e]*A[~c]*(34)*A[~d]*A[~e]+B[e,f]*(-1)*A[~f]*(34)*J[b,d,a,~e,c]*A[~c]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((8)*J[~e,l,h,~l,e]*F[~j,a,i]*(-1)*B[b,~h]*J[~k,d,~i,j,k]*A[~d]+J[~k,h,~j,l,k]*A[~h]*B[b,~i]*(8)*F[~l,a,j]*J[~d,e,i,~e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,d,~d,k]*A[~k]*F[~e,e,~j]*F[c,~c,~i]*F[j,a,i]+F[d,~d,~c]*F[i,a,c]*F[~k,k,~i]*H[b,j,~j,e]*A[~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*F[d,e,~c]*F[~f,c,~e]*F[~d,a,b]*(69)+F[f,e,~d]*F[~f,a,b]*F[~c,d,~e]*(-1)*A[c]*(69)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*A[f]*(61)*A[g]*J[b,~d,~f,a,h]*H[~g,d,e,~e]*(-1)+J[b,~f,~g,a,h]*(61)*H[~d,f,e,~e]*A[g]*A[d]*A[~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,e,~e]*A[a]*A[c]*A[~c]*(24)*(-1)+F[b,c,~c]*A[~e]*A[a]*(24)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,b,d,f]*A[i]*F[~j,a,~f]*J[~c,h,~e,~d,~h]*F[~i,j,e]+F[~i,a,~e]*H[h,b,c,e]*F[~f,i,d]*J[~h,j,~d,~c,~j]*A[f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*J[b,~e,~d,~f,c]*A[~c]*A[a]*B[f,e]+B[c,d]*A[e]*A[~f]*J[b,~d,~e,~c,f]*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,m,f,~j]*J[~d,~l,l,a,j]*A[b]*A[d]*J[~m,k,~e,~k,e]+A[b]*(-1)*H[~f,m,f,~j]*A[k]*J[~k,~e,e,a,j]*J[~m,l,~d,~l,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,d,f]*A[b]*A[~g]*H[c,~f,a,g]*A[~c]+A[b]*H[g,~f,a,d]*(-1)*A[~g]*A[~d]*F[~c,c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,c]*H[b,d,~f,~c]*B[a,~d]*(36)*A[e]*A[f]+A[e]*(36)*H[b,c,~d,~f]*A[d]*(-1)*B[~e,f]*B[a,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*B[~d,~f]*F[a,d,b]*H[g,~e,f,~g]*(79)+A[e]*H[f,~e,d,~f]*F[a,g,b]*B[~g,~d]*(-1)*(79)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,~i]*H[b,i,~h,d]*F[f,e,a]*J[c,h,~d,~c,~f]+J[c,f,~h,~c,~i]*H[b,e,~f,h]*B[~d,~e]*(-1)*F[i,d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,e,c]*(88)*A[~g]*B[~e,b]*B[a,~c]*H[d,h,g,~h]+H[g,h,d,~h]*B[a,~e]*A[~d]*(-1)*(88)*F[~g,c,e]*B[~c,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*(-1)*J[d,~f,b,~c,e]*A[~e]*A[f]*(99)*B[a,~d]+J[f,~d,b,~c,e]*A[~e]*(99)*A[c]*B[a,~f]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,~h,b,~c,~d]*B[~e,e]*H[h,a,c,d]*A[g]+J[~e,~h,b,~g,~d]*A[e]*B[~c,c]*H[h,a,g,d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,~g,a]*H[b,g,d,~d]*A[c]*B[f,~c]+H[b,g,f,~f]*F[~c,~g,a]*(-1)*A[d]*B[c,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,~e,~c,a]*A[~f]*B[e,d]*H[f,b,c,g]*A[~g]*(31)+H[~d,~f,~g,a]*H[e,b,g,c]*(-1)*A[~e]*A[~c]*(31)*B[f,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,a,~j,g,k]*H[~c,c,j,~i]*J[i,~h,h,f,~k]*A[~g]*A[b]+A[b]*A[~k]*J[~i,a,~h,k,f]*H[~j,j,h,~g]*J[g,~c,c,i,~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~k,~f]*J[l,a,~i,f,i]*(33)*(-1)*H[e,j,~j,~l]*J[d,~e,k,~d,b]+B[~i,~f]*J[j,~e,i,~j,b]*J[k,a,~d,f,d]*(33)*H[e,l,~l,~k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,c,~f,b,i]*B[~g,g]*A[a]*H[~d,h,f,~i]*B[~c,d]+H[~g,i,c,~h]*A[a]*B[~d,g]*B[~f,f]*(-1)*J[~i,d,~c,b,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~j,b]*H[a,i,~d,j]*A[~h]*H[e,d,~e,h]*F[~g,g,~i]*(74)+(-1)*H[a,g,~i,h]*F[~d,d,~g]*H[e,i,~e,j]*A[~j]*B[~h,b]*(74)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,c,~f,h,i]*J[d,b,~e,~d,~h]*B[~c,~i]*B[f,e]+J[e,b,~h,~e,~f]*B[~d,~c]*(-1)*J[a,d,~i,f,c]*B[i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*(14)*A[j]*B[h,g]*J[~m,~h,a,m,~l]*J[~k,k,n,~n,~g]*J[b,~j,c,~c,l]+B[n,g]*J[~l,l,h,~h,~g]*(14)*J[~j,~n,a,j,~c]*A[k]*J[b,~k,m,~m,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,a]*B[f,g]*A[~e]*(92)*J[~f,~c,~g,c,b]*(-1)+B[f,a]*A[~f]*J[~e,~g,~c,g,b]*B[e,c]*(92)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,~d,f]*J[b,d,~f,~j,e]*J[~g,c,~i,a,i]*F[j,g,~c]+J[~i,j,~f,a,f]*F[~d,~g,e]*J[b,g,~e,~c,d]*F[c,i,~j]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,a,e]*F[~f,f,d]*F[h,~e,~c]*F[c,b,~h]+F[~e,e,c]*F[~c,a,f]*(-1)*F[h,b,~d]*F[d,~f,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*A[f]*J[~g,a,~d,~c,e]*F[b,g,d]*B[c,~f]+J[~e,a,~c,~f,g]*A[~g]*B[f,~d]*A[d]*F[b,e,c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*B[~e,a]*(93)*J[~g,i,d,g,~d]*(-1)*F[~h,e,b]*A[~i]+A[~h]*J[~g,h,i,g,~i]*(93)*B[~d,a]*F[~e,d,b]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[m,l,g,e]*J[~f,c,~c,~h,~g]*A[a]*J[i,~m,f,~i,d]*J[~l,~e,h,b,~d]+H[f,g,l,m]*J[~h,e,~e,~d,~l]*A[a]*(-1)*J[~g,~m,d,b,~i]*J[c,~f,h,~c,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*(-1)*F[~e,d,f]*H[~g,e,~d,g]*(93)*B[~f,a]+B[~d,a]*(93)*A[b]*F[~g,f,d]*H[~e,g,~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((80)*A[g]*H[b,e,~e,~g]*(-1)*F[a,d,~c]*A[~h]*F[h,c,~d]+A[~h]*H[b,d,~d,~e]*(80)*F[a,g,~c]*F[h,c,~g]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,~d]*A[b]*B[g,~c]*A[d]*H[~f,a,f,c]*(82)*(-1)+A[b]*B[g,~d]*A[f]*(82)*B[~g,~f]*H[~c,a,c,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,~f,~i,~k,b]*(-1)*J[~d,~h,~j,~g,h]*B[g,a]*H[d,k,f,j]*(70)+B[i,a]*H[g,h,f,d]*J[k,~f,~k,~h,b]*J[~g,~j,~d,~i,j]*(70)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((45)*A[c]*(-1)*F[~c,e,~d]*B[f,b]*H[~f,a,d,~e]+H[~e,a,d,~f]*F[~c,f,~d]*A[c]*B[e,b]*(45)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,a,~f,~e,f]*A[b]*A[c]*A[e]+(-1)*A[b]*A[e]*J[~e,a,~f,~c,f]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,c,~d,~h]*B[b,e]*(70)*A[h]*H[~c,f,d,~f]*A[~e]+B[b,c]*(70)*H[~d,h,e,~h]*(-1)*A[~c]*H[a,d,~e,~f]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((65)*A[h]*F[f,g,~e]*F[~c,~f,~d]*H[d,c,b,e]*F[~g,~h,a]+(-1)*H[g,f,b,h]*A[d]*(65)*F[~c,~d,a]*F[e,c,~h]*F[~f,~e,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,c,b,~h]*F[~i,~c,j]*F[a,~j,e]*H[~e,d,i,~d]+F[a,~i,h]*H[e,d,b,~e]*(-1)*F[~j,~d,i]*H[~h,c,j,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,~d,~e,c,a]*F[g,d,f]*A[~c]*F[~f,e,~g]+(-1)*F[e,c,g]*J[b,~c,~f,d,a]*F[~g,f,~e]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[j,i]*F[d,~g,~i]*J[~e,~j,~c,a,b]*J[~d,e,~h,h,c]*A[g]+A[d]*J[~j,~i,~c,a,b]*F[g,~d,~e]*J[~g,j,~h,h,c]*(-1)*B[i,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~i,~f,~c,~d,~g]*H[~h,h,d,b]*H[f,i,g,c]*A[a]+(-1)*A[a]*H[~g,g,c,b]*H[f,i,d,h]*J[~i,~f,~h,~c,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*F[~g,~d,f]*F[a,~f,d]*J[~h,b,~e,g,e]+F[a,~g,h]*(-1)*J[~e,b,~f,d,f]*F[~d,~h,g]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,b]*H[~f,a,~g,~i]*J[h,f,~j,~d,j]*J[d,i,~h,~c,g]+H[~h,a,~f,~c]*(-1)*J[i,c,~d,~j,f]*B[j,b]*J[d,h,~g,~i,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~g,~i,f]*F[g,~h,i]*A[c]*H[a,~d,h,e]*H[~e,~f,~c,d]+A[i]*H[b,~h,~f,e]*H[a,~g,c,d]*(-1)*F[h,~c,f]*H[~d,~e,~i,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,~c,c,h,k]*J[e,g,l,~l,f]*F[~e,~k,~h]*H[a,b,~f,~i]*A[i]*(62)+A[l]*H[a,b,~h,~l]*F[~e,~f,~i]*J[~c,~k,k,i,f]*(-1)*J[e,c,g,~g,h]*(62)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*A[f]*F[b,~d,~g]*(-1)*(73)*F[d,~f,c]*H[~c,g,a,~e]+F[b,~f,~g]*H[~d,g,a,~c]*F[f,~e,d]*A[c]*(73)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,~g,f,b,~e]*A[~f]*B[g,a]*J[i,k,~i,~j,~k]*A[j]+J[e,~g,k,b,~e]*A[i]*A[~k]*B[g,a]*(-1)*J[f,j,~f,~i,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[i]*J[~e,a,h,~d,d]*F[j,~i,b]*A[e]*H[~c,c,~h,~j]+(-1)*A[i]*F[e,~d,b]*A[d]*H[~h,h,~c,~e]*J[~i,a,c,~j,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,~c,g,f,d]*A[~g]*F[a,~d,e]*F[b,c,~f]+F[a,~d,e]*F[b,f,~g]*J[~e,~f,c,g,d]*(-1)*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~i,g,~c,~f,i]*A[a]*B[~g,~d]*B[b,f]*H[d,j,~j,c]+B[~f,~c]*(-1)*B[b,g]*H[c,d,~d,i]*J[~j,f,~i,~g,j]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,e,b,~c]*(24)*B[~f,a]*B[f,c]*B[d,~e]*(-1)+B[f,d]*B[c,~e]*B[~f,a]*H[~c,e,b,~d]*(24)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((21)*F[f,~g,~j]*(-1)*J[b,k,c,~k,j]*F[~l,a,l]*J[~c,~f,g,~h,h]+J[~g,~l,c,~k,k]*F[l,~c,~h]*(21)*J[b,f,g,~f,h]*F[~j,a,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*B[~f,g]*A[~d]*J[~c,~e,b,f,a]*F[e,~g,d]+F[g,~d,e]*J[~c,~g,b,f,a]*A[c]*A[~e]*(-1)*B[~f,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,c,d]*J[e,~i,~f,~c,f]*J[b,~e,g,a,i]*(61)*A[~d]+(61)*(-1)*J[c,~f,~e,~d,e]*J[b,~c,g,a,f]*A[~i]*F[~g,d,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,f,e,~f]*A[g]*(40)*H[a,~g,b,~c]*F[~e,h,c]+(-1)*H[a,~c,b,~f]*A[c]*H[~g,h,e,~h]*F[~e,g,f]*(40)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[~c]*A[~e]*J[e,d,a,b,c]*(-1)*(58)+A[~d]*A[~e]*J[d,c,a,b,e]*A[~c]*(58)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[k,g,~k,~c]*F[c,a,l]*(94)*(-1)*H[~j,~g,j,~h]*J[e,~l,b,~e,h]+H[~l,~c,l,~e]*(94)*F[j,a,g]*H[h,c,~h,~j]*J[k,~g,b,~k,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((83)*B[b,~c]*A[e]*F[~d,a,~e]*B[c,d]+B[b,~d]*(83)*(-1)*B[d,e]*A[c]*F[~e,a,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,e,d,~i]*A[~f]*J[f,i,g,~c,~d]*J[a,j,~e,~j,b]*A[c]*(-1)*(69)+H[~i,d,c,~e]*J[f,e,i,~g,~c]*A[g]*A[~f]*(69)*J[a,j,~d,~j,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,~j,g,a]*(-1)*J[f,~e,j,~h,d]*J[~i,~g,h,i,b]*(32)*B[~d,e]+H[~g,~i,j,a]*J[~f,~j,e,f,b]*J[g,~d,i,~e,h]*(32)*B[~h,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,d,~e,h]*H[~c,~f,~d,c]*B[~h,i]*H[e,~i,a,b]+H[f,e,~h,c]*B[~c,d]*(-1)*H[~i,~f,~e,i]*H[h,~d,a,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*B[d,g]*J[e,b,a,~e,~c]*B[c,~d]+J[e,b,a,~e,~c]*B[c,~g]*B[g,d]*(-1)*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,f,~h,i]*A[d]*H[~c,~g,~d,k]*H[~f,~i,h,c]*J[b,~e,a,e,~k]*(7)+(7)*A[h]*(-1)*J[b,~g,a,g,~e]*H[~c,~i,d,f]*H[k,c,~d,i]*H[~f,~k,~h,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*H[~c,d,a,~f]*J[~g,b,~h,c,~e]*B[~d,e]*B[f,g]+(-1)*A[d]*J[~g,b,~d,h,~f]*B[~c,f]*B[e,g]*H[~h,c,a,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,b,~f]*(27)*A[~d]*B[f,a]*(-1)*B[~c,c]+B[~d,d]*A[~c]*F[c,b,~f]*(27)*B[f,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*A[e]*H[~e,d,b,f]*H[a,~f,~d,c]*(66)*(-1)+(66)*A[e]*H[a,~d,~f,c]*A[~c]*H[~e,f,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,h]*J[c,f,~c,~h,g]*A[~g]*A[a]*F[~f,~d,b]+(-1)*B[c,d]*J[g,h,~g,~d,f]*A[a]*A[~f]*F[~h,~c,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,f,h,e]*J[c,~c,a,~f,~h]*A[b]*(27)*B[~e,~d]*(-1)+H[e,c,d,h]*(27)*A[b]*J[f,~f,a,~c,~d]*B[~h,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((49)*H[~h,i,j,~i]*H[~c,c,h,~f]*B[~j,g]*H[~g,f,a,b]+H[~j,h,a,b]*(49)*H[~g,g,c,~h]*H[~c,f,i,~f]*(-1)*B[~i,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((20)*H[h,~d,~h,f]*B[i,d]*H[~f,g,~c,~i]*A[~g]*F[c,a,b]+(-1)*A[~c]*H[~i,c,~d,~g]*H[h,~f,~h,i]*F[d,a,b]*B[g,f]*(20)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,g,~g]*H[~d,h,e,d]*B[~e,a]*A[~h]*(-1)*(26)+F[b,g,~g]*A[~h]*(26)*B[~e,a]*H[~d,h,e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,h,c,b]*F[f,~g,~d]*(79)*(-1)*A[g]*H[d,~c,a,~f]+(79)*H[~f,f,c,b]*A[g]*H[d,~c,a,~h]*F[h,~g,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~h,~g]*J[f,~f,e,g,a]*A[c]*F[~e,h,~c]*A[b]*(72)*(-1)+F[~h,c,~e]*A[b]*J[g,~g,h,f,a]*B[~c,~f]*(72)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,e]*A[~e]*A[d]*J[c,f,~g,~d,a]*F[b,g,~c]+B[~g,d]*(-1)*F[b,f,~e]*A[~d]*J[e,g,~f,~c,a]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,d,~d,c,~g]*A[g]*A[~e]*F[e,~c,b]+(-1)*A[~c]*J[a,g,~g,d,~e]*A[e]*F[c,~d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((41)*H[~i,h,b,~e]*A[a]*F[i,d,~d]*F[g,~g,~h]*(-1)*A[e]+(41)*A[i]*H[~h,e,b,~i]*A[a]*F[g,~g,~e]*F[h,d,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,~c,a,~j]*(26)*J[~f,i,j,d,~i]*A[b]*A[f]*F[c,h,~h]+(-1)*A[b]*A[f]*H[~j,~h,a,~c]*J[~f,i,c,j,~i]*F[h,d,~d]*(26)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((31)*(-1)*B[a,~c]*A[c]*A[d]*B[~d,b]+(31)*B[~d,b]*A[c]*A[d]*B[a,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,g,c,f]*(51)*H[b,h,~d,a]*F[~e,~g,~f]*F[d,e,~c]+H[b,d,~h,a]*F[h,f,~g]*(51)*H[~d,c,g,e]*F[~f,~c,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,~d]*A[d]*A[a]*A[~c]*A[b]+A[~c]*A[b]*A[d]*B[c,~d]*A[a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,~e,j]*F[g,~j,i]*J[b,~g,~i,d,e]*A[c]*(39)*H[~c,a,~f,f]+F[d,~j,c]*H[~g,a,~f,f]*(39)*F[~e,~i,j]*(-1)*J[b,~d,~c,e,i]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,~g,k,~k]*A[j]*J[~l,~m,l,m,a]*J[~n,b,~d,n,c]*(35)*F[~c,~j,g]+A[n]*(35)*J[~m,b,~c,m,k]*F[~k,~n,l]*H[c,~l,d,~d]*(-1)*J[~g,~j,g,j,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[i,g]*B[~e,b]*J[e,h,~c,~d,c]*A[~i]*H[~h,a,d,~g]+H[~c,a,i,~d]*J[h,c,~e,~i,e]*(-1)*B[~h,b]*B[g,d]*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((6)*A[j]*J[~i,a,~h,~f,f]*F[e,~e,~g]*J[~j,i,b,g,h]+(-1)*(6)*F[i,~i,~e]*J[~g,a,~f,~j,j]*J[~h,g,b,e,f]*A[h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,~i,i,d]*H[h,~h,~d,~f]*A[c]*A[b]*B[f,a]+H[h,~h,~i,~d]*(-1)*H[~f,~c,c,i]*A[f]*B[d,a]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,a]*F[d,c,~g]*(84)*J[f,g,~c,~d,~h]*F[b,~f,h]*(-1)*A[~e]+F[b,~f,h]*J[f,c,~e,~d,~h]*(84)*A[~g]*F[d,e,~c]*B[g,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,a,i]*B[~e,f]*(93)*J[c,~c,j,~j,e]*(-1)*F[g,~f,b]*A[~i]+A[~j]*F[e,~g,b]*J[f,~f,i,~i,c]*(93)*F[~e,a,j]*B[~c,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,~g,a,b,~d]*A[~f]*(-1)*B[g,e]*J[~c,d,i,f,c]*A[~i]*(46)+A[~g]*A[~c]*J[~e,~f,a,b,~d]*B[f,e]*(46)*J[~i,d,c,g,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*H[~d,~f,a,g]*H[~g,b,~c,e]*H[~j,f,j,~e]*F[k,~k,c]+(-1)*A[d]*H[~d,~k,a,f]*F[e,~e,g]*H[~c,k,c,~j]*H[~f,b,~g,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,~d]*H[h,j,k,~j]*J[b,~g,a,~k,~i]*H[i,~f,d,f]*A[~h]+H[j,d,k,~d]*J[b,~f,a,~k,~h]*B[f,~g]*(-1)*A[~j]*H[h,~i,g,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*F[b,~f,~g]*F[~e,~h,i]*H[h,~d,c,g]*J[e,f,d,~i,~c]*(58)+(-1)*F[~e,~h,f]*(58)*A[a]*H[h,~i,d,c]*F[b,~g,~c]*J[e,g,i,~f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((44)*B[b,g]*H[~g,c,~f,~c]*F[h,~h,f]*A[a]+(44)*H[~g,c,~h,~c]*B[b,g]*A[a]*F[f,~f,h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,~c,~h,~e,g]*F[~i,~d,e]*J[b,~g,i,c,~f]*F[f,d,h]+J[a,~i,~e,~g,c]*F[h,f,e]*(-1)*F[~d,~f,g]*J[b,~c,d,i,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,d,~h,c]*B[e,~j]*J[~d,~i,h,b,i]*F[a,j,~e]+J[~c,~e,d,b,e]*F[a,i,~j]*B[j,~i]*(-1)*H[~h,c,~d,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,~g,~f]*A[~e]*F[~c,g,e]*A[~d]*H[b,a,f,c]+A[~g]*H[b,a,c,f]*A[~e]*F[~f,d,g]*(-1)*F[e,~d,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*H[f,a,e,~g]*B[~f,d]*H[g,~c,~d,b]*A[c]+A[~g]*B[~c,f]*A[e]*H[d,~e,~f,b]*(-1)*H[c,a,g,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,~c,g,~e]*F[a,b,f]*(25)*B[~g,c]*A[~f]*(-1)+F[a,b,c]*B[~e,f]*(25)*H[g,~f,e,~g]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,a,b,g]*B[d,c]*J[~c,~g,f,~d,~e]*A[~f]+H[g,a,b,f]*B[d,e]*(-1)*A[~c]*J[~e,~f,c,~d,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*F[g,~d,~c]*J[~h,j,a,d,i]*H[~e,e,c,~i]*F[~g,~j,h]+F[~c,~d,j]*(-1)*H[~g,g,h,~e]*A[b]*J[~j,d,a,i,e]*F[c,~i,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,d]*B[b,~c]*F[~f,a,c]*F[f,~d,e]+(-1)*F[~c,a,d]*B[b,~d]*F[c,~e,f]*B[~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[j,i]*J[~e,a,~g,~i,g]*J[e,~h,d,~j,~f]*A[b]*F[h,f,~d]+(-1)*J[~f,a,~e,~d,e]*J[f,~h,i,~j,~g]*F[h,g,~i]*A[b]*B[j,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,~g,h,~d]*A[b]*F[a,g,~e]*(24)*F[f,e,~h]*A[~f]+A[b]*(-1)*(24)*H[f,~e,g,~f]*A[~h]*F[h,d,~g]*F[a,e,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((92)*A[~g]*B[~d,b]*F[g,d,e]*A[a]*F[~e,f,~f]+B[~e,b]*F[~f,d,~d]*(-1)*F[g,e,f]*(92)*A[~g]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[a]*B[~e,d]*A[~c]*F[~d,c,e]+(-1)*A[b]*A[~d]*A[a]*B[~e,c]*F[~c,d,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~k,~l]*J[a,c,g,j,~j]*J[e,~e,m,l,~m]*A[~d]*J[k,~g,~c,d,b]+J[j,~k,~l,g,b]*J[c,~c,m,e,~m]*B[~j,~e]*A[~g]*J[a,l,k,d,~d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~f]*A[~h]*(62)*B[~c,c]*J[h,g,f,b,~g]*(-1)+B[a,~f]*(62)*J[g,h,f,b,~h]*A[~g]*B[~c,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,g,f,b]*J[~c,a,d,~e,~f]*A[~g]*B[c,~d]+(-1)*H[f,d,c,b]*J[~e,a,g,~f,~c]*B[e,~g]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,~d,c,~f,j]*J[h,a,k,~k,~j]*J[~i,~c,d,f,~g]*F[b,~h,i]+J[g,a,k,~k,~h]*(-1)*F[b,~g,d]*J[~d,~i,f,j,~c]*J[c,~f,i,~j,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((41)*J[~k,i,h,~d,~h]*A[b]*J[~i,d,~j,a,j]*(-1)*F[g,~g,k]+J[~k,i,j,~d,~j]*J[~i,d,~g,a,g]*(41)*A[b]*F[h,~h,k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,h,e,~f,b]*B[a,~h]*F[~d,~c,c]*B[~e,f]+(-1)*J[c,f,d,~h,b]*B[a,~f]*B[~d,h]*F[~c,~e,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((70)*B[~h,g]*(-1)*A[b]*H[~f,f,~e,e]*B[a,~g]*A[h]+B[a,~h]*H[~e,e,~f,f]*A[b]*A[g]*B[~g,h]*(70)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,f,~c,a]*A[e]*(58)*F[~e,~f,c]*A[d]*A[b]*(-1)+A[c]*(58)*H[~c,f,~e,a]*A[b]*F[~d,~f,e]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*J[i,e,c,~h,g]*H[j,d,~i,b]*J[h,a,~j,~c,f]*F[~e,~d,~f]+J[g,a,~i,~j,e]*H[i,h,~c,b]*J[c,f,j,~g,d]*A[~d]*(-1)*F[~f,~h,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*A[h]*J[~i,~c,~d,b,i]*J[a,e,d,~f,~h]*B[f,c]+A[h]*B[i,d]*J[a,c,e,~i,~h]*J[~f,~d,~e,b,f]*A[~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,f]*(68)*F[~g,i,a]*H[~h,~f,h,~i]*F[d,~d,b]*(-1)+B[g,i]*F[h,~h,b]*F[~g,d,a]*(68)*H[~f,~i,f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,a,g,c]*(33)*(-1)*H[d,~g,~d,~c]*A[e]*A[~e]+H[e,~g,~e,~d]*A[c]*H[b,a,g,d]*(33)*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*B[~f,h]*H[~e,a,~c,c]*F[~i,i,b]*B[~h,f]*(78)*A[e]+H[~c,a,~i,i]*A[c]*F[~h,h,b]*(78)*B[~f,e]*B[~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*H[~j,h,d,e]*J[a,j,~g,~f,f]*A[~d]*J[b,~h,g,~c,~e]+J[b,~f,d,~j,~e]*J[a,c,~d,~g,g]*(-1)*A[j]*H[~c,f,h,e]*A[~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[b]*H[a,d,f,~f]*F[h,e,~c]*F[~e,~h,~d]+A[b]*A[e]*F[~f,~h,~d]*(-1)*F[h,f,~e]*H[a,d,c,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~h,h,a]*B[~e,b]*A[~g]*H[e,c,g,~c]+B[~h,b]*F[~c,c,a]*H[h,e,g,~e]*(-1)*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*(7)*J[~e,~f,~h,d,~i]*F[~c,~g,e]*F[g,i,h]*H[c,f,a,~d]+(-1)*H[i,g,a,~d]*A[b]*J[~f,~g,~e,d,~c]*F[~i,~h,f]*(7)*F[h,c,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[j,~j,k]*F[h,~c,c]*A[i]*B[~i,~k]*J[b,a,d,~h,~d]*(30)+J[b,a,h,~d,~h]*F[j,~j,c]*B[~i,~c]*A[i]*(30)*F[d,~k,k]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,e]*H[b,~f,d,~e]*B[c,a]*B[f,~c]+B[~c,d]*B[f,~e]*(-1)*B[e,a]*H[b,~f,c,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[h]*A[~e]*J[e,~g,g,f,~d]*H[~h,b,a,~f]+(-1)*A[~e]*A[d]*A[h]*H[~h,b,a,~f]*J[e,~g,g,f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,a,g,c]*B[~c,b]*F[d,~f,f]*(60)*A[~g]+H[~d,a,f,g]*A[~f]*(-1)*F[d,~c,c]*B[~g,b]*(60)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,c]*B[a,b]*(-1)*F[~e,~c,d]*(64)*F[~f,e,~d]+(64)*F[~c,d,~e]*B[a,b]*B[c,f]*F[~d,~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,~c,~h]*J[d,a,g,b,~f]*F[~g,f,~d]*A[h]+F[~f,h,~d]*J[d,a,f,b,~h]*(-1)*F[c,~c,~g]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[h,~g,~h]*A[j]*H[i,~j,~i,a]*A[g]*F[~f,f,b]+H[j,~g,~j,a]*F[~f,f,b]*A[g]*F[h,~i,~h]*A[i]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,b,~e,i,j]*F[h,~f,e]*J[~j,a,c,~c,g]*A[~i]*(36)*B[~g,f]+B[~g,h]*J[~i,b,~c,f,j]*(36)*F[i,~h,c]*(-1)*A[~f]*J[~j,a,e,~e,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~i,g,~e,~d,d]*A[c]*B[h,e]*A[~h]*J[a,~g,~c,i,b]*(19)+A[e]*J[~i,g,~d,~c,c]*(-1)*B[h,d]*A[~h]*J[a,~g,~e,i,b]*(19)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((27)*J[b,g,i,f,~c]*A[c]*H[~g,~d,e,a]*J[~f,d,~i,h,~e]*A[~h]+(-1)*J[~d,f,~i,g,~h]*A[e]*(27)*A[~g]*H[~c,~f,h,a]*J[b,c,i,d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*A[~g]*B[b,~f]*F[~d,e,d]*F[f,a,~e]+A[~g]*F[~e,d,e]*(-1)*B[b,~f]*F[f,a,~d]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[k,h,a]*J[~f,~h,b,~k,f]*(64)*J[i,~j,~g,~i,g]*A[j]+J[~h,~i,b,~k,h]*F[k,i,a]*(64)*(-1)*J[g,~f,~j,~g,j]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*B[i,~h]*J[~d,d,f,g,~g]*A[~i]*F[h,b,a]+F[g,b,a]*A[~f]*A[~i]*(-1)*B[i,~g]*J[~h,h,f,d,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*H[~c,a,~f,g]*A[~d]*(100)*F[c,d,~e]*F[b,e,~g]+(-1)*A[~f]*F[c,f,~e]*(100)*A[d]*H[~c,a,~d,g]*F[b,e,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,c,~f,g,~e]*A[f]*B[~d,~g]*B[b,e]*B[~c,d]+J[a,f,~e,c,~g]*B[~f,d]*(-1)*A[e]*B[b,g]*B[~d,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[j,~g,~e]*J[b,~f,~h,~d,d]*H[f,~j,~i,a]*H[i,h,g,e]+F[h,~j,~i]*(-1)*H[f,g,j,i]*H[e,~h,~f,a]*J[b,~e,~g,~d,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,~c,a]*B[b,d]*(34)*A[e]*A[c]*A[~e]+A[d]*A[~c]*(-1)*B[b,e]*F[~e,~d,a]*A[c]*(34)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*H[e,b,f,~k]*F[j,h,~e]*J[~i,g,~j,~f,i]*J[~h,a,d,~g,k]+J[~e,a,d,~j,i]*J[~k,j,~f,~g,k]*F[f,e,~h]*(-1)*A[~d]*H[h,b,g,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,h,~e,~g,~h]*(-1)*B[b,~c]*(20)*B[d,g]*F[~d,e,c]+(20)*F[~d,h,g]*B[d,c]*B[b,~g]*J[a,e,~h,~c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,a,d,~i,~g]*A[b]*F[~k,c,k]*J[~j,~c,i,j,g]+J[~g,a,g,~k,~c]*J[~d,~i,k,d,c]*F[~j,i,j]*A[b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,~e,b,~g]*H[e,~c,f,d]*A[g]*A[~f]*B[c,~d]+(-1)*H[a,~c,b,~d]*A[~g]*A[d]*B[e,~f]*H[c,~e,g,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,a,~f,h]*A[f]*J[~g,~e,~h,~d,g]*A[d]*A[e]+A[d]*J[~g,~h,~f,~e,g]*(-1)*A[h]*A[e]*H[b,a,~d,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[c]*B[~c,g]*H[~d,f,b,~f]*(45)*B[~g,a]+(45)*B[~g,f]*(-1)*A[d]*H[~d,c,b,~c]*B[~f,a]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,~e]*A[e]*J[c,~c,g,a,b]*A[~f]*A[f]+J[c,~c,g,a,b]*A[e]*A[f]*A[~f]*(-1)*B[~g,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*H[g,~g,e,d]*A[~d]*A[f]*F[a,b,~e]+F[a,b,~f]*A[~g]*H[d,~d,f,g]*A[e]*(-1)*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*B[~d,~f]*B[b,h]*B[f,~g]*J[~e,e,d,a,g]+B[f,~e]*A[~d]*J[~g,g,h,a,e]*B[b,d]*B[~h,~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[b]*J[d,~e,~f,c,a]*(54)*F[f,~c,e]*(-1)+A[b]*F[c,~f,d]*A[~e]*(54)*J[e,~d,~c,f,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[~e]*A[~d]*F[f,~f,e]*(-1)*B[a,d]*(52)+A[~f]*A[~d]*(52)*A[b]*F[e,~e,f]*B[a,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*F[~g,~e,b]*A[f]*A[g]*H[~c,a,~f,c]+A[c]*(-1)*A[f]*A[e]*F[~f,~e,b]*H[~g,a,~c,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*A[a]*F[~c,~f,b]*B[d,c]*F[~d,~e,f]+A[a]*A[e]*B[f,c]*F[~f,~e,d]*F[~c,~d,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,c,~j,h,f]*F[~e,b,a]*F[~c,e,j]*J[~h,g,d,~d,~f]+J[~e,g,d,~d,~f]*F[~c,j,h]*(-1)*J[~g,c,~h,e,f]*F[~j,b,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,e,~f,f,a]*A[b]*A[d]*A[~e]+(-1)*J[~d,e,~f,f,a]*A[b]*A[~e]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~k,~g,k,~j,b]*A[c]*H[g,i,j,~i]*B[~c,a]*B[~f,f]+B[~i,i]*B[~k,a]*(-1)*J[~c,~g,c,~f,b]*A[k]*H[g,j,f,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*A[a]*A[~c]*B[b,~d]*J[~g,g,d,c,~f]+A[f]*(-1)*B[b,~c]*A[~d]*A[a]*J[~g,g,c,d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,c]*(30)*F[~d,~f,g]*J[~c,b,f,~e,d]*B[a,e]+(-1)*J[~f,b,c,~d,e]*(30)*B[~g,f]*B[a,d]*F[~e,~c,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,~f,~h,i]*B[~d,~i]*(34)*J[~e,b,d,e,a]*A[f]+H[h,~d,~h,i]*(34)*A[d]*(-1)*J[~e,b,f,e,a]*B[~f,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,b,~c,d]*J[h,~g,~d,f,a]*(-1)*(57)*F[~i,g,~f]*B[~h,i]+B[~d,f]*H[g,b,~g,c]*F[~f,i,~h]*(57)*J[d,~i,~c,h,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~e]*B[g,b]*J[d,~g,e,~c,~d]*A[c]+(-1)*B[a,~g]*A[c]*J[e,~d,g,~c,~e]*B[d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[k,j,~c,h,b]*(59)*J[~k,i,~h,~e,~i]*A[a]*A[e]*H[~j,~d,c,d]*(-1)+H[~j,~h,e,h]*(59)*A[a]*J[~k,c,~i,~d,~c]*J[k,j,~e,i,b]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~c,d,~d]*F[~f,h,g]*F[a,b,~h]*A[c]*B[~g,f]+B[~g,f]*A[c]*F[~f,d,g]*(-1)*F[~c,h,~h]*F[a,b,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*(-1)*A[~c]*F[a,g,c]*(57)*A[~g]*H[e,~e,b,~f]+A[~c]*F[a,g,c]*A[e]*(57)*A[~g]*H[f,~f,b,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,c,~e]*H[~f,~c,e,d]*B[f,b]*A[~d]+B[e,b]*H[~e,~c,d,f]*F[a,c,~d]*(-1)*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*B[~e,~d]*A[c]*A[~c]*F[a,b,d]+A[e]*B[~e,~c]*(-1)*A[d]*F[a,b,c]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,d,g]*(44)*A[a]*J[~g,b,~f,~h,h]*A[f]+F[~d,d,h]*A[a]*A[f]*J[~h,b,~f,~g,g]*(44)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~c,a,d]*A[c]*A[~e]*(11)*B[~d,b]*A[e]+A[e]*F[~e,a,c]*B[~c,b]*A[d]*A[~d]*(11)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*F[b,~e,e]*B[~h,~g]*H[c,~c,g,h]+H[g,~g,c,h]*F[b,~e,e]*B[~h,~c]*A[a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*A[~h]*H[c,b,d,~c]*H[~g,~d,g,h]+H[g,b,c,~g]*A[~h]*H[~d,~c,d,h]*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*B[c,~e]*F[~d,~c,f]*H[b,d,a,e]+(-1)*A[~f]*F[~c,~d,f]*B[d,~e]*H[b,c,a,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,~e,c,b]*B[a,e]*A[~g]*(-1)*F[~c,~f,f]+H[g,~f,c,b]*F[~c,~e,e]*A[~g]*B[a,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,a,~c]*F[c,~d,d]*F[b,~e,g]*A[e]+F[~c,a,~g]*A[e]*F[b,~e,c]*(-1)*F[g,~d,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,b,~e]*J[j,i,h,~j,~i]*H[a,~f,e,~h]*(4)*(-1)*B[~d,f]+(4)*J[h,f,j,~h,~f]*H[a,~e,i,~j]*B[~d,e]*F[d,b,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[~c]*A[c]*(65)*F[a,~e,e]+A[~c]*F[a,~e,e]*(65)*A[c]*A[b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,~g,b]*H[e,g,~c,~f]*B[~d,c]*A[f]*(63)*B[~e,d]+B[~g,e]*B[~d,g]*(-1)*(63)*H[d,c,~e,~f]*F[a,~c,b]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,~e]*A[~d]*H[~f,e,~c,b]*B[a,f]*F[c,d,g]+F[e,c,f]*A[~c]*B[a,g]*B[~f,~d]*H[~g,d,~e,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*B[~i,i]*H[~g,~f,a,f]*(49)*F[b,g,~j]*F[h,j,~h]+H[~f,~j,a,j]*F[h,g,~h]*(49)*B[~i,i]*F[b,f,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,b]*J[d,j,~h,~i,i]*B[~d,a]*J[~e,g,h,~g,~j]+(-1)*J[~d,e,j,~e,~g]*J[i,g,~j,~h,h]*B[d,b]*B[~i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,b]*B[~c,~f]*A[e]*A[~d]*H[d,a,~e,c]+(-1)*B[~c,~e]*A[f]*B[e,b]*A[~d]*H[d,a,~f,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*(91)*A[b]*F[~d,c,i]*H[d,~g,g,a]*H[~h,h,~i,~c]+H[~d,d,~h,~c]*H[g,~i,i,a]*F[~g,c,h]*(91)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,f,h]*A[~e]*(-1)*B[~j,a]*(73)*J[~d,~h,~f,j,d]*F[i,b,~i]+F[i,b,~i]*F[e,f,d]*A[~e]*(73)*B[~j,a]*J[~h,~d,~f,j,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*B[~d,~c]*J[~e,~f,d,b,a]*A[f]*A[e]+J[~e,~c,f,b,a]*A[d]*(-1)*B[~f,~d]*A[c]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~h,a]*(22)*H[~e,g,~d,f]*J[h,b,c,d,~g]*(-1)*F[e,~c,~f]+H[~c,g,~h,d]*F[c,~e,~d]*(22)*B[~f,a]*J[f,b,e,h,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,b,g,~c,h]*(29)*H[d,~e,a,~f]*B[~h,e]*B[~g,c]*A[~d]+J[f,b,c,~e,d]*B[~d,h]*B[~c,e]*A[~g]*H[g,~h,a,~f]*(-1)*(29)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,h,~c,~e]*H[c,k,g,e]*J[b,j,~k,~j,~f]*H[f,~g,a,~h]*A[~d]+H[h,j,~e,~k]*(-1)*H[g,~f,a,~j]*H[e,c,f,k]*A[~h]*J[b,d,~c,~d,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,~c,b,~h,d]*H[~e,f,a,~g]*H[~d,h,c,~f]*A[g]*(73)+J[c,~d,b,~f,h]*H[~c,e,a,~g]*H[~h,f,d,~e]*A[g]*(73)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[j,a,b,f,~f]*J[e,~h,~e,c,~g]*F[~c,h,~k]*B[k,~j]*A[g]+F[~f,c,~e]*(-1)*J[h,a,b,g,~g]*J[k,~c,~k,f,~j]*A[j]*B[e,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*(46)*A[~f]*H[~g,a,~d,i]*F[f,g,d]*J[h,~i,j,~h,~j]+A[~g]*H[~d,a,~f,h]*J[j,~h,i,~j,~i]*(46)*F[g,d,f]*(-1)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*H[~e,a,e,~h]*(72)*(-1)*A[~c]*H[b,h,~i,i]*B[~d,c]+B[~h,i]*A[h]*H[~c,a,c,~e]*A[~i]*(72)*H[b,e,~d,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((4)*A[f]*F[~f,~c,~d]*F[b,~g,~e]*H[c,d,e,a]*A[g]+(-1)*(4)*A[e]*F[~c,~d,~f]*A[c]*F[b,~e,~g]*H[d,f,g,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,a,f,j]*(36)*A[k]*F[~k,d,~h]*J[~c,e,g,c,b]*J[~j,~d,~f,~e,~g]+J[~k,c,e,k,b]*F[~g,f,~h]*(-1)*J[~j,~f,~d,~c,~e]*H[h,a,d,j]*(36)*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((13)*A[~c]*B[f,b]*F[c,e,~e]*A[a]*A[~f]+A[a]*A[~f]*F[e,c,~c]*(-1)*A[~e]*(13)*B[f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[k]*H[e,d,~c,a]*J[b,g,h,~e,~j]*F[~k,~g,~h]*J[c,j,f,~f,~d]+H[e,k,~h,a]*J[h,c,g,~g,~k]*F[~d,~f,~j]*(-1)*J[b,f,j,~e,~c]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*J[~d,i,~f,j,~j]*B[b,~h]*F[f,a,h]*F[~c,~i,c]+(-1)*F[h,a,f]*A[d]*F[~i,~c,i]*B[b,~f]*J[~d,c,~h,j,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*B[b,~g]*H[d,e,g,~d]*(-1)*F[~f,~e,a]*(22)+(22)*F[~f,~g,a]*H[d,g,e,~d]*B[b,~e]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[i,d]*H[~d,c,~g,~f]*J[h,~c,~h,~i,a]*F[f,g,b]+B[h,c]*(-1)*J[d,~g,~d,~h,a]*F[i,f,b]*H[~c,g,~f,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,f,~e]*B[b,~c]*B[d,~g]*J[g,e,~f,c,~d]+(-1)*F[a,f,~c]*B[b,~g]*J[e,c,~f,g,~d]*B[d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,a]*(8)*J[~j,i,~e,~g,g]*J[c,d,j,~i,~c]*A[~d]*A[e]+(8)*A[d]*J[~g,e,~d,~c,c]*J[i,j,g,~e,~i]*B[b,a]*(-1)*A[~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,b,c,h,i]*H[~j,a,~i,j]*(46)*J[~d,~c,~h,~e,f]*B[e,d]+B[i,h]*J[~h,~d,~j,~i,c]*(-1)*H[~f,a,~e,f]*J[~c,b,d,j,e]*(46)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,~e,d,b]*B[c,~d]*B[f,e]*A[~f]*A[~c]+B[c,e]*A[~f]*H[a,~e,d,b]*A[~c]*(-1)*B[f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*(-1)*(92)*J[f,~e,b,g,d]*A[c]*F[a,~g,e]*B[~d,~c]+A[~e]*J[e,~f,b,g,c]*(92)*F[a,~g,f]*A[d]*B[~c,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,~e,k,e,~k]*(-1)*F[g,a,~c]*(63)*A[c]*J[b,~g,j,i,~i]+(63)*J[~e,~g,i,g,~i]*F[j,a,~c]*J[b,~j,e,k,~k]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,~f,~c]*A[d]*A[~e]*H[b,f,g,a]*(-1)*F[e,~g,c]*(49)+A[~c]*(49)*F[c,~g,d]*F[~f,~e,~d]*H[b,e,g,a]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,~c,~g,f,~d]*A[d]*F[h,c,g]*J[~h,~f,b,~e,a]+(-1)*J[~g,~d,b,~h,a]*F[g,c,f]*J[h,~c,~f,d,~e]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,c]*H[f,~f,~g,b]*B[d,~c]*B[g,a]*(86)+B[d,~f]*B[c,a]*(-1)*B[~d,f]*(86)*H[g,~g,~c,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,e,a,~e]*A[~h]*A[~f]*H[~d,b,d,i]*B[f,~i]+A[~d]*A[~h]*(-1)*H[~i,b,i,e]*H[h,f,a,~f]*B[d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,a]*A[b]*A[e]*B[d,~d]+A[b]*A[e]*(-1)*B[d,~d]*B[~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,~h,b]*A[a]*A[e]*J[~d,h,g,~c,d]*B[~g,c]+(-1)*B[~g,h]*A[a]*F[~d,~e,b]*A[d]*J[~c,e,g,~h,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*F[~d,c,e]*A[f]*J[g,a,d,~f,~c]*(-1)*(5)*B[b,~e]+B[b,~e]*F[~d,c,e]*A[~g]*A[f]*J[g,a,d,~f,~c]*(5)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*B[e,~f]*(-1)*H[~e,f,g,d]*(87)*F[~c,a,~h]*H[b,~g,~d,h]+A[h]*B[g,~e]*F[~h,a,~d]*H[~g,e,c,f]*H[b,~c,~f,d]*(87)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[e]*F[~g,b,~f]*A[g]*(19)*F[c,a,~c]*B[~e,f]+A[f]*(19)*F[~f,b,~c]*B[~e,c]*F[g,a,~g]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,~i,b,a,~k]*J[~e,~c,~h,g,~f]*F[h,f,i]*J[c,e,k,~d,d]+J[k,c,g,~h,h]*J[~c,~k,~i,f,~e]*(-1)*J[~f,~d,b,a,~g]*F[i,e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*J[~f,~c,d,a,g]*A[e]*H[~e,c,b,f]*A[~d]+A[~e]*A[~g]*J[~d,~f,g,a,e]*A[c]*(-1)*H[~c,f,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,~e]*(-1)*(39)*A[c]*A[~c]*F[b,d,a]*A[e]+B[~d,~e]*(39)*A[c]*F[b,d,a]*A[e]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,b,h,e]*J[~c,d,g,~e,~f]*F[~g,~h,f]*A[i]*F[c,~i,a]+(-1)*H[~d,b,h,c]*J[~i,d,f,~c,~g]*F[~f,~h,g]*F[i,~e,a]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,d,g,~d]*H[~j,k,a,~e]*J[~h,c,~c,l,j]*(-1)*(84)*J[~k,e,~l,~g,h]+H[~g,e,a,~k]*H[b,h,c,~h]*J[~l,d,~d,j,g]*(84)*J[~e,k,~j,~c,l]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,~e,b,~d]*A[a]*A[f]*A[e]*F[~f,d,c]+A[a]*A[c]*(-1)*F[~c,d,f]*A[e]*H[~f,~e,b,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~k,i,~i,b]*J[~g,~d,a,~e,~c]*B[k,d]*J[~j,c,g,e,j]*(-1)*(87)+(87)*B[c,i]*J[~e,~i,a,~j,~k]*H[~c,d,~d,b]*J[~g,k,e,j,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,~k,h,i,f]*J[g,j,~f,~g,k]*F[~l,l,a]*(92)*(-1)*H[b,~d,~h,~j]*A[~i]+J[g,~f,i,l,h]*A[~l]*(92)*H[b,~g,~i,~k]*F[~d,d,a]*J[j,k,~h,~j,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,~d,f]*(52)*(-1)*B[b,~e]*A[a]*B[~g,g]*B[d,~f]+(52)*B[~g,g]*A[a]*B[b,~f]*B[d,~e]*F[f,~d,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,b,~h]*F[f,~f,~c]*H[~e,a,c,h]*B[~i,i]+(-1)*H[~i,a,e,f]*F[c,~c,~e]*F[i,b,~f]*B[~h,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,e]*J[~d,i,g,d,a]*H[~f,~i,~g,b]*F[f,~e,~c]+F[d,~c,~g]*H[~d,~e,~f,b]*B[g,c]*J[~i,e,f,i,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*H[c,~e,d,b]*(70)*B[e,~c]*A[~d]+B[c,~e]*A[a]*(-1)*H[e,~c,d,b]*(70)*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,~h,j,g,i]*B[~d,~j]*B[d,~i]*H[f,~g,a,~f]*A[b]+J[i,~i,j,d,h]*(-1)*B[~f,~j]*A[b]*B[f,~h]*H[g,~d,a,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,~g,d,a,~f]*A[g]*A[h]*H[c,e,~j,f]*J[b,j,~h,~e,~c]*(35)+J[~c,~d,c,a,~f]*A[g]*A[d]*(35)*(-1)*J[b,e,~g,~j,~h]*H[h,j,~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,a,d,~d]*H[j,k,~h,g]*A[h]*J[~f,c,~k,~g,e]*(34)*H[~j,~c,f,~e]+H[k,d,~j,h]*(-1)*A[j]*J[~g,e,~d,~h,c]*H[~k,~e,g,~c]*(34)*H[b,a,f,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,c]*B[b,~e]*A[~d]*F[~c,d,e]+A[~d]*F[~c,d,e]*B[b,~e]*B[a,c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~i,i]*J[h,a,~f,~h,~c]*A[d]*H[f,~d,c,b]+A[i]*J[c,a,~d,~c,~f]*H[d,~i,f,b]*(-1)*B[~h,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,a,~h,~c]*A[~f]*J[~i,i,h,j,~j]*B[b,f]+B[b,f]*A[~f]*J[~h,h,j,i,~i]*(-1)*H[c,a,~j,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,~c,b]*H[f,~f,c,~g]*(12)*A[a]*B[e,g]+H[c,~c,e,~g]*F[~f,~e,b]*B[f,g]*A[a]*(12)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[~i,~d,b,~e,d]*H[~h,a,i,~f]*A[c]*(31)*H[h,f,~c,e]+J[~d,~e,b,~i,e]*H[c,f,~h,i]*A[h]*H[~c,a,d,~f]*(31)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,b]*A[j]*J[~h,f,e,h,~i]*B[c,~c]*H[i,~f,~j,a]+B[~j,b]*(-1)*H[f,~h,~i,a]*B[e,~e]*A[i]*J[~c,h,j,c,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*(99)*J[g,b,c,~c,~f]*F[d,f,~g]*A[a]+(-1)*A[a]*A[~c]*(99)*F[c,f,~d]*J[d,b,g,~g,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*J[k,~c,~k,j,d]*(21)*B[a,c]*A[b]*J[~f,i,~i,f,~j]+A[~d]*J[j,~k,~j,i,d]*(21)*B[a,k]*J[~c,f,~f,c,~i]*(-1)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((26)*J[~f,j,~e,g,i]*J[d,e,~g,a,c]*(-1)*A[~i]*H[~j,b,~c,~h]*F[~d,f,h]+A[~d]*(26)*J[e,i,~c,a,f]*J[~g,h,~i,c,d]*H[~h,b,~f,~j]*F[~e,g,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~j,~f,e]*F[b,~i,i]*H[~h,j,~d,~e]*F[h,a,d]+F[b,~d,d]*H[e,~j,~e,i]*(-1)*H[~h,j,~f,~i]*F[h,a,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[c,f,b,a,d]*A[~f]*B[~c,~e]*B[~d,e]+A[~c]*B[~d,f]*B[~e,~f]*J[e,c,b,a,d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,h,~i,d,b]*H[~d,~c,~j,a]*A[f]*A[i]*J[j,c,~e,~h,e]+H[~i,~h,~d,a]*A[e]*J[~c,f,~e,i,b]*A[c]*J[d,h,~j,~f,j]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*A[e]*J[c,b,a,~c,~g]*(-1)*B[d,~e]*(15)*A[~d]+A[~c]*(15)*A[e]*B[c,~g]*A[g]*J[d,b,a,~d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[h,~d]*(9)*A[a]*F[c,~c,b]*F[~g,~e,~h]*F[d,e,g]+B[e,~d]*F[~c,~g,~e]*F[d,g,c]*F[h,~h,b]*(9)*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*(66)*B[d,b]*A[~e]*B[c,a]*B[~c,~d]+A[~c]*(-1)*B[e,b]*A[c]*B[~d,~e]*(66)*B[d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,f,~h,~d,g]*A[~g]*A[~c]*J[h,b,a,c,d]+J[~f,f,~c,~h,d]*A[~g]*A[~d]*(-1)*J[c,b,a,g,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~j,~h,j,~g]*B[b,~d]*J[~i,i,f,g,h]*F[~f,a,d]+H[~i,~f,i,~g]*(-1)*F[~h,a,j]*B[b,~j]*J[~d,d,h,g,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((33)*A[~g]*B[e,~c]*A[c]*F[a,b,~h]*J[~e,d,h,g,~d]+B[g,~h]*A[h]*F[a,b,~c]*(33)*A[~e]*(-1)*J[~g,d,c,e,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*A[~d]*F[~c,a,b]*A[e]*B[d,c]+B[e,d]*A[~e]*(-1)*A[~c]*F[~d,a,b]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*J[~e,d,f,~c,a]*F[c,~f,~d]*A[b]+(-1)*J[~c,f,d,~e,a]*A[b]*F[e,~d,~f]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((11)*H[a,f,e,d]*H[~g,h,~e,i]*(-1)*F[~i,g,c]*J[~f,b,~d,~c,~h]+H[a,c,h,e]*F[~d,g,i]*J[~c,b,~e,~i,~f]*H[~g,f,~h,d]*(11)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[b,~f,~i,~h]*H[~e,i,f,~g]*(43)*J[~d,d,a,e,h]*A[g]+J[~f,f,a,i,g]*H[~i,h,d,~e]*H[b,~d,~h,~g]*A[e]*(43)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,~g,f]*A[~f]*H[e,a,g,b]*H[~d,h,~h,~e]+(-1)*A[~h]*H[~f,g,~g,~d]*H[d,a,e,b]*F[f,~e,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,~d,~c,~e]*F[f,~h,g]*J[c,d,b,~f,e]*B[h,~g]+(-1)*F[g,~h,d]*H[a,~c,~f,~e]*B[h,~d]*J[f,c,b,~g,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[i,~j,~i]*A[a]*A[b]*J[~d,c,f,~f,~e]*(47)*H[d,e,~c,j]+J[~d,e,f,~f,~c]*A[a]*A[b]*H[d,c,~e,i]*(-1)*F[j,~i,~j]*(47)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((26)*A[e]*B[~f,~e]*H[~h,h,a,i]*J[b,~i,f,~d,d]+B[~e,~d]*A[d]*J[b,~i,e,~f,f]*(26)*H[~h,h,a,i]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[h,~h]*A[a]*H[f,~f,j,~i]*J[c,~j,b,i,~c]+J[i,~f,b,h,~i]*(-1)*A[a]*B[j,~j]*H[c,~c,f,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((55)*A[~f]*H[f,g,e,~c]*A[~g]*H[~d,a,c,b]*B[~e,d]+H[~f,a,c,b]*A[~d]*H[d,g,e,~c]*(-1)*(55)*A[~g]*B[~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,g]*F[a,~f,e]*F[~d,f,d]*B[b,~g]+B[~d,e]*B[b,~e]*(-1)*F[~f,g,f]*F[a,~g,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~d]*A[b]*F[f,h,~f]*H[d,~h,~g,g]+A[b]*B[a,~h]*F[g,d,~g]*H[h,~d,~f,f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[i,~f,f]*H[g,~e,~d,h]*A[d]*A[~g]*J[b,a,~h,e,~i]+H[i,~e,~h,f]*A[~i]*J[b,a,~f,e,~g]*F[g,~d,d]*A[h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,~d,d]*B[g,~e]*F[f,e,b]*A[~f]*(-1)*A[~g]*(100)+A[~f]*B[e,~g]*A[~e]*F[f,g,b]*F[a,~d,d]*(100)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,~h,f,~k,e]*H[~j,~c,c,~f]*H[a,h,b,i]*J[g,~i,j,k,~e]+J[~e,~h,k,~f,i]*H[~j,~g,g,~k]*H[a,h,b,c]*J[e,~c,j,f,~i]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,e,~d,c]*J[~f,g,a,~c,d]*B[f,~e]*A[b]+B[d,~c]*J[~d,f,a,~e,g]*A[b]*(-1)*H[~f,c,~g,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,a]*F[~f,~d,d]*B[f,b]*A[c]+A[f]*B[~f,a]*B[c,b]*F[~c,~d,d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,b]*H[g,c,~d,e]*F[~c,~f,a]*B[~e,f]*A[~g]+B[e,b]*(-1)*B[~f,d]*A[~g]*F[~c,~d,a]*H[g,c,~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*F[a,~e,i]*H[~f,e,b,~g]*A[~c]*J[f,c,~i,~d,d]+J[c,i,~e,~f,f]*(-1)*F[a,~d,e]*H[~c,d,b,~g]*A[~i]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,a]*(29)*F[c,d,~f]*A[e]*H[f,~c,~d,b]+H[f,~c,~d,b]*(29)*B[~e,a]*A[e]*F[c,d,~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[g,~k,~h,k,b]*(52)*A[~c]*J[h,i,~g,~i,l]*J[j,c,~l,~j,a]+A[~k]*(52)*J[g,~j,~c,j,b]*J[i,k,~l,~i,a]*J[c,h,~g,~h,l]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,a]*J[e,~d,h,~j,~e]*H[g,~g,j,~i]*A[~h]*B[b,i]+(-1)*H[d,~d,g,~e]*A[~j]*B[i,a]*J[h,~i,j,~g,~h]*B[b,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*H[~c,d,f,a]*A[e]*F[~e,b,~f]*(21)*A[~d]+A[~f]*A[e]*(21)*F[~d,b,~c]*H[~e,f,c,a]*A[d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,e,h]*F[~c,g,f]*F[a,d,b]*A[c]*H[~h,~g,~f,~e]+(-1)*F[~g,c,e]*A[f]*F[a,g,b]*H[~e,~d,~h,~c]*F[~f,d,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,c]*A[e]*H[~h,d,g,h]*B[~d,~e]*F[b,~g,~c]+(-1)*F[b,~c,~e]*B[~g,~h]*B[a,e]*H[~d,g,c,d]*A[h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*(95)*J[g,~g,c,e,a]*A[d]*H[b,~d,~f,~i]*H[i,~e,f,~c]+(95)*H[e,~i,d,~g]*A[c]*J[f,~f,g,i,a]*H[b,~c,~d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*F[c,~i,~e]*J[~c,~d,e,~f,b]*H[a,d,~h,h]*(-1)*A[i]*(63)+(63)*J[~h,~d,e,~i,b]*A[c]*A[i]*F[h,~c,~e]*H[a,d,~f,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*A[b]*B[c,a]*B[e,~d]*B[d,~e]+A[~d]*B[d,a]*B[c,~e]*B[e,~c]*(-1)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~j]*(6)*J[e,~e,~h,j,a]*A[~i]*J[~g,b,c,h,f]*(-1)*H[g,~c,~f,i]+A[~i]*J[~f,b,j,g,h]*A[~e]*(6)*H[f,~j,~h,e]*J[c,~c,~g,i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[f]*A[~i]*J[e,a,~g,~f,g]*H[~h,h,~e,i]+(-1)*A[b]*A[~i]*A[h]*H[~f,f,~e,i]*J[e,a,~g,~h,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~h]*J[~d,~g,g,d,~i]*A[~c]*H[c,i,h,b]+A[~g]*(-1)*B[a,~d]*H[g,i,d,b]*J[~c,~h,h,c,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,e]*A[a]*B[b,g]*H[i,~f,~e,~i]*F[~h,~g,h]*(95)+B[e,h]*(-1)*(95)*F[~f,~g,f]*H[i,~e,~h,~i]*A[a]*B[b,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,~c]*A[a]*B[~d,e]*F[c,b,d]+F[c,b,d]*A[a]*(-1)*B[~d,e]*B[~e,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*(-1)*A[~c]*B[~d,c]*A[b]*A[a]*(16)+B[~c,d]*A[a]*A[b]*(16)*A[~d]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((40)*J[a,g,~c,~d,~f]*H[e,d,c,~h]*H[b,f,~e,h]*(-1)*A[~g]+(40)*A[~f]*H[h,g,d,~e]*J[a,f,~d,~g,~c]*H[b,c,~h,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,a,b,~c,g]*A[~d]*(-1)*A[~g]*(13)*F[c,e,~e]+A[~d]*J[e,a,b,~g,d]*(13)*F[g,c,~c]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,g,~f]*A[~e]*(59)*J[~d,b,f,e,d]*A[~g]+J[~d,b,f,e,d]*F[a,g,~f]*A[~e]*A[~g]*(-1)*(59)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*F[~d,~c,b]*A[d]*(29)*F[g,~f,e]*J[~g,a,c,f,~e]+F[c,~f,d]*(29)*J[~c,a,e,f,~d]*A[g]*F[~g,~e,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*A[e]*F[~c,~d,b]*B[c,~e]*A[d]+A[c]*(-1)*A[d]*B[e,~d]*F[~e,~c,b]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[c,a,b,~c]*A[~d]*J[i,~j,~i,j,d]*A[h]*(76)*A[~h]+A[~c]*(76)*H[h,a,b,~h]*A[~d]*A[d]*J[j,~i,~j,i,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,b]*(50)*A[~d]*B[c,a]*F[~c,f,~f]+B[c,a]*(50)*(-1)*A[~f]*F[~c,d,~d]*B[f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~h]*A[~c]*B[c,a]*H[f,~f,g,~g]*A[h]+B[b,~h]*A[h]*H[c,~c,g,~g]*(-1)*B[f,a]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*(10)*J[~g,~e,c,d,f]*H[e,a,b,~f]*A[~d]*A[g]+A[f]*(10)*J[~f,~e,c,g,d]*A[~g]*A[~c]*(-1)*H[e,a,b,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,f,~e,g,~c]*F[h,~f,~d]*A[e]*(-1)*J[~g,c,~h,d,b]+A[f]*J[~d,c,~e,g,b]*J[a,h,~f,d,~c]*F[e,~h,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,b,~e,c]*A[f]*B[~d,a]*H[e,d,g,~f]*(40)*A[~c]+(-1)*A[g]*(40)*A[~f]*H[c,d,e,~g]*B[~d,a]*H[~e,b,~c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,a,f,~d,e]*A[d]*A[~e]*A[c]*B[~f,b]*(100)*(-1)+A[~f]*(100)*B[~c,b]*A[d]*A[e]*J[~e,a,c,~d,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,f]*B[b,e]*H[d,~g,g,~e]*B[~f,a]+B[~d,f]*(-1)*B[~f,a]*B[b,e]*H[d,~g,g,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*F[a,c,d]*A[~d]*B[e,~c]*A[~e]+A[~d]*A[b]*F[a,e,d]*(-1)*A[~c]*B[c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,~h,~i,a,e]*H[f,~c,i,c]*B[h,~f]*A[b]+H[f,~c,e,c]*(-1)*B[h,~f]*J[~i,~h,~e,a,i]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*B[a,~c]*A[b]*B[~e,d]*B[e,c]+B[d,e]*A[~c]*B[~d,c]*A[b]*(-1)*B[a,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~h]*A[h]*J[c,d,a,~i,~d]*A[~c]*F[~f,i,f]+F[~h,f,h]*A[d]*J[c,i,a,~f,~i]*B[b,~d]*(-1)*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*A[d]*F[~c,e,~d]*B[~f,~e]*F[b,c,f]*(-1)*(60)+(60)*A[e]*F[~d,c,~e]*B[~f,~c]*F[b,d,f]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~d,f,~e]*A[h]*H[g,a,d,~c]*A[~g]*H[c,~h,e,~f]+A[~f]*(-1)*H[f,a,h,~g]*H[g,~c,e,~d]*H[b,~h,d,~e]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,~i]*F[c,~j,i]*J[~h,~c,h,~f,b]*(54)*A[~d]*J[~k,k,d,a,j]+A[~k]*(54)*F[j,~d,i]*B[c,~i]*J[~f,f,k,a,d]*J[~h,~j,h,~c,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,~h,d]*A[~f]*H[b,~e,~d,~i]*A[h]*J[f,i,a,c,~c]+A[~d]*J[d,i,a,e,~e]*H[b,~f,~h,~i]*A[c]*F[f,~c,h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,~e,~c,~f]*B[c,d]*(70)*F[e,b,f]*A[a]+F[e,b,f]*H[~d,~e,~c,~f]*B[c,d]*(70)*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~i,k,a,h]*H[~j,j,~f,~c]*(14)*A[f]*B[c,b]*J[~k,i,e,~e,~h]+H[~j,j,~e,~h]*B[h,b]*J[~i,k,c,~c,~f]*(-1)*H[~k,i,a,f]*A[e]*(14)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*B[~d,b]*J[c,a,d,~h,g]*(51)*B[h,~c]*B[~f,f]+B[~f,b]*J[d,a,f,~g,h]*(-1)*(51)*A[~h]*B[g,~d]*B[~c,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[i]*H[~f,~j,~e,~i]*H[e,~h,h,j]*(-1)*(37)*J[~g,a,b,f,g]+H[~g,~h,~j,~f]*J[~e,a,b,g,e]*A[f]*H[j,~i,i,h]*(37)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((33)*H[f,~i,~f,c]*H[~j,b,j,~h]*B[~g,~c]*A[h]*F[i,g,a]+H[h,~c,~h,j]*H[~g,b,g,~f]*F[c,i,a]*A[f]*B[~i,~j]*(33)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*B[g,b]*F[~e,e,h]*(73)*A[~h]*H[~f,a,f,~g]+F[~g,g,h]*B[e,b]*(73)*A[~h]*H[~f,a,f,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,~g,d]*A[~e]*F[~c,~f,b]*J[~d,f,h,g,e]*(59)*B[~h,c]+(-1)*(59)*J[~e,f,g,d,c]*F[a,~d,e]*F[~h,~f,b]*A[~c]*B[~g,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~e,~g]*F[d,a,e]*A[c]*H[g,~c,~f,~d]*A[f]+A[f]*F[e,a,g]*H[d,~c,~f,~e]*A[c]*F[b,~g,~d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((23)*H[~d,~c,e,~f]*(-1)*A[a]*A[b]*H[d,f,~e,c]+H[e,d,~f,c]*A[b]*(23)*A[a]*H[~e,~c,f,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*J[~c,g,c,~d,e]*A[~i]*B[~f,d]*J[b,~e,a,f,i]+J[b,~f,a,i,e]*B[~i,c]*A[~e]*(-1)*A[~d]*J[~g,d,g,~c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,~j,e,~d,h]*F[b,d,j]*B[~i,i]*A[~h]*F[~e,~f,f]+F[b,d,h]*(-1)*B[~i,i]*A[~e]*F[~f,~j,j]*J[a,~h,f,~d,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((58)*A[~e]*A[~d]*A[c]*F[~c,a,e]*B[d,b]*(-1)+B[d,b]*A[~c]*F[~e,a,c]*A[~d]*(58)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,f,~e]*H[~c,d,b,~f]*A[a]*B[e,c]*(80)+H[~f,c,b,~d]*A[a]*(80)*(-1)*F[~c,d,~e]*B[e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,a]*H[h,i,~e,~i]*H[~h,d,~d,b]*B[c,e]+(-1)*B[c,d]*H[~e,h,~h,b]*H[e,i,~d,~i]*B[~c,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*J[~j,~e,a,j,b]*A[~f]*J[~i,~d,d,~k,i]*B[f,k]+B[j,d]*(-1)*J[~i,~k,a,i,b]*J[~e,~f,f,~d,e]*A[k]*A[~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,e,~c,d]*A[b]*A[~e]*B[~f,~d]*B[c,f]+H[a,e,~c,d]*A[b]*A[~e]*B[~f,~d]*(-1)*B[c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*F[b,c,~d]*A[e]*F[~e,a,~c]+(-1)*A[d]*F[~d,a,~e]*A[c]*F[b,e,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,f]*F[g,a,b]*F[h,~h,c]*B[~g,~c]+F[c,a,b]*B[~c,~f]*F[h,~h,f]*B[~g,g]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*B[~c,g]*F[~f,a,~e]*B[d,c]*H[b,e,~d,~g]+H[b,c,~f,~e]*(-1)*B[~d,e]*F[~g,a,~c]*B[f,d]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*B[~c,a]*H[~d,f,b,d]*(5)*A[~f]*(-1)+A[d]*B[~d,a]*(5)*A[~f]*H[~c,f,b,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*F[g,d,~f]*H[~c,a,e,~d]*B[f,b]*B[~e,c]+F[g,d,~e]*H[~c,a,f,~d]*A[~g]*(-1)*B[e,b]*B[~f,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,j]*J[~k,f,i,~i,~d]*H[~g,g,c,b]*J[d,k,a,~f,~j]+H[~j,j,k,b]*B[~k,c]*(-1)*J[g,f,a,~d,~c]*J[~f,d,i,~i,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((4)*J[~f,i,c,~c,~d]*J[d,~i,b,a,~j]*H[f,e,~k,k]*(-1)*A[~e]*A[j]+J[~i,c,k,~k,~f]*A[~j]*J[f,~c,b,a,~e]*H[i,j,~d,d]*(4)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*H[~e,h,~d,e]*B[a,d]*F[~h,g,~g]*(46)+H[~e,g,~d,e]*A[b]*(-1)*(46)*B[a,d]*F[~g,h,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,e,~c,d]*F[b,~i,~e]*H[h,~g,c,f]*J[~h,~d,a,i,~f]+H[i,c,~g,d]*J[~e,~d,a,h,~f]*F[b,~h,~c]*(-1)*H[e,~i,g,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,a,c]*J[h,b,g,~e,~h]*A[e]*A[~g]*B[~c,d]+J[d,b,g,~e,~d]*B[~c,h]*A[e]*F[~h,a,c]*(-1)*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,g,d]*A[~g]*J[j,~l,a,k,~j]*H[e,c,~h,~e]*J[h,~d,l,~c,~k]+F[b,l,j]*H[e,c,~d,~e]*J[k,~g,a,h,~k]*A[~l]*(-1)*J[d,~j,g,~c,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*(56)*F[d,~c,e]*J[f,b,~e,c,a]*A[~d]*(-1)+(56)*A[~c]*F[c,~e,d]*A[~f]*J[f,b,~d,e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[h,~e,d]*F[a,f,c]*H[e,~c,b,g]*H[~g,~h,~f,~d]+H[c,~f,b,e]*(-1)*H[~e,~d,~g,~h]*F[d,~c,h]*F[a,g,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*H[~g,d,b,~h]*F[~d,e,~e]*(99)*B[h,a]*(-1)*B[c,g]+A[~c]*B[h,a]*F[~d,e,~e]*(99)*B[c,g]*H[~g,d,b,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*J[~g,~d,h,e,~e]*H[~h,b,d,f]*A[~f]*A[a]+(-1)*A[e]*A[~f]*J[~e,~h,d,g,~g]*H[~d,b,h,f]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~k]*J[a,j,g,h,b]*J[~d,f,i,k,~j]*(-1)*J[l,e,~i,~e,d]*(34)*H[~h,~g,~l,~f]+H[~l,~d,~k,~g]*J[a,h,d,l,b]*(34)*J[~e,g,i,j,~h]*A[~j]*J[k,f,~i,~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*(6)*H[~e,g,~i,e]*J[b,a,h,i,~d]*H[~h,d,f,~g]+(-1)*H[~e,f,d,~h]*A[~d]*(6)*H[~i,h,~g,i]*J[b,a,e,g,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~h,h,e]*A[a]*F[b,~d,g]*A[c]*H[~g,~c,d,~e]+(-1)*A[a]*A[d]*F[~c,c,g]*F[b,~e,h]*H[~h,~d,e,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,g]*H[a,~d,~g,~e]*A[~c]*(13)*(-1)*F[c,e,d]*B[b,~f]+H[a,~f,~c,~g]*F[e,g,f]*B[d,c]*B[b,~d]*(13)*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[~f,h,g,~g]*A[f]*J[a,~i,b,i,~c]*(69)*B[c,~h]+H[~i,h,g,~g]*(69)*B[c,~h]*A[i]*J[a,~f,b,f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[h,i,~f]*A[~i]*J[f,~g,b,g,~h]*B[~c,c]*A[a]+B[~c,c]*(-1)*A[a]*A[~i]*F[h,i,~f]*J[f,~g,b,g,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,~d,a]*A[b]*J[f,d,~g,~e,e]*A[g]+(-1)*F[~d,~g,a]*A[e]*A[b]*J[d,g,~e,~f,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*F[b,c,~f]*(47)*J[h,a,g,~g,f]*B[~c,~h]*A[d]+A[~f]*J[d,a,c,~c,h]*F[b,g,~h]*A[f]*(47)*(-1)*B[~g,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*F[h,~h,~d]*(86)*(-1)*B[e,i]*A[~e]*J[b,c,~c,~i,d]+A[a]*J[b,i,~i,~h,c]*(86)*F[e,~e,~c]*B[d,h]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,h,c]*(97)*A[b]*A[~e]*B[~h,a]*J[~c,~i,i,g,~g]+(-1)*(97)*A[~h]*F[h,e,c]*A[b]*J[~c,~i,i,g,~g]*B[~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*J[~d,~f,~e,~h,g]*H[b,~c,~g,d]*(-1)*(74)*H[f,c,a,e]+A[c]*J[~h,~d,~g,~c,f]*H[b,~e,~f,h]*(74)*H[d,e,a,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[h,e]*A[b]*F[~e,g,f]*A[~f]*J[~h,~c,c,~g,a]*(97)+(-1)*A[~f]*J[~g,~e,e,~h,a]*F[~c,h,f]*A[b]*(97)*B[g,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*H[b,~d,i,~i]*A[~f]*A[a]*J[~h,f,~c,d,h]*(70)+A[a]*(70)*(-1)*A[d]*J[~i,c,~d,h,i]*H[b,~h,f,~f]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*A[a]*A[~c]*A[c]+A[a]*A[c]*A[b]*A[~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,~c,~d,~g,j]*A[f]*J[~j,g,b,~k,c]*J[e,~f,a,k,~e]+(-1)*J[~c,j,b,~f,e]*A[d]*J[g,~d,a,f,~g]*J[k,~e,~k,~j,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~f,a,~h]*(77)*J[d,c,e,f,h]*B[~c,g]*F[~d,~e,~g]+(-1)*F[~f,~h,~d]*J[f,g,h,e,c]*(77)*B[~g,d]*H[b,~e,a,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,~h,~e]*F[g,c,~d]*F[d,b,a]*J[~c,~g,e,f,h]+F[~f,~g,~d]*J[~c,~h,d,f,g]*F[h,c,~e]*(-1)*F[e,b,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,~e]*A[c]*F[a,~c,~d]*A[b]*(-1)*(100)*A[e]+(100)*B[d,~e]*A[c]*F[a,~c,~d]*A[e]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,d]*F[c,~j,j]*J[~i,i,f,e,~c]*A[b]*F[~d,~e,~f]+B[a,d]*F[~d,~c,~i]*(-1)*J[~e,e,i,c,~f]*A[b]*F[f,~j,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,h]*J[f,b,e,j,g]*J[d,~d,~j,~h,~f]*H[~g,a,~k,k]+H[~h,a,~k,k]*J[d,b,e,f,h]*(-1)*J[g,~g,~f,~j,~d]*B[~e,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[i,f,g,~i]*H[~g,~f,h,~h]*B[~d,b]*B[a,d]+H[~d,~h,g,~g]*H[i,h,d,~i]*B[a,f]*B[~f,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[~f]*H[~i,i,c,~d]*H[b,~h,f,h]*B[~c,a]+B[~h,a]*H[b,~i,d,i]*H[~f,f,h,~c]*A[c]*(-1)*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,b,a,i]*A[~c]*H[~h,h,~i,~d]*F[c,g,~g]+H[c,b,a,i]*H[~g,g,~i,~c]*(-1)*F[d,h,~h]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[~d]*A[d]*F[b,~c,a]+(-1)*A[d]*A[c]*F[b,~d,a]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*J[b,~d,e,a,d]*A[h]*F[~f,~h,c]*B[f,~e]+B[f,~c]*F[~f,~e,h]*J[b,~d,c,a,d]*A[~h]*A[e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~m]*J[b,m,~j,j,a]*H[k,~k,f,~f]*H[l,~l,i,h]*B[~h,~i]+A[~j]*H[l,~l,m,~m]*(-1)*B[~h,~i]*H[k,~k,i,h]*J[b,j,~f,f,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((65)*J[a,e,f,~f,b]*A[j]*J[h,~k,~e,~j,~g]*J[g,~c,k,~h,c]+J[a,c,f,~f,b]*(65)*J[j,~h,~c,~e,~k]*A[e]*J[k,~g,h,~j,g]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*B[~c,~e]*H[g,h,~f,~d]*B[~h,f]*J[a,~g,d,e,c]+(-1)*A[b]*H[e,c,~g,~h]*B[~d,~f]*B[~c,g]*J[a,~e,h,f,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*F[~d,e,~c]*A[b]*B[d,a]*A[~e]+B[d,a]*(-1)*A[b]*A[c]*F[~d,e,~c]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~h,~e,h]*(-1)*J[c,e,~i,~c,b]*H[f,j,a,i]*A[~j]*(41)*A[~f]+A[~c]*A[~j]*F[~f,~h,f]*(41)*J[i,h,~e,~i,b]*H[j,c,a,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,d,e,~e]*A[~g]*A[b]*H[f,~d,a,g]+H[d,~e,a,f]*H[~d,e,g,~g]*(-1)*A[~f]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((47)*A[g]*J[f,a,b,~c,c]*B[~g,e]*A[~e]*A[~f]+(47)*A[~g]*A[c]*A[~f]*B[~c,f]*J[g,a,b,~e,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*(44)*B[a,b]*F[g,~f,~h]*J[h,~d,f,~g,d]*A[c]+A[d]*B[a,b]*A[~d]*F[g,~f,~c]*(44)*J[c,~h,f,~g,h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*F[c,~e,e]*A[~c]*A[b]+(-1)*F[c,~e,e]*A[~c]*A[a]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,i,~f,c]*H[~h,~d,b,h]*J[a,~c,f,~g,~i]*A[d]*(89)+(-1)*H[h,c,~g,i]*A[d]*(89)*J[a,~i,g,~h,~c]*H[~f,~d,b,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,d]*J[~c,~g,b,e,a]*H[~d,~e,~f,c]*A[g]+A[e]*B[f,g]*J[~d,~e,b,c,a]*H[~g,~c,~f,d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~f]*J[~d,~e,e,~c,f]*A[d]*J[~h,c,~g,~k,~i]*J[k,h,i,g,b]+A[f]*B[a,~d]*(-1)*J[g,i,e,h,b]*J[~i,c,~h,~g,~e]*J[~f,~k,k,~c,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((74)*B[f,~d]*J[c,~e,d,~g,i]*J[~h,~c,a,e,g]*A[h]*F[~f,~i,b]+(74)*B[e,~d]*J[~c,~i,a,h,g]*(-1)*A[c]*J[i,~h,d,~g,f]*F[~e,~f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*(-1)*F[~e,a,c]*A[~d]*(98)*F[~c,e,b]+A[~e]*F[~c,a,d]*A[e]*(98)*F[~d,c,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,~d]*A[d]*A[~c]*A[b]*A[a]+A[~d]*A[c]*B[d,~c]*A[b]*A[a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,~f,~d,~e]*J[~c,g,b,e,c]*B[d,a]*(64)*A[i]*B[~i,f]+(64)*H[~f,~g,~e,~i]*(-1)*A[d]*J[~c,f,b,i,c]*B[~d,g]*B[e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~g,g,~i,a,~j]*F[~e,~k,e]*F[k,b,i]*A[j]*B[h,~h]+J[~g,g,~j,a,~h]*F[k,b,j]*A[h]*(-1)*B[i,~i]*F[~e,~k,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[g,e,~i]*A[a]*F[h,~h,~e]*A[b]*H[~f,f,~g,i]+F[i,~i,~g]*F[f,g,~e]*(-1)*A[a]*A[b]*H[~h,h,~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,d,e,~f]*H[~h,i,g,~g]*F[b,~i,h]*F[~d,~e,f]+F[b,~e,i]*H[a,f,g,~d]*(-1)*H[~i,e,h,~h]*F[~f,~g,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,~d,h,i,~c]*H[g,f,d,e]*J[b,~i,~f,~g,c]*B[~h,a]+J[b,~d,~f,~h,i]*B[~c,a]*J[~g,~e,c,d,~i]*(-1)*H[h,f,e,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((9)*J[h,~e,e,~d,i]*J[b,~h,d,~g,c]*B[~c,g]*B[~i,a]+(-1)*J[g,~d,d,~h,i]*(9)*B[~e,c]*J[b,~g,h,~c,e]*B[~i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,a,c,f]*A[d]*(24)*F[e,b,g]*J[h,~c,~e,~g,~f]*A[~h]+A[~h]*H[~c,a,f,e]*A[c]*J[h,~f,~g,~d,~e]*(24)*(-1)*F[g,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*J[d,~c,~h,j,a]*H[g,c,e,~d]*(97)*H[~g,f,h,~i]*H[~f,~e,~j,i]+A[b]*(-1)*H[e,c,h,~d]*(97)*H[~e,j,f,~i]*J[d,~c,~f,g,a]*H[~j,~h,~g,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[b]*F[f,a,~f]*F[~d,c,g]*B[~g,~c]+F[~d,f,c]*A[d]*A[b]*F[g,a,~g]*(-1)*B[~c,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,e,~d,a,~h]*J[d,b,~c,h,~g]*A[c]*A[~f]*B[g,~e]+A[d]*J[f,b,~d,c,~g]*(-1)*J[e,h,~f,a,~c]*A[~e]*B[g,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,d,a,~c,b]*A[g]*F[~d,~g,c]*(80)*A[f]*B[~e,~f]+A[f]*(-1)*F[~e,~f,g]*J[c,e,a,~g,b]*(80)*B[~c,~d]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,~d,~j,b]*F[c,e,~f]*A[d]*H[~c,~g,g,a]*H[f,~k,k,j]+H[~c,~j,j,a]*H[g,~d,d,f]*(-1)*F[c,e,~g]*A[k]*H[~e,~k,~f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,d,b,e,c]*B[~h,a]*F[h,~d,~e]*H[~i,~c,~f,f]+F[i,~e,~d]*B[~i,a]*(-1)*J[f,e,b,d,c]*H[~f,~c,~h,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,b]*H[~d,e,a,d]*F[g,~h,h]*A[~e]+B[~h,b]*A[~e]*H[~d,e,a,d]*F[h,~g,g]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,~d,~h,b]*F[e,~e,h]*A[g]*B[a,~g]+A[e]*(-1)*H[g,~g,~d,b]*F[h,~h,d]*B[a,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*J[~g,~i,~j,~e,c]*A[a]*J[f,j,g,~f,h]*H[i,~h,e,~c]+(-1)*J[f,c,h,~f,g]*A[b]*J[~h,~e,~c,~i,j]*H[e,~g,i,~j]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,i,~f]*F[~i,m,~m]*J[d,~k,~j,j,a]*J[b,~d,k,l,~l]+F[~k,l,~l]*F[i,k,~i]*(-1)*J[d,~f,~j,j,a]*J[b,~d,f,m,~m]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*F[~d,f,e]*H[b,~g,d,~c]*(78)*A[g]*F[a,c,~e]+F[~g,d,f]*(78)*A[c]*(-1)*H[b,~c,g,~e]*A[~d]*F[a,e,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*(-1)*J[h,~f,~h,f,b]*F[a,c,~g]*A[g]*(97)+J[h,~f,~h,f,b]*A[~g]*(97)*A[c]*F[a,g,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((75)*A[e]*J[a,g,f,~f,c]*A[~e]*F[~c,b,~g]+(-1)*F[~g,b,~f]*J[a,f,e,~e,g]*A[c]*A[~c]*(75)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,f,a,~h,g]*A[b]*(-1)*(13)*A[~g]*F[h,~d,d]+F[g,~f,f]*(13)*J[~d,d,a,~g,h]*A[b]*A[~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((40)*H[d,~j,~g,~h]*(-1)*J[a,g,~f,b,j]*H[~c,~e,c,h]*F[~d,e,f]+H[c,~h,~e,~d]*F[~c,f,g]*J[a,e,~g,b,h]*H[~j,~f,j,d]*(40)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~i,i]*J[~j,k,h,b,~k]*H[~h,a,~l,~g]*J[l,g,e,~e,j]+H[~e,a,~i,~k]*(-1)*B[~h,h]*J[~j,g,e,b,~g]*J[i,k,l,~l,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~c,d]*A[~d]*(78)*(-1)*F[e,f,a]*F[~e,c,~f]+F[d,f,a]*A[~c]*F[b,~e,c]*(78)*F[~d,e,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[c,h,~f,b,d]*(89)*F[f,a,~h]*B[g,~g]*B[~c,~d]+B[c,~c]*F[d,a,~h]*B[~g,~f]*(-1)*J[g,h,~d,b,f]*(89)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,b]*A[c]*A[e]*(-1)*H[a,~c,~e,d]*(84)+B[~e,b]*(84)*A[d]*A[c]*H[a,~d,~c,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*F[k,j,~i]*H[~k,~d,e,~e]*J[~f,f,c,i,~j]*F[a,b,~c]+J[~k,k,f,c,~j]*F[a,b,~f]*F[e,j,~c]*(-1)*H[~e,~d,i,~i]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*B[g,~h]*F[~c,c,a]*H[~f,~g,b,f]*(-1)*(31)+A[h]*B[g,~h]*H[~f,~g,b,f]*F[~c,c,a]*(31)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*B[~d,g]*B[b,~g]*(81)*H[e,~e,~f,a]*A[f]+A[d]*(81)*B[b,~f]*A[e]*(-1)*B[~e,f]*H[g,~g,~d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,d,~c,c]*J[~h,b,~d,a,e]*A[~g]*A[h]*A[g]+A[e]*(-1)*J[~g,b,~d,a,h]*A[g]*H[~h,d,~c,c]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,j,~j,~f,h]*(21)*B[~d,i]*A[f]*J[e,~h,a,~e,d]*A[~i]+A[j]*B[~d,e]*J[b,h,~h,~j,f]*J[i,~f,a,~i,d]*(21)*A[~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,d,f,b,j]*H[~i,~c,i,k]*J[~j,~k,g,~e,a]*H[~d,~f,~g,c]+J[~k,~e,f,~g,a]*J[g,d,c,b,k]*H[~d,~c,~f,j]*H[~i,~j,i,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,c]*B[g,b]*J[e,~e,f,~c,~g]*A[a]+J[e,~e,c,~g,~f]*A[a]*(-1)*B[f,b]*B[~c,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[d,b,~e,c,f]*A[e]*B[a,~d]*B[~f,~c]+J[d,b,~e,c,f]*B[a,~d]*B[~f,~c]*(-1)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((5)*A[e]*F[~i,b,h]*F[~f,~h,f]*J[d,a,~d,~e,i]+F[~d,~e,d]*(5)*(-1)*F[~i,b,e]*J[h,a,~h,~f,i]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~j]*H[~e,~i,c,f]*J[~h,~d,i,j,~g]*F[~f,~c,b]*J[h,a,d,g,e]+A[~c]*J[i,a,j,e,h]*(-1)*H[~h,~d,g,f]*F[~f,~g,b]*J[~i,~j,d,c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[j,c,~j]*B[b,a]*(4)*H[~d,~i,h,i]*J[d,k,~k,~h,~c]+H[~k,~c,d,c]*(-1)*B[b,a]*J[k,h,~h,~d,~i]*(4)*F[j,i,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,e]*B[g,c]*F[a,~d,~f]*J[f,d,~e,~g,~c]+(-1)*B[g,e]*J[d,c,~f,~g,~e]*F[a,~c,~d]*B[b,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,a,~f,c]*A[~h]*J[g,h,~g,~c,i]*A[~i]*A[b]+A[~c]*A[~h]*(-1)*H[g,a,~g,i]*A[b]*J[f,c,~f,~i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,f,i,~e]*B[a,c]*(51)*J[~i,~c,~f,d,~d]*F[e,b,h]+H[~h,e,i,~c]*(-1)*(51)*B[a,d]*J[~i,~d,~e,f,~f]*F[c,b,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*F[~d,~c,~g]*J[d,e,j,c,~e]*F[i,~i,a]*B[~j,b]+F[d,~d,a]*B[~i,b]*J[g,c,i,j,~c]*A[e]*F[~g,~j,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,g,~c,a]*(99)*B[~f,b]*F[~d,~e,c]*F[~g,e,d]+(99)*F[~g,f,d]*(-1)*F[~d,~f,c]*B[~e,b]*H[e,g,~c,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,~c,~e,i,d]*H[b,~d,~g,g]*B[a,f]*F[c,~i,e]+B[a,d]*H[b,~i,~g,g]*J[~d,~e,~f,c,i]*(-1)*F[e,~c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~e,e]*H[k,~f,~c,~g]*J[j,c,~k,~i,~j]*H[i,a,g,b]+H[f,~g,~c,~i]*(-1)*F[g,~k,k]*J[e,c,~f,~j,~e]*H[j,a,i,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,~e]*A[e]*H[d,c,a,f]*A[~c]*B[~f,~d]+A[e]*H[d,c,a,f]*B[~f,~d]*(-1)*B[b,~e]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~g,a]*(49)*B[c,~c]*F[g,~d,f]*B[~f,d]+F[f,~c,d]*(49)*F[b,~f,a]*(-1)*B[g,~g]*B[~d,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,a,e,~d]*J[~i,c,~c,g,f]*A[i]*A[d]*F[~f,~e,b]+H[~c,a,i,~e]*(-1)*A[d]*F[~g,~i,b]*A[e]*J[~d,f,~f,c,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,g,~h]*F[b,~g,d]*A[a]*A[~d]*H[~c,c,h,f]+F[~d,c,~g]*A[~f]*F[b,~c,f]*H[~h,h,g,d]*(-1)*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~c,a,c]*A[~f]*A[d]*A[~d]*A[b]+A[b]*A[~f]*H[d,~c,a,c]*A[f]*(-1)*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((43)*J[j,~h,h,i,~j]*A[f]*B[~f,~i]*H[g,a,b,~g]+J[h,~i,i,g,~h]*H[j,a,b,~j]*(-1)*(43)*A[f]*B[~f,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*F[b,d,c]*H[i,~j,~d,a]*J[f,~f,h,~h,~i]*A[j]+H[i,~c,~h,a]*F[b,h,f]*J[j,~j,d,~d,~i]*A[c]*(-1)*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,a,b,d]*(83)*F[~d,h,g]*J[~f,f,~c,e,~g]*(-1)*A[~j]*F[c,j,~h]+A[~f]*H[~d,a,b,e]*F[~e,h,j]*J[~g,g,~c,d,~j]*(83)*F[c,f,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,d,b,c]*A[f]*F[a,~c,~f]*(4)*B[~d,e]+A[d]*(-1)*B[~e,c]*F[a,~f,~d]*(4)*H[~c,e,b,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*A[~e]*B[e,b]*H[~h,a,h,~i]*H[i,~c,~d,c]+(-1)*A[i]*H[d,~c,~i,c]*B[e,b]*A[~e]*H[~h,a,h,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,~e,~d,~g]*A[d]*B[~f,b]*A[c]*(44)*H[e,a,g,f]+H[g,a,d,f]*A[c]*A[e]*(-1)*(44)*B[~f,b]*H[~e,~g,~c,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*(49)*A[~c]*J[~e,a,g,~f,d]*F[b,f,e]*F[~g,~d,c]+F[b,g,d]*A[~c]*F[~f,~e,c]*(49)*J[~d,a,f,~g,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~g,c,~c,~j]*F[h,~i,b]*H[~f,i,a,d]*J[j,~d,~h,f,g]+F[j,~f,b]*J[c,~h,~j,d,g]*H[~g,i,~i,~c]*(-1)*H[~d,f,a,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,a,~d]*H[d,~h,b,e]*B[h,~e]*F[~c,c,~f]+B[e,~c]*H[d,~e,b,c]*F[f,a,~d]*F[~h,h,~f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[i,~c]*B[~e,~i]*A[a]*J[~f,c,e,h,b]*H[~h,f,~d,d]+B[~e,~d]*H[~i,c,~h,h]*(-1)*A[a]*J[~c,f,e,i,b]*B[d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[h]*A[~i]*J[b,i,~c,a,~h]*H[~e,e,~f,f]*(-1)*(38)+(38)*H[~c,c,~i,i]*A[h]*J[b,f,~h,a,~e]*A[~f]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~d,c]*J[~i,~g,~h,~f,~e]*F[e,a,h]*J[g,f,d,i,~c]+F[b,~e,f]*F[c,a,g]*(-1)*J[d,i,e,h,~f]*J[~h,~d,~g,~i,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~j,h,~g,~c]*J[f,c,g,d,~d]*A[i]*H[j,~f,b,~h]*B[~i,a]+(-1)*J[h,j,c,d,~d]*H[~f,g,~c,~j]*B[~i,a]*H[f,~h,b,~g]*A[i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*H[b,a,e,d]*A[c]*B[~f,~g]*H[f,~c,~d,~e]+H[d,~g,~f,~c]*B[~d,~e]*A[g]*A[e]*H[b,a,c,f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*B[f,a]*J[g,~h,h,b,~g]*B[~f,e]+J[e,~h,h,b,~e]*B[f,a]*(-1)*A[~g]*B[~f,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*(25)*H[d,~d,e,a]*A[f]*A[~f]*A[~e]*(-1)+A[f]*A[b]*A[~f]*(25)*H[e,~e,d,a]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,~c,c,b]*A[a]*B[h,i]*(60)*A[~e]*H[~i,~g,~h,g]+A[a]*A[~g]*B[e,i]*H[g,~c,c,b]*(60)*(-1)*H[~i,~h,~e,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,d,~h,e,~g]*F[f,i,~e]*J[~f,~j,~i,b,g]*F[a,j,h]+J[~f,f,~i,h,~g]*F[j,d,~h]*F[a,e,i]*(-1)*J[~j,~e,~d,b,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~d,j]*J[k,~c,~f,a,~k]*H[g,e,b,~g]*A[~e]*F[~j,c,d]+F[~g,e,d]*F[f,~d,g]*(-1)*A[~c]*J[j,~e,~f,a,~j]*H[k,c,b,~k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[k,l,d,~k,~i]*J[~h,h,~d,c,i]*A[~f]*B[j,~l]*J[~c,b,f,~j,a]+A[~h]*B[i,~d]*J[~j,b,h,~i,a]*(-1)*J[l,d,c,~l,~f]*J[~k,k,~c,j,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~c,i,d]*(48)*B[b,~i]*H[g,~g,a,~d]*F[h,c,~h]+F[d,i,~d]*B[b,~c]*(-1)*H[h,~h,a,~g]*F[~i,c,g]*(48)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,j,f]*A[~c]*(12)*H[~i,h,b,a]*H[~j,~d,i,~h]*H[e,~e,~f,c]*(-1)+H[~i,j,b,a]*A[~c]*F[d,e,h]*(12)*H[f,~f,~h,c]*H[~e,~d,i,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((48)*A[j]*H[i,d,~d,e]*J[f,~f,~e,~i,~c]*H[b,c,a,~j]+(-1)*A[d]*J[i,~i,~j,~f,~c]*H[f,e,~e,j]*(48)*H[b,c,a,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,~h,d,b]*H[a,e,~e,~d]*A[~g]*A[g]+(-1)*H[a,g,~g,~d]*H[h,~h,d,b]*A[~e]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*B[~f,e]*A[~d]*J[~e,a,d,c,b]*(71)*F[g,f,~c]+B[~e,c]*A[~g]*J[~c,a,f,d,b]*A[~f]*F[g,e,~d]*(-1)*(71)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,b]*F[a,~c,~e]*B[c,e]*A[~d]+B[c,b]*(-1)*F[a,~e,~d]*A[~c]*B[e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*F[~c,d,~f]*A[e]*A[c]*J[~e,a,~d,b,f]*(18)+A[f]*A[e]*(18)*F[~f,c,~d]*J[~e,a,~c,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,c]*A[~c]*A[a]*A[d]*A[~d]+B[b,c]*A[~c]*(-1)*A[d]*A[~d]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,e,c]*F[a,~d,j]*A[i]*B[~j,b]*J[~i,g,d,~c,~g]+J[~i,g,e,~j,~g]*B[~c,b]*(-1)*F[a,~e,c]*A[i]*F[~d,d,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,k,~i,l,f]*(45)*F[~e,~j,~h]*(-1)*J[~l,e,a,b,~k]*J[~d,d,i,h,j]+J[~h,f,a,b,~i]*J[~k,i,~e,h,k]*J[~j,j,e,l,d]*F[~f,~d,~l]*(45)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,a]*B[~d,g]*(78)*A[d]*J[c,f,~c,b,~g]*(-1)+A[f]*J[g,c,~g,b,~d]*B[~f,d]*B[~c,a]*(78)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,i,~e,~f]*B[e,~g]*F[f,g,~i]*H[~j,c,j,~c]*A[a]+H[b,j,~i,~f]*F[f,g,~j]*(-1)*A[a]*H[~c,e,c,~e]*B[i,~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*(12)*A[a]*F[b,~d,d]*A[e]+(12)*A[~e]*A[e]*(-1)*F[b,~d,d]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[c]*(81)*B[~e,~d]*A[b]*F[~c,d,a]*A[e]+F[~e,d,a]*A[b]*(81)*B[~c,~d]*A[c]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,h]*A[~h]*B[b,c]*(71)*(-1)*J[a,g,d,~d,~g]+A[~c]*J[a,h,d,~d,~h]*B[b,g]*B[~g,c]*(71)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*J[~d,b,d,e,~f]*(-1)*(8)*A[a]*A[~g]*B[f,g]+J[~g,b,g,d,~e]*B[e,f]*(8)*A[~d]*A[a]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,~h,b]*J[~j,h,c,d,~c]*H[~f,~d,~g,j]*H[g,a,f,e]+J[~g,j,h,e,~h]*F[~d,~j,b]*H[f,a,c,d]*H[~c,~e,~f,g]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,f,c,d,k]*J[~e,~l,e,j,a]*F[i,b,l]*A[~k]*H[~c,~j,~i,~d]+(-1)*A[~j]*J[~c,~e,c,f,a]*F[i,b,e]*J[~k,k,d,l,j]*H[~d,~f,~i,~l]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,j,~j]*J[h,i,~i,~h,b]*B[a,g]*B[~f,~g]+B[~g,~h]*(-1)*J[i,f,~f,~i,b]*F[g,j,~j]*B[a,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*F[d,c,a]*A[b]*(38)*B[e,~c]*A[~d]+A[~c]*F[c,e,a]*B[d,~e]*A[~d]*A[b]*(-1)*(38)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*(22)*F[a,~d,b]*A[h]*H[~h,f,~e,e]*F[d,i,~i]*(-1)+A[i]*A[~f]*F[a,~e,b]*F[e,h,~h]*(22)*H[~i,f,~d,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*J[b,~g,~d,~c,d]*A[e]*H[c,g,~e,~h]*A[h]+J[b,~g,~h,~d,h]*H[d,g,~e,~c]*A[a]*A[c]*(-1)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[i]*J[e,b,d,a,~f]*J[~g,~e,~d,~h,h]*F[g,~i,f]+J[~f,~i,~h,~d,d]*J[i,b,h,a,~e]*A[g]*F[f,~g,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,~h,~g,h]*A[b]*B[~c,e]*F[a,c,~e]+F[a,g,~c]*B[~g,c]*A[b]*(-1)*H[e,~h,~e,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*(-1)*J[e,i,b,j,c]*(57)*J[d,~h,a,~i,~c]*H[~j,~d,~g,g]*A[~e]+(57)*A[~e]*A[d]*H[~g,~h,~i,i]*J[e,c,b,g,j]*J[h,~d,a,~c,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((35)*A[~g]*F[d,~f,e]*A[~d]*B[a,~c]*J[f,c,g,~e,b]+A[~c]*(35)*F[c,~d,f]*B[a,~e]*(-1)*J[d,e,g,~f,b]*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*J[b,g,~d,c,i]*F[~c,~h,~g]*J[~i,~e,a,e,h]+(-1)*F[~c,~g,~e]*J[~d,~i,a,i,g]*A[h]*J[b,e,~h,c,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,~e,~d,b]*A[~h]*H[~c,d,~g,~f]*H[h,a,f,e]*A[g]+(-1)*H[c,a,h,e]*H[~d,g,~f,~h]*A[~c]*A[f]*H[d,~e,~g,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,~i,i]*F[b,d,~f]*(-1)*A[e]*(15)*J[~e,f,~g,~d,~c]*B[g,a]+F[b,g,~c]*A[e]*F[f,~d,d]*J[~e,c,~i,~g,~f]*(15)*B[i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*(12)*F[~g,c,d]*B[~e,a]*A[f]*J[e,g,b,~d,~f]+A[~d]*B[~f,a]*(12)*F[~g,d,c]*A[e]*(-1)*J[f,g,b,~c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,c,b,h,g]*F[i,~f,~g]*F[d,a,f]*F[~i,~d,~h]+(-1)*F[~i,~h,~f]*F[i,~d,~g]*J[~c,c,b,f,g]*F[h,a,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~h,~d]*B[~g,g]*F[c,~c,d]*B[a,b]*A[h]+B[~d,~h]*(-1)*A[d]*B[a,b]*B[~g,g]*F[c,~c,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,a,c,~f,g]*H[~c,d,~g,~e]*(37)*A[f]*B[b,e]*(-1)+B[b,f]*A[c]*H[~d,g,~e,~f]*(37)*J[~g,a,d,~c,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*H[h,i,~h,b]*J[~d,e,d,~f,~i]*A[~e]*(69)*A[f]*(-1)+H[i,d,~i,b]*A[a]*A[h]*A[~f]*J[~e,f,e,~h,~d]*(69)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*F[b,d,a]*B[~d,e]*A[~e]*A[c]+F[b,e,a]*A[~d]*A[d]*A[~c]*(-1)*B[~e,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,~g,~e,g]*(82)*H[~f,b,e,a]*A[f]*A[~d]+H[g,~e,~f,e]*A[~g]*H[~d,b,f,a]*A[d]*(-1)*(82)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[a,~g,e,~e]*J[~h,~m,b,m,d]*A[~l]*H[h,j,k,~k]*(78)*H[~j,l,~d,g]+H[~h,j,~m,k]*(-1)*A[~j]*J[~g,~l,b,l,m]*H[a,~k,d,~d]*H[g,h,e,~e]*(78)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((30)*F[f,~k,~h]*H[~g,a,~f,~d]*J[~j,c,~i,b,~c]*A[h]*J[k,i,g,d,j]+(30)*J[j,c,d,k,g]*H[~d,a,~h,~k]*(-1)*A[i]*F[h,~j,~i]*J[~g,f,~c,b,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,~c,e,~g,h]*(6)*J[c,b,~e,~f,g]*A[a]*(-1)*A[f]+(6)*J[h,b,~c,~g,e]*J[~f,~h,c,~e,f]*A[a]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,b,~e]*(-1)*B[~c,a]*B[f,d]*(72)*F[e,c,~d]+(72)*F[f,d,~c]*B[~d,a]*F[~e,b,~f]*B[e,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[j,a,~i,i,f]*(-1)*F[d,g,~d]*H[~j,~g,~c,~f]*B[b,c]*(47)+F[c,j,~c]*B[b,d]*J[g,a,~i,i,f]*(47)*H[~g,~j,~d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((27)*A[a]*J[~g,e,~f,f,g]*A[~e]*A[b]+A[a]*A[b]*(27)*(-1)*A[~g]*J[~f,g,~e,e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*A[a]*(-1)*(65)*F[c,b,~f]*J[g,f,d,~c,~d]+(65)*A[a]*F[d,b,~c]*J[g,c,f,~d,~f]*A[~g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~f,~e]*F[c,d,f]*H[~d,e,~c,b]*A[a]+A[a]*(-1)*F[e,d,c]*B[~c,~f]*H[~d,f,~e,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[j]*(84)*H[~c,a,c,f]*J[e,b,~d,~h,i]*(-1)*J[~i,~j,h,~e,d]*A[~f]+A[~c]*H[~j,a,j,c]*J[f,b,~e,~d,h]*A[i]*(84)*J[~h,~i,d,~f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,c]*B[b,e]*A[a]*(50)*(-1)*A[d]*B[~c,~d]+A[d]*B[~e,c]*(50)*B[b,e]*B[~c,~d]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((37)*H[g,~i,b,~j]*B[h,f]*J[~g,a,~d,e,d]*(-1)*J[i,j,~f,~h,~e]+B[i,f]*J[~h,a,~g,j,g]*(37)*H[h,~e,b,~d]*J[e,d,~f,~i,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((76)*H[a,e,~f,~c]*F[c,d,~e]*B[~d,f]*A[b]*(-1)+H[a,e,~d,~f]*(76)*B[~c,d]*A[b]*F[f,c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,a]*F[e,b,h]*F[~h,~f,~g]*H[d,~d,f,g]+B[~f,a]*F[~h,~e,~d]*H[g,~g,e,d]*(-1)*F[f,b,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~d,i]*B[~g,~f]*H[d,a,b,c]*(70)*J[~h,h,~c,g,~i]+B[~f,~h]*F[h,~i,c]*H[i,a,b,g]*J[~d,d,~g,f,~c]*(70)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[~f]*J[b,~i,f,h,a]*B[~c,~e]*J[e,i,~g,g,~h]+J[f,e,~i,i,~h]*(-1)*B[~c,~f]*A[c]*A[~g]*J[b,~e,g,h,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*B[~c,a]*B[e,b]*B[~d,~e]*A[c]+A[d]*A[e]*B[c,b]*(-1)*B[~e,a]*B[~d,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,d,b,f]*B[~c,a]*B[~d,~e]*B[e,~f]*(71)+B[c,~d]*(-1)*H[e,f,b,d]*(71)*B[~e,a]*B[~f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*J[c,~f,d,b,e]*(52)*A[~d]*A[~c]*B[a,f]+B[a,c]*A[~f]*(-1)*A[~e]*A[~d]*(52)*J[f,~c,e,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~i,f,i,~h,g]*A[a]*B[c,h]*H[~c,~f,b,~e]*B[~g,e]+A[a]*B[c,e]*J[~i,h,i,~e,g]*B[~g,f]*(-1)*H[~c,~h,b,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*B[~k,a]*A[~j]*J[b,e,f,~e,~f]*J[~i,j,i,c,k]*(51)*(-1)+A[~j]*B[~k,a]*A[~i]*(51)*J[~f,i,f,j,k]*J[b,e,c,~e,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~c,c,g]*A[d]*A[f]*F[~d,~f,b]*B[~g,a]+F[~f,f,g]*F[~c,~d,b]*B[~g,a]*A[d]*A[c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*(33)*B[~d,~c]*A[d]*B[a,f]*H[h,~g,e,~f]*J[b,c,~h,~e,g]+(33)*B[a,d]*J[b,h,~c,~f,g]*H[c,~g,f,~d]*B[~e,~h]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*A[e]*F[a,g,~d]*F[~c,b,f]*H[~g,~e,d,c]+H[~e,~f,d,g]*A[~c]*(-1)*F[a,e,~d]*F[~g,b,c]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,~g,e,g,~e]*A[~f]*A[b]*A[a]+A[~f]*A[b]*J[f,~g,e,g,~e]*A[a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*B[i,a]*A[~f]*(55)*F[~d,d,f]*J[c,b,~i,h,~c]+B[d,a]*J[f,b,~d,c,~f]*(55)*(-1)*A[~c]*A[~h]*F[~i,i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*H[~c,d,g,f]*J[c,e,b,a,~g]*A[~f]*A[~d]+J[e,f,b,a,~c]*A[~d]*A[~f]*A[~g]*H[~e,g,c,d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,f,h]*H[~g,~f,~e,g]*H[~c,a,~h,i]*F[e,c,~i]+F[b,g,i]*F[f,e,~h]*(-1)*H[~e,a,~i,h]*H[~c,~g,~f,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,c,~c,k,d]*H[j,~k,f,~h]*H[~j,g,i,h]*A[~i]*H[~d,~g,a,~f]+J[b,d,~d,g,f]*A[~i]*H[j,~g,k,~h]*(-1)*H[~f,~c,a,~k]*H[~j,c,i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,~f]*(65)*F[b,e,~d]*B[~c,g]*J[c,~g,~e,d,f]+(65)*F[b,c,~d]*J[e,~f,~c,d,g]*B[a,~g]*B[~e,f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,e,~g,a]*J[~d,~h,f,h,~i]*B[g,d]*F[~e,i,b]+(-1)*B[h,g]*J[~g,~d,e,d,~i]*H[~e,f,~h,a]*F[~f,i,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((58)*J[c,~g,~h,~e,b]*F[~c,g,f]*F[~f,~d,e]*B[d,h]*A[a]+J[d,~f,~c,~g,b]*F[~d,f,h]*(58)*A[a]*F[~h,~e,g]*(-1)*B[e,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,c]*B[g,a]*F[b,~d,f]*J[d,~f,~g,~e,~c]+B[f,a]*J[d,~c,~f,~e,~g]*B[e,g]*F[b,~d,c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*H[d,~c,~f,a]*H[b,~d,h,~h]*B[f,~e]*A[e]+H[b,~c,e,~e]*A[f]*(-1)*A[d]*H[c,~f,~h,a]*B[h,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,j,~f,i,h]*F[~h,~i,~c]*B[c,e]*A[f]*J[~d,~e,a,d,~j]+A[c]*J[~h,~e,a,h,~f]*B[i,e]*J[b,f,~c,j,d]*(-1)*F[~d,~j,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,~d,f,g]*B[c,~e]*B[~f,~g]*H[b,a,d,~c]+H[b,a,d,~g]*(-1)*B[g,~f]*H[f,~d,c,e]*B[~c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,j,a,~f,~c]*H[i,~i,~j,d]*F[c,~d,e]*(99)*A[f]*F[b,~e,~h]+(99)*H[h,~h,~j,f]*F[b,~c,~d]*F[i,~f,c]*J[d,j,a,~e,~i]*(-1)*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[g,~c,~i]*A[~h]*J[i,a,~f,f,b]*(58)*J[~g,j,c,~j,k]*B[h,~k]+B[j,~c]*(58)*(-1)*J[i,a,~h,h,b]*A[~j]*F[k,~g,~i]*J[~k,f,g,~f,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,~f,~k,k]*F[b,a,~g]*H[c,g,f,j]*J[~i,~c,~d,i,~j]+(-1)*J[~k,~d,~f,k,~j]*H[f,~i,~g,g]*F[b,a,~c]*H[d,c,i,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~c,e,~d]*B[a,~e]*A[d]*A[b]*A[c]+F[~e,d,~c]*B[a,~d]*A[e]*A[c]*A[b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,g,~g,f,b]*A[~e]*B[~f,d]*B[~d,e]+B[~f,g]*J[a,d,~d,e,b]*(-1)*A[~g]*B[~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,~e]*(-1)*F[~c,a,e]*B[c,b]*(50)*A[~d]+F[~e,a,c]*B[e,b]*B[d,~c]*(50)*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*F[b,e,c]*(8)*B[d,a]*B[~d,~e]+(-1)*B[~c,~d]*F[b,d,e]*A[~e]*B[c,a]*(8)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,~h,~e,h,~d]*(5)*H[d,a,i,~i]*A[~g]*B[e,g]+(-1)*H[e,a,i,~i]*(5)*B[h,g]*A[~g]*J[b,~d,~h,d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[g]*A[e]*H[~d,d,~g,h]*J[b,~e,~c,~h,a]+H[~e,e,~g,h]*J[b,~d,~c,~h,a]*(-1)*A[d]*A[g]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,~e,b,f]*A[d]*B[a,~f]*A[~d]+A[~e]*H[d,~d,b,f]*A[e]*(-1)*B[a,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*F[~d,~c,f]*F[~f,e,a]*A[d]*B[~e,b]+F[~d,e,a]*A[c]*F[~c,~f,d]*B[~e,b]*(-1)*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[j,~j,~l,l,~i]*J[~m,~n,b,n,i]*H[g,a,~g,m]*B[~k,k]+H[l,a,~l,g]*(-1)*J[~g,~i,b,i,j]*B[~m,m]*J[n,~n,~k,k,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[i]*(29)*A[b]*J[~g,~c,c,h,e]*H[f,~i,~e,~h]*F[g,a,~f]+J[~i,~f,f,c,g]*(-1)*H[h,~e,~g,~c]*(29)*A[b]*A[e]*F[i,a,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~g,a]*J[c,e,~c,~h,h]*A[g]*A[~e]+A[~h]*(-1)*F[b,~g,a]*J[e,h,~e,~c,c]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,a,~f,b,c]*(4)*F[d,e,i]*A[~i]*J[h,~d,~h,f,~c]+J[~c,a,~h,b,d]*J[i,~e,~i,h,~d]*A[~f]*F[e,c,f]*(4)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*J[~c,c,j,~f,~e]*H[i,b,h,~j]*J[a,~d,e,f,~i]*A[~h]+A[~e]*J[~h,h,j,~d,~f]*A[c]*(-1)*J[a,~c,f,d,~i]*H[i,b,e,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,d]*(-1)*A[h]*B[g,~d]*(91)*F[a,f,~h]*H[~g,~c,c,~f]+B[d,~g]*H[~d,~h,h,~c]*B[b,g]*F[a,c,~f]*(91)*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,h,~h,d]*F[b,a,c]*F[~e,~d,~c]*B[~g,e]+B[~g,d]*F[~d,~h,~e]*H[g,c,~c,h]*(-1)*F[b,a,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,~f,g,~g]*J[~e,a,~c,f,h]*B[b,~h]*A[e]+H[c,~e,h,~h]*A[g]*(-1)*B[b,~f]*J[~g,a,~c,e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*F[~c,f,d]*F[~f,~d,~e]*F[a,c,e]+(-1)*A[b]*F[~d,c,e]*F[~c,~e,~f]*F[a,d,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*(50)*H[~h,~l,m,b]*(-1)*J[~i,k,f,~f,~c]*J[~e,~m,l,~k,i]*J[~j,a,h,e,j]+J[~k,a,i,h,k]*J[~f,e,l,~l,~c]*H[~i,~j,m,b]*(50)*A[c]*J[~h,~m,j,~e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~i,~h,b,~e]*F[h,~f,c]*H[~g,i,~d,a]*J[f,e,d,g,~c]+(-1)*H[~h,~g,b,~d]*H[~f,h,~c,a]*J[i,d,c,f,~e]*F[g,~i,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,d]*J[c,~d,f,a,g]*B[~f,~e]*(89)*F[~c,e,b]*(-1)+B[~f,~g]*B[~c,d]*(89)*F[~e,g,b]*J[e,~d,f,a,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,~e,g,b,f]*A[e]*B[~c,a]*A[~f]*F[c,~g,d]+J[~c,~d,e,b,f]*F[g,~e,c]*B[~g,a]*A[d]*(-1)*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,d]*H[~e,~c,b,a]*A[~d]*A[e]+(-1)*H[~d,~e,b,a]*A[d]*B[e,c]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,a]*J[g,b,~c,~g,e]*B[~e,~f]*A[f]+J[c,b,~e,~c,f]*(-1)*B[~f,~g]*B[e,a]*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~e,j,~i,k,~j]*J[a,e,i,g,b]*J[l,f,~g,~l,~f]*A[~k]+J[g,l,~j,~g,~l]*(-1)*A[~i]*J[~e,f,~k,i,~f]*J[a,e,k,j,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*A[b]*F[~c,~f,c]*B[e,a]*A[f]+B[f,a]*A[~f]*F[~c,~e,c]*(-1)*A[e]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*(-1)*H[~h,~c,~g,h]*A[b]*F[~f,f,c]*A[a]*(10)+H[~g,~h,~f,g]*F[~c,c,h]*A[b]*A[a]*A[f]*(10)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((53)*B[~c,a]*B[g,~g]*A[b]*B[f,~e]*F[c,e,~f]+(-1)*F[e,g,~c]*B[f,~f]*(53)*A[b]*B[c,~g]*B[~e,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[l]*J[f,~f,~e,i,b]*H[~k,a,~d,k]*J[~j,~l,d,j,~i]*A[e]+H[~i,a,~j,i]*(-1)*J[l,~l,~f,d,b]*A[e]*A[f]*J[~k,~e,j,k,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,~f]*B[~c,c]*B[d,~g]*(65)*F[b,a,f]*(-1)*A[g]+A[c]*(65)*B[~d,d]*B[g,~c]*B[~g,~f]*F[b,a,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~i]*J[~h,a,c,~c,d]*J[b,g,h,~g,i]*(61)*A[~d]+(-1)*(61)*J[b,c,h,~c,g]*A[~d]*A[~g]*J[~h,a,i,~i,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~l]*J[~h,~c,l,~k,~j]*H[i,k,~i,~f]*H[j,h,b,f]*H[d,~d,c,a]+H[k,~k,l,a]*(-1)*A[~f]*H[c,d,b,h]*H[i,j,~i,~h]*J[~d,~l,f,~j,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*H[a,e,b,d]*(52)*A[c]*B[~d,~c]*B[~f,~e]*A[f]+A[f]*B[~d,~e]*H[a,c,b,d]*(52)*B[~f,~c]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,~c,~f]*A[~e]*A[c]*F[b,f,d]*B[e,a]+B[d,a]*A[~d]*F[~e,~c,~f]*(-1)*A[c]*F[b,f,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,e,b]*A[~e]*F[~d,a,c]*A[~c]+A[~e]*A[~c]*F[d,e,b]*F[~d,a,c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[d]*B[~d,~c]*B[a,b]*A[c]+B[~d,~c]*B[a,b]*A[c]*(-1)*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[l]*H[j,~k,~j,~g]*J[~h,~l,d,f,g]*F[~d,i,~i]*(12)*J[~f,k,a,h,b]+(12)*F[~h,i,~i]*A[f]*J[~l,g,a,k,b]*J[~k,~f,h,l,d]*H[j,~g,~j,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~l,i,~c,l]*A[f]*F[~f,m,~m]*J[b,a,~n,c,~i]*J[~k,n,k,h,~h]+J[~l,n,l,i,~i]*H[~m,k,~c,m]*A[f]*F[~f,h,~h]*(-1)*J[b,a,~n,c,~k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,~i,i,~d,~k]*(86)*H[k,c,~c,b]*A[l]*H[d,~h,h,~l]*B[j,a]+J[~l,~k,k,~h,~d]*H[d,i,~i,b]*B[l,a]*(86)*A[j]*(-1)*H[h,~c,c,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,~i,g,b,~d]*B[d,~e]*B[e,a]*F[~g,h,~h]+F[~g,e,~e]*J[h,~h,g,b,~d]*B[i,a]*(-1)*B[d,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[f]*H[~f,e,~g,~d]*(98)*B[g,a]*F[b,c,h]*H[~h,~c,d,~e]*(-1)+F[b,e,f]*H[~f,~e,c,~h]*A[g]*H[~g,h,~d,~c]*(98)*B[d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((69)*A[~e]*(-1)*B[e,~f]*B[c,~c]*F[a,~g,f]*B[b,g]+B[b,g]*(69)*A[~e]*F[a,~g,c]*B[e,~c]*B[f,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,c,~h,~c,b]*(-1)*A[k]*(32)*H[i,f,~f,a]*B[~j,~i]*B[j,~k]+H[f,j,~j,a]*B[i,~c]*A[c]*B[~i,~f]*(32)*J[h,k,~h,~k,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[h,d,i,f,~d]*J[c,~h,~c,a,j]*F[b,~f,~i]*(97)*A[~j]+J[i,~d,~i,a,f]*F[b,~c,~j]*J[d,h,j,c,~h]*(-1)*A[~f]*(97)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,~e,a,d]*F[b,g,~i]*F[h,i,f]*A[~g]*F[~f,e,~h]+F[d,h,i]*A[~g]*(-1)*F[~i,e,~d]*H[~f,~e,a,f]*F[b,g,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,~c,~g]*F[~e,g,~d]*B[f,a]*H[d,e,c,b]+(-1)*F[~g,~d,~f]*B[g,a]*F[~c,f,~e]*H[e,c,d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*F[c,~c,~f]*A[e]*B[a,f]*A[~e]*(69)+A[~e]*F[f,~f,~c]*(-1)*B[a,c]*(69)*A[b]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,a]*J[h,e,~i,i,d]*(9)*(-1)*A[~h]*A[c]*J[~e,~d,~g,b,~c]+A[~d]*(9)*A[g]*J[~e,~h,~c,b,~g]*B[c,a]*J[d,e,~i,i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,c]*B[~d,~e]*F[f,d,~c]*F[~f,e,a]+B[~c,~f]*B[b,e]*F[d,c,~e]*F[~d,f,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~d,c,a]*B[d,e]*A[~e]*A[~c]+(-1)*H[b,~e,c,a]*A[~d]*B[e,d]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~g,~f,d]*B[a,h]*F[c,~e,f]*J[~d,~h,~c,e,g]+H[b,~d,~h,g]*B[a,c]*F[f,~e,h]*(-1)*J[~g,~c,~f,e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[a,i]*J[~j,~g,g,~d,e]*(-1)*H[c,~f,j,~e]*J[b,d,~i,~c,f]*(97)+J[~j,~g,g,~i,c]*B[a,e]*H[f,~d,j,~c]*(97)*J[b,i,~e,~f,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,~g,a,~j,~i]*J[k,m,h,f,~k]*J[b,i,j,~m,~f]*J[g,c,~l,~h,l]+J[k,m,~l,~i,l]*J[~m,~k,a,~h,~c]*(-1)*J[f,g,i,j,~f]*J[b,c,h,~g,~j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*B[~e,~c]*B[b,e]*J[~h,h,c,g,~g]+A[a]*B[~h,~g]*(-1)*B[b,h]*J[~c,c,g,e,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~g,g,h]*A[~h]*B[~k,k]*J[j,a,~j,~i,i]*(8)*(-1)+H[b,~j,j,k]*B[~g,g]*(8)*J[i,a,~i,~h,h]*A[~k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*J[a,~d,g,d,~c]*A[c]*F[e,~g,b]+A[~d]*(-1)*A[e]*F[d,~g,b]*J[a,~c,g,c,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~e,~i,b,i]*A[~c]*B[h,e]*F[f,~g,a]*H[g,c,~f,~h]+(-1)*H[g,c,~i,~h]*F[i,~g,a]*B[h,e]*H[~e,~f,b,f]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[j,~e,b,i]*(67)*H[~i,a,~c,~d]*(-1)*J[~f,d,h,c,~h]*F[f,e,~j]+(67)*F[j,e,~h]*H[h,~e,b,i]*J[~j,f,c,d,~c]*H[~i,a,~d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*J[d,~g,a,~d,~i]*(34)*H[h,e,~h,g]*A[i]*A[b]+(34)*A[b]*(-1)*H[e,g,~e,i]*A[~g]*J[h,~i,a,~h,~d]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~i,g,~g,~c,e]*(4)*F[~h,i,~d]*A[~e]*H[b,h,a,c]*A[d]*(-1)+H[b,d,a,h]*J[~i,c,~c,~h,g]*F[~d,i,~e]*A[~g]*A[e]*(4)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~i,b,~g,e,c]*H[h,i,~h,d]*B[~d,g]*F[~c,~e,a]+H[c,h,~c,e]*F[~g,~d,a]*J[~h,b,~i,d,g]*B[~e,i]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,~d,g]*B[~g,~f]*B[a,~e]*A[f]*B[b,e]+F[g,~g,d]*B[a,~f]*B[~d,~e]*B[b,f]*A[e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[f,g]*B[c,a]*A[b]*A[~g]*H[~f,~c,e,~e]+A[~f]*A[b]*B[c,f]*H[~c,~g,e,~e]*B[g,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*(73)*F[b,c,~e]*(-1)*A[d]*F[~c,e,a]+A[~d]*F[b,e,~c]*F[~e,c,a]*A[d]*(73)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,i,~c,g,~h]*J[~i,a,f,~d,b]*F[~f,j,h]*J[~j,c,~g,d,~e]*(92)+F[~h,c,d]*J[~c,f,~e,g,~i]*J[~j,a,h,~g,b]*J[i,j,~f,e,~d]*(92)*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[j,~c,b,~f]*(42)*J[f,g,~j,~e,e]*F[i,~i,a]*B[~g,c]*(-1)+H[g,~f,b,~e]*J[e,c,~g,~j,j]*B[~c,f]*(42)*F[i,~i,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,~h]*F[~g,g,~f]*A[b]*J[h,~i,f,i,c]*A[a]+B[~g,~h]*(-1)*J[h,~c,i,c,g]*A[a]*F[~f,f,~i]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~d]*A[~c]*B[d,c]*A[a]*A[b]+A[~c]*(-1)*A[b]*B[c,d]*A[a]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*(97)*A[a]*(-1)*A[f]*B[~d,d]*F[e,~f,b]+F[f,~d,b]*A[d]*B[~e,e]*A[~f]*A[a]*(97)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[b,~d,~k,k]*A[~c]*H[~j,j,d,c]*A[~i]*H[e,a,i,~e]+A[~j]*H[~c,c,k,j]*H[b,~k,~d,d]*H[i,a,e,~i]*(-1)*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((33)*A[c]*A[~d]*A[a]*F[~c,d,b]+(33)*(-1)*A[c]*A[~d]*F[~c,d,b]*A[a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,~h]*H[c,h,e,g]*J[b,f,~e,~g,a]*F[~d,~c,~f]+F[~d,~h,~f]*(-1)*H[h,e,g,c]*B[d,~e]*J[b,f,~g,~c,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[e,~h,a,~c,c]*A[b]*F[~g,g,h]*A[~e]*(3)+A[~h]*(-1)*F[~e,e,c]*J[h,~c,a,~g,g]*(3)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,~g,~e]*J[~d,e,b,g,~f]*B[a,f]*A[d]*F[~i,~c,i]*(-1)*(30)+F[~d,~f,d]*(30)*B[a,g]*A[c]*J[~c,i,b,e,~g]*F[f,~e,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[c]*A[a]*F[b,e,~d]*H[~e,g,~g,d]*A[~c]+H[~e,c,~c,g]*A[a]*F[b,e,~g]*A[~d]*(-1)*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,g,~d,d,b]*B[c,~c]*(62)*A[a]*B[~g,h]+(62)*A[a]*J[~g,d,~h,h,b]*(-1)*B[c,~c]*B[~d,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*H[~c,a,d,~d]*H[f,g,b,c]*A[~f]+(-1)*A[~c]*H[~d,a,f,~f]*A[~g]*H[c,g,b,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[f,c,a,~d,~g]*B[d,b]*A[~c]*F[g,~f,e]*A[~e]+J[f,d,a,~g,~c]*A[~d]*F[c,~f,e]*A[~e]*(-1)*B[g,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,~e,~f,~c,c]*F[~h,~i,h]*F[b,a,e]*A[f]+J[e,~f,~c,~h,h]*F[~i,~e,i]*(-1)*F[b,a,f]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,b]*H[h,f,~g,~f]*A[~h]*(52)*F[a,d,~d]+B[d,b]*A[~f]*(-1)*H[f,h,~d,~h]*F[a,g,~g]*(52)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,~e]*H[a,b,e,~h]*A[h]*A[f]*H[c,d,~f,~c]+H[f,e,~h,~f]*H[a,b,c,~d]*(-1)*A[d]*B[~e,~c]*A[h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,f,a,~c]*A[d]*A[b]*H[c,~f,~d,~e]+H[d,~e,~c,~f]*A[c]*H[f,e,a,~d]*(-1)*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,g]*A[~e]*F[e,b,a]*B[f,~f]+A[~g]*F[g,b,a]*B[~f,f]*B[e,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[e]*B[b,~d]*(-1)*F[~e,a,~f]*B[~c,d]*B[f,c]*(61)+F[~c,a,~e]*B[b,~d]*A[c]*B[~f,d]*(61)*B[e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[a,f,g,b,~f]*B[~d,~c]*B[~g,d]*A[c]+B[~c,f]*J[a,g,c,b,~g]*B[~f,~d]*A[d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((19)*B[e,~e]*H[~h,~f,a,b]*B[~g,h]*H[f,~i,g,i]+H[f,~e,g,e]*B[~g,i]*H[~i,~f,a,b]*(-1)*(19)*B[h,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~h,a]*B[e,c]*J[~g,~d,~e,h,d]*F[~c,g,b]+B[~h,a]*F[~c,g,b]*J[~g,~d,~e,h,d]*(-1)*B[e,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,h,~g,g,e]*B[a,d]*(11)*A[~e]*B[~d,b]+(11)*B[~d,b]*B[a,d]*A[~g]*(-1)*J[~h,h,~e,e,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((70)*(-1)*F[~g,~e,~c]*A[a]*F[b,g,~f]*A[d]*H[f,c,e,~d]+A[a]*(70)*F[b,f,~g]*F[~f,~d,~c]*H[g,c,d,~e]*A[e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,~d]*A[b]*(9)*(-1)*B[d,~e]*J[~g,~f,e,a,f]+B[g,~e]*(9)*J[~g,~d,f,a,d]*B[e,~f]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,i,~i]*F[k,j,l]*J[~k,d,~c,~d,~l]*J[a,~j,c,~h,h]+J[~j,h,~c,~h,~i]*J[a,~l,c,~d,d]*F[j,l,i]*(-1)*F[b,k,~k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,~d,~h,a,c]*B[d,b]*(64)*A[~i]*F[h,g,~g]*A[i]+(-1)*A[~i]*F[h,g,~g]*(64)*A[i]*B[c,b]*J[~d,~c,~h,a,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((69)*J[a,~c,g,f,~i]*F[d,~d,i]*A[~e]*J[e,b,~f,~g,c]+(-1)*F[i,~i,c]*J[f,b,~e,~g,d]*(69)*A[~f]*J[a,~d,g,e,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~f,g,f,d,a]*B[b,~c]*B[~g,~d]*(86)*A[c]+(86)*B[~g,~d]*J[~c,g,c,d,a]*B[b,~f]*(-1)*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,g,h,~c]*B[b,~d]*J[e,~e,c,a,~g]*(43)*A[~h]+A[~c]*H[g,e,c,~d]*B[b,~g]*(43)*J[h,~h,d,a,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*J[l,~m,g,m,~l]*A[~c]*J[~i,~k,c,k,b]*H[j,~j,i,a]+J[~j,~l,k,l,b]*A[~k]*A[~g]*(-1)*J[i,~c,g,c,~i]*H[m,~m,j,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[d,b,c]*A[a]*B[~d,e]*A[~e]*A[~c]+A[a]*A[~c]*B[~d,e]*F[d,b,c]*A[~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[a,b,~d]*H[f,d,~h,~f]*B[g,~g]*A[h]+F[a,b,~g]*A[d]*B[f,~f]*(-1)*H[h,g,~d,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,~i,~e]*(-1)*H[~c,~f,i,e]*(59)*B[a,~d]*J[d,f,g,c,~g]+J[d,i,e,g,~e]*H[~g,~i,f,c]*F[b,~f,~c]*B[a,~d]*(59)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((63)*H[c,~f,d,~i]*(-1)*B[e,f]*F[b,a,~e]*J[~c,~h,~d,i,h]+H[c,~f,i,~d]*B[e,f]*F[b,a,~e]*(63)*J[~c,~h,~i,d,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,a,~d]*(78)*F[f,d,~e]*A[~f]*F[b,g,~c]*B[~g,e]*(-1)+F[g,d,~e]*B[~f,e]*A[~g]*F[c,a,~d]*(78)*F[b,f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~j,~i,g]*J[~l,l,b,~c,c]*H[i,a,j,k]*H[~f,~k,~g,f]+(-1)*H[~k,~l,~f,k]*J[~g,g,b,~j,j]*F[~c,~i,f]*H[i,a,c,l]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[j,d,h,~h]*A[~d]*F[g,a,~g]*H[~j,~i,b,i]+H[~g,~j,b,j]*F[h,a,~h]*(-1)*H[g,d,i,~i]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[h,c,b,~h]*B[g,e]*B[~e,~d]*H[~c,d,a,~g]+B[~c,~e]*H[d,h,b,~d]*H[~h,e,a,~g]*B[g,c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,g,b]*J[h,a,d,f,~h]*A[~d]*A[~f]*(60)+F[~g,g,b]*A[~f]*(-1)*A[~d]*J[h,a,d,f,~h]*(60)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((91)*B[h,~g]*H[f,~h,c,b]*J[~c,~f,g,e,~d]*(-1)*F[~e,d,a]+F[~f,e,a]*B[h,~g]*(91)*H[c,~h,d,b]*J[~d,~c,g,f,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,k,~g,d]*(70)*F[f,~j,j]*(-1)*J[~f,~d,h,~c,a]*H[~k,b,~h,c]+F[f,~k,k]*H[h,j,~h,c]*(70)*J[~f,~c,g,~d,a]*H[~j,b,~g,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,g]*(35)*J[~k,k,~j,~i,j]*B[b,i]*F[a,h,~h]*(-1)+B[b,g]*(35)*F[a,i,~i]*J[~k,k,~j,~g,j]*B[~h,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,a,e,f]*F[i,d,~e]*A[b]*J[~d,~i,h,~j,~g]*F[j,g,~h]+(-1)*F[h,f,~i]*F[d,g,~e]*J[~f,~h,e,~d,~g]*A[b]*H[~j,a,i,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[i]*F[~j,a,j]*A[~i]*J[~h,~d,h,d,~e]*B[e,b]*(31)+B[j,b]*(31)*A[~d]*J[~e,~i,e,i,~j]*A[d]*(-1)*F[~h,a,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*B[b,h]*B[e,~g]*J[~d,~f,~h,g,~e]*A[d]*(26)*H[i,f,~i,a]+B[f,~d]*B[b,i]*A[g]*J[~g,~e,~i,d,~f]*(26)*H[h,e,~h,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((73)*B[c,~i]*H[~g,~c,g,i]*A[h]*J[b,~f,a,f,~h]+B[c,~g]*A[i]*H[~f,~c,f,g]*(73)*(-1)*J[b,~h,a,h,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,~f]*H[d,~h,~d,b]*F[f,a,~c]*F[h,c,~g]+F[g,a,~d]*H[f,~c,~f,b]*(-1)*B[h,~g]*F[c,d,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[g,i,~g,~h]*J[a,~c,j,c,h]*A[~j]*F[b,~i,~d]*A[d]+A[d]*(-1)*J[a,~j,g,j,h]*H[c,i,~c,~h]*A[~g]*F[b,~i,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*B[b,~e]*(40)*A[~c]*B[a,c]*B[e,~d]*A[d]+A[c]*(40)*B[e,~c]*B[b,~e]*B[a,d]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[g,~c,e,~h,f]*A[a]*F[d,h,~e]*H[~f,c,b,~d]*A[~g]+J[g,~d,c,~h,f]*(-1)*A[a]*H[~f,d,b,~e]*A[~g]*F[e,h,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((75)*B[f,b]*A[h]*J[g,~g,~h,a,c]*(-1)*F[~c,~f,~d]*A[d]+B[d,b]*A[c]*(75)*A[h]*F[~g,~d,~h]*J[f,~f,~c,a,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*J[~g,f,~k,i,d]*J[~i,g,~j,e,~c]*J[~f,j,b,a,h]*H[k,~d,c,~e]+J[~k,e,~c,h,~d]*J[~e,j,~f,k,g]*(-1)*A[~i]*J[~j,c,b,a,i]*H[f,~g,d,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,b,f,~f]*B[a,d]*A[e]*A[~e]+(-1)*A[~d]*B[a,e]*H[~e,b,f,~f]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~g,~j]*H[~i,~e,c,e]*J[~k,~c,~h,a,h]*(78)*J[b,j,k,g,i]*(-1)+J[b,c,h,i,e]*B[~i,~c]*(78)*J[~h,~g,~j,a,j]*H[~e,~k,g,k]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~d,~e]*H[~c,~f,d,~h]*H[b,c,~g,h]*B[g,e]*A[a]+H[b,e,~g,f]*B[g,h]*F[c,~d,~h]*A[a]*(-1)*H[~e,~c,d,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*J[c,~f,~j,a,~d]*J[f,i,~c,~i,h]*H[~g,d,b,j]*A[~h]+J[g,~d,~j,a,~f]*A[i]*J[d,h,~g,~h,c]*A[~c]*(-1)*H[~i,f,b,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[e,b,f,d]*A[~f]*A[c]*(24)*F[~c,~e,a]*A[~d]+F[~e,~c,a]*(24)*(-1)*H[c,b,f,d]*A[~f]*A[e]*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((2)*J[~e,e,~f,f,~i]*A[~g]*A[~j]*B[i,~h]*J[j,b,g,a,h]+B[e,~h]*A[~g]*(-1)*J[g,b,i,a,h]*J[~f,f,~j,j,~e]*A[~i]*(2)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[b,c,f]*H[~f,e,~c,~d]*B[~e,a]*A[d]+A[c]*F[b,f,d]*(-1)*B[~e,a]*H[~d,e,~f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((76)*J[d,~d,g,h,a]*F[b,~f,f]*A[~g]*A[~h]+F[b,~h,h]*J[g,~g,d,f,a]*(-1)*A[~f]*(76)*A[~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,b,g]*H[e,~e,~h,~d]*A[d]*B[i,h]*B[~i,a]+F[~e,b,e]*(-1)*H[i,~i,~g,~h]*B[d,g]*A[h]*B[~d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~c,e,d]*(78)*H[b,~h,~g,~e]*A[h]*(-1)*J[g,~d,~f,a,c]+(78)*H[h,~f,c,d]*A[g]*J[e,~d,~h,a,f]*H[b,~g,~e,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,d]*B[~g,a]*F[~i,i,b]*J[g,~c,~d,~h,h]+J[d,~h,~c,~g,g]*(-1)*B[h,c]*B[~d,a]*F[~i,i,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~i,~g,h,i]*H[b,~h,g,c]*A[~c]*F[~d,d,a]+A[~h]*F[~d,d,a]*(-1)*H[~g,~i,c,g]*H[b,~c,i,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[f,~f,~l]*H[l,g,c,h]*J[~i,a,b,~c,~h]*J[~j,~g,~k,j,i]*A[k]+H[g,c,f,i]*J[~j,a,b,~f,~i]*A[k]*(-1)*F[l,~l,~g]*J[~h,~c,~k,h,j]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,b]*A[~c]*(-1)*B[f,~e]*J[e,~d,~f,c,a]*(70)+B[f,b]*B[c,~e]*A[~d]*(70)*J[e,~f,~c,d,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,f,~h]*J[b,k,h,~j,j]*B[i,~k]*H[a,~c,c,~i]+B[c,~f]*(-1)*F[~h,h,~j]*J[b,f,j,~i,i]*H[a,~k,k,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~l,l]*J[~c,~j,f,h,j]*H[m,a,c,~m]*J[~h,k,~k,~f,b]+H[l,a,h,~l]*B[~m,m]*(-1)*J[~h,~k,f,c,k]*J[~c,j,~j,~f,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[d,h,c,b]*A[~c]*F[~h,~d,f]*H[a,e,~e,~f]+A[~h]*(-1)*H[a,c,~c,~f]*F[~e,~d,f]*H[d,e,h,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,b,~g,~d,d]*A[c]*A[f]*F[~f,a,g]+F[~f,a,d]*J[~g,b,~d,~c,c]*(-1)*A[g]*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~i,d,b]*B[a,i]*(37)*A[h]*(-1)*A[~h]*J[~g,g,~d,f,~f]+F[~g,f,b]*A[~i]*B[a,g]*(37)*J[~d,d,~f,h,~h]*A[i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[g,d,~i]*(12)*J[~j,h,~d,i,~h]*J[~g,~k,~c,j,c]*F[a,k,b]+(-1)*J[~c,g,~k,d,~g]*J[~h,~i,~j,c,j]*F[a,i,b]*F[h,k,~d]*(12)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*J[d,c,~h,e,~e]*A[~d]*B[~c,g]*F[b,a,~g]+F[b,a,~g]*J[e,c,~h,d,~d]*A[~e]*B[~c,g]*A[h]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*A[~g]*(18)*F[g,f,a]*J[b,~c,e,c,~f]+A[~c]*(-1)*A[~e]*(18)*F[c,f,a]*J[b,~g,e,g,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[e]*A[~e]*(83)*J[a,~d,b,f,~c]*B[d,c]*A[~f]+J[a,~f,b,c,~d]*(83)*B[f,d]*A[e]*A[~e]*A[~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,a,~f,d,~h]*F[f,h,b]*J[~i,~j,j,~e,e]*A[~d]+(-1)*A[~f]*F[i,e,b]*J[~h,~j,j,~d,d]*J[h,a,~i,f,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,c,h,a]*B[~g,~j]*J[~i,g,j,d,i]*F[b,~d,~h]+F[b,~d,~i]*H[~g,g,i,a]*B[~h,~j]*(-1)*J[~c,h,j,d,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[c,~c,j,~f,i]*H[b,d,~d,a]*A[~h]*H[h,f,~i,~j]+(-1)*H[b,h,~h,a]*A[~j]*H[j,i,~c,~f]*J[d,~d,f,~i,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*J[~i,a,b,j,e]*H[~j,d,h,i]*F[~d,f,~h]*F[c,~c,~f]+F[i,~i,~j]*A[~f]*J[~e,a,b,h,f]*F[~c,j,~d]*H[~h,c,d,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[e,~d]*F[h,~c,~e]*J[~g,~j,f,~f,~h]*J[b,a,d,c,g]*A[j]+(-1)*B[d,~e]*J[b,a,e,j,h]*A[c]*J[~h,~c,g,~g,~f]*F[f,~j,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~h,~e,f,a,g]*B[~g,e]*(68)*B[~f,~i]*J[~d,b,d,i,h]+(68)*J[~i,b,i,h,e]*(-1)*J[~e,~d,g,a,f]*B[~f,d]*B[~g,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[h,~h,~i]*(29)*H[i,~d,a,g]*H[j,d,~j,~e]*F[b,e,~g]+F[j,~j,~e]*F[b,g,~h]*(-1)*(29)*H[i,d,~i,~g]*H[e,~d,a,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~e,d]*A[~c]*F[c,e,a]*B[~d,b]+B[~e,b]*A[~d]*B[~c,e]*F[d,c,a]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[h]*F[~h,b,f]*H[~g,g,c,d]*A[~d]*F[a,~c,~f]+A[c]*F[~c,b,h]*(-1)*H[~d,d,f,g]*A[~g]*F[a,~f,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,~g,~h,~j]*F[~c,i,~k]*A[c]*J[h,b,~e,k,e]*J[j,~i,g,f,a]+J[h,b,~j,e,j]*(-1)*J[c,~f,k,g,a]*A[i]*F[~i,f,~e]*H[~g,~k,~h,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*A[b]*A[c]*H[~c,~g,e,f]*(55)*J[~f,~h,g,~e,h]+(-1)*J[~c,~f,e,~g,f]*A[h]*(55)*A[a]*H[~h,~e,g,c]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~g,a,b]*H[~e,~d,g,c]*H[e,~c,f,d]*A[~f]*(34)+(-1)*A[~c]*H[g,~e,c,f]*(34)*H[~g,~f,d,e]*F[~d,a,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~h]*A[g]*(71)*A[a]*J[f,b,~g,e,~e]*H[~f,i,~i,h]+(-1)*(71)*H[~i,g,~g,h]*A[a]*A[f]*J[i,b,~f,e,~e]*A[~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~d,~c,g]*J[e,a,c,b,~f]*J[~e,h,f,d,~g]*A[~h]+J[d,a,e,b,~f]*F[~g,~e,c]*J[~d,h,f,g,~c]*(-1)*A[~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,a,~d,g]*H[e,~g,~f,d]*F[f,~c,b]*(6)*A[~e]+H[g,a,~e,f]*A[~d]*(-1)*F[c,~g,b]*H[d,~f,~c,e]*(6)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,~c,~d]*A[d]*A[a]*A[b]*B[e,c]+A[b]*A[a]*(-1)*F[~d,~c,~e]*A[e]*B[d,c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~k,~n,~c,n,j]*(-1)*(40)*H[g,~g,~j,a]*H[d,m,k,~m]*J[b,~d,c,~l,l]+(40)*H[d,m,l,~m]*H[k,~k,~g,a]*J[b,~d,c,~n,n]*J[~l,~j,~c,j,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,a,c,b]*A[~c]*F[~f,d,~e]*(47)*A[f]*A[e]+A[e]*A[~f]*(47)*(-1)*H[~d,a,f,b]*F[~c,d,~e]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[i,~d,h,~f,f]*(98)*H[c,~h,~c,b]*B[a,d]*A[~i]+(-1)*B[a,i]*H[c,~f,~c,b]*(98)*A[~h]*J[h,~i,f,~d,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~f]*(-1)*(20)*H[~d,a,~c,e]*J[d,b,f,c,~g]*B[g,~e]+J[d,b,e,f,~g]*H[~d,a,~f,c]*B[g,~c]*(20)*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~c,e,f,h,d]*B[~d,~g]*J[~f,a,c,g,~h]*B[b,~e]+(-1)*B[b,~f]*J[~e,a,d,g,~c]*B[~h,~g]*J[~d,f,e,c,h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[b]*B[a,c]*F[d,~f,~d]*B[f,~c]+A[b]*B[f,~d]*B[a,d]*(-1)*F[c,~f,~c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,g,~g,~c]*B[c,b]*F[~f,~d,a]*A[d]+A[g]*F[~c,~g,a]*H[c,f,~f,~d]*(-1)*B[d,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[g]*H[f,~e,~f,a]*A[~g]*H[e,~h,b,h]*(29)+A[g]*(-1)*A[~g]*H[e,~h,~e,a]*(29)*H[h,~f,b,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,k]*(36)*J[~g,g,~i,j,~j]*J[b,a,h,i,~e]*H[~k,~h,e,~d]+J[b,a,e,k,~i]*(-1)*J[~g,g,~k,d,~d]*H[~h,~e,i,~j]*B[j,h]*(36)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*B[e,~e]*A[~d]*F[a,h,g]*J[~h,~i,i,d,b]+A[~g]*A[~i]*J[~h,~e,e,i,b]*(-1)*B[d,~d]*F[a,h,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~c]*F[~e,b,c]*A[~d]*F[a,e,d]+A[~d]*F[~e,b,d]*F[a,e,c]*A[~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[b,c,a,~f,f]*A[e]*A[~e]*A[~c]*(23)+A[f]*(-1)*(23)*A[~f]*J[b,e,a,~c,c]*A[~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,~d,f]*J[b,a,~e,~h,g]*H[e,~c,~f,h]*A[~g]*A[d]+(-1)*F[e,~c,g]*H[d,~e,~g,h]*A[c]*J[b,a,~d,~h,f]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~e]*A[a]*B[~f,b]*F[d,f,~d]*A[e]+(-1)*B[~d,b]*A[~f]*A[a]*A[f]*F[e,d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*F[b,c,a]*F[f,~h,e]*H[d,~e,~c,g]*F[~d,h,~f]+F[~c,f,~e]*H[c,~h,~g,d]*A[~d]*(-1)*F[e,~f,h]*F[b,g,a]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((34)*F[~d,c,g]*J[~e,~c,b,~g,e]*A[a]*(-1)*A[d]+A[a]*A[e]*F[~e,d,c]*(34)*J[~g,~d,b,~c,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((51)*B[b,c]*H[a,~c,~f,d]*(-1)*B[f,~e]*A[e]*A[~d]+H[a,~f,~e,d]*B[b,f]*B[e,~c]*(51)*A[~d]*A[c]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,~c,f]*(65)*B[d,a]*A[c]*(-1)*A[~d]*A[b]+A[f]*B[d,a]*F[~c,~f,c]*(65)*A[~d]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~d,~e]*(62)*B[h,b]*F[~g,d,g]*J[a,e,~h,~i,i]+(-1)*J[a,e,~i,~h,h]*B[i,b]*B[~d,~e]*(62)*F[~g,d,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~g]*H[~h,g,h,b]*B[~c,c]*B[a,d]*A[~d]+(-1)*H[~c,g,c,b]*A[~d]*A[~g]*B[~h,h]*B[a,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[c,d,~f,b]*A[~d]*H[a,~c,f,e]*A[~e]+A[~f]*A[~d]*(-1)*H[a,~c,e,d]*H[c,f,~e,b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[~i]*J[b,~c,~h,c,i]*J[h,a,j,~j,~g]*A[f]*B[g,~f]+A[~g]*J[b,~h,~j,h,g]*J[j,a,i,~i,~c]*B[c,~f]*(-1)*A[f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((62)*A[~g]*B[b,~d]*F[a,h,~h]*A[d]*F[g,c,~c]+F[c,d,~d]*A[g]*F[a,h,~h]*B[b,~g]*(62)*A[~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*A[d]*B[~e,c]*A[b]*(32)*F[e,a,~d]*A[~c]+F[d,a,~c]*A[b]*A[~e]*B[~d,e]*A[c]*(32)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((11)*B[~d,d]*A[~f]*H[~g,a,g,f]*A[b]+A[b]*B[~g,g]*(11)*A[~f]*H[~d,a,d,f]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~c,f,~e,d]*(-1)*(39)*H[i,~k,~j,c]*H[~d,e,k,j]*J[~g,~i,a,g,~f]*A[b]+H[j,~e,~f,k]*H[~d,g,e,f]*A[b]*(39)*H[~k,i,~g,d]*J[~c,~j,a,c,~i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,b]*A[h]*J[~d,~g,d,a,~h]*B[f,~f]+B[g,b]*B[f,~f]*(-1)*A[d]*J[~h,~g,h,a,~d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((89)*J[d,b,~d,~e,~h]*F[e,~c,~g]*F[a,g,c]*A[h]+F[a,g,c]*(89)*(-1)*F[h,~c,~g]*J[e,b,~e,~h,~d]*A[d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[g,~d]*J[~c,~e,~f,a,d]*A[f]*(72)*H[b,c,~g,e]+(-1)*A[c]*H[b,f,~g,d]*(72)*J[~f,~d,~c,a,e]*B[g,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~j,b,g,~g,~f]*H[k,l,~l,~c]*B[a,f]*J[c,~d,j,~k,d]+J[~g,b,f,~f,~j]*B[a,j]*J[c,~k,g,~d,k]*H[d,l,~l,~c]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~f,~j,f,d]*A[~d]*H[~c,c,~e,~i]*J[a,e,b,j,i]+J[a,f,b,d,j]*H[~i,i,~f,~j]*H[~c,~d,c,e]*A[~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~j,~e,e,~i]*B[a,i]*(96)*J[~k,j,b,~g,g]*F[~c,c,k]*(-1)+F[~g,g,j]*B[a,e]*H[~k,~c,c,~e]*(96)*J[~j,k,b,~i,i]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~h,c,~c,~i]*F[i,h,~j]*(-1)*H[a,f,~d,~f]*F[b,j,d]*(29)+F[b,c,j]*(29)*H[a,f,~j,~f]*F[h,i,~c]*H[~i,d,~d,~h]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,a,e,~g]*A[~d]*(83)*B[~c,g]*(-1)*B[~f,d]*F[~e,c,b]+A[~f]*B[~c,f]*H[c,a,g,~d]*(83)*F[~g,e,b]*B[~e,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[c,d,~e]*A[~f]*B[b,e]*H[~d,f,a,~c]+H[~f,d,a,~e]*F[e,f,~c]*B[b,c]*A[~d]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[e,b,~f]*H[~g,a,~c,g]*A[~e]*B[f,c]+(-1)*B[f,e]*F[c,b,~f]*A[~c]*H[~g,a,~e,g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[f,~c,h,~f]*B[~d,b]*F[d,~h,g]*F[c,a,~g]+H[d,~h,c,~d]*B[~g,b]*(-1)*F[h,a,~f]*F[g,~c,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((8)*B[e,~d]*J[~g,b,d,h,a]*F[~c,~f,g]*H[f,c,~h,~e]+J[~g,b,f,h,a]*(8)*(-1)*F[~c,~d,g]*H[d,c,~h,~e]*B[e,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[d,~g]*F[a,~e,c]*(95)*H[~d,~f,b,g]*B[e,~c]*A[f]+F[a,~f,e]*(-1)*H[~c,~g,b,d]*B[c,~d]*B[f,~e]*(95)*A[g]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[c,~d]*H[~f,f,~c,d]*(-1)*A[a]*A[b]*(47)+B[c,~d]*(47)*A[a]*A[b]*H[~f,f,~c,d]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((-1)*J[~e,c,a,g,f]*A[b]*A[d]*H[~g,e,~f,~d]*(90)*A[~c]+H[~c,g,~d,~e]*A[e]*(90)*J[~g,f,a,c,d]*A[b]*A[~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~e,g,a]*(36)*F[~d,~c,f]*A[e]*A[d]*(-1)*H[b,c,~g,~f]+F[~c,d,a]*A[c]*A[g]*F[~g,~f,e]*(36)*H[b,f,~d,~e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=((72)*B[~d,b]*(-1)*J[~c,a,~f,g,d]*B[~e,~g]*A[c]*B[e,f]+J[~e,a,~c,f,d]*B[~d,b]*B[g,c]*A[e]*B[~g,~f]*(72)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,~e,~f,c]*B[a,e]*B[~c,g]*H[b,~g,f,d]+H[b,~e,d,c]*H[~c,~f,~d,g]*B[a,f]*B[~g,e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[b,f]*B[d,~d]*A[~f]*B[e,a]*A[~e]+A[~d]*(-1)*B[f,~f]*B[d,a]*A[~e]*B[b,e]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(A[a]*F[e,~e,~c]*(9)*B[b,f]*B[~f,c]+(-1)*B[~c,f]*(9)*A[a]*B[b,c]*F[e,~e,~f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(H[~d,f,~h,a]*B[d,g]*H[~f,~i,~c,i]*(87)*H[~g,h,c,b]+B[g,h]*H[~d,~c,~i,c]*H[~g,d,~f,a]*(87)*H[~h,f,i,b]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(J[~d,~e,a,~c,g]*B[~g,~f]*A[b]*A[c]*(49)*F[f,d,e]+(-1)*A[f]*(49)*B[~e,~d]*F[d,c,g]*J[~c,~g,a,~f,e]*A[b]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(B[~c,~f]*H[b,f,~e,a]*F[~d,c,e]*A[d]+A[d]*B[~e,~c]*H[b,c,~f,a]*(-1)*F[~d,e,f]): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string))); tTensor:=(F[~f,c,~e]*A[b]*A[e]*A[a]*H[g,f,~c,~g]+H[c,g,~f,~c]*A[a]*A[e]*A[b]*F[~g,f,~e]*(-1)): ASSERT(Simplify(tTensor)=0, cat("Failed to simplify tensor ", convert(tTensor,string)));