Maple 18 Questions and Posts

These are Posts and Questions associated with the product, Maple 18

It says at

http://www.maplesoft.com/products/maple/new_features/maple18/Language_Programming.aspx#random

"When generating matrices and vectors of floats and integers, these flavors are very fast. "

But when I compare the new

time[real](Generate(('Matrix')(float, 300, 300)))

and

time[real](RandomMatrix(300, 300))

I find RandomMatrix over 300 times faster. Am I doing something wrong, or is RandomMatrix still the fastest way to generate random numbers?

 

 

Everytime I re-run a workfile, I get several extra editing lines inbetween my own command lines. Have I missed something in my settings?

Best regards
Emilijan Vuletici

Now that I got my units converted I have a new problem:

 

I have g/mol and g/cm^3, and the result is supposed to be per cm^3 too. So I would like to keep my grams as well as my  cm^3. However, Maple converts it all to kg and m^3!

 

That means I have to divide the final result by 10e6. No big deal, only that it looks strange on my worksheet (when I divide the units stay the same, so if I show that to someone they'll be amazed at the gigantic m^3 result number I got instead of just a few cm^3).

 

By the way, turing off the automatic unit cancellation (see link, my question a few days ago) does not change anything, the g->kg and cm^3->m^3 conversion take place as soon as I enter the values:

 

results in

 

and

gives

Hi guys,

im trying to solve the linear equation system:

mysol := solve({J*a = m*l*(-c*ct^2*sf-c*sf*st^2+cf*d*st^2+d*sf*st^2)+m*g*l*st, cx*ux = cMx*xd+M*c+m*l*(-cp*pd^2*st-cp*st*td^2-2*ct*pd*sp*td+a*cp*ct-b*sp*st), cy*uy = cMy*yd+M*d+m*l*(2*cp*ct*pd*td-pd^2*sp*st-sp*st*td^2+a*ct*sp+b*cp*st), (-l^2*m*st^2+J)*b = -ml(c*cf*ct+ct*d*sf)}, {a, b, c, d}) :

Then, assigning the solutions:

assign(mysol):

Then, eliminating the RootOf's for variable a:

a_explicit := allvalues(a):

Unfortunately, a_explicit still contains RootOf's. How can I avoid this?

Thanks,

Martin

 

Hi guys,

I'm trying to find the solutions to a nonlinear equation system:

mysol := solve({J*a = m*g*l*st-m*l*(c*cp*st+d*sp*st), cx*ux = cMx*xd+(Mx+m)*c+m*l*(-cp*pd^2*st-cp*st*td^2-2*ct*pd*sp*td+a*cp*ct-b*sp*st), cy*uy = cMy*yd+(My+m)*d+m*l*(2*cp*ct*pd*td-pd^2*sp*st-sp*st*td^2+a*ct*sp+b*cp*st), (-M*l^2*st^2+J)*b = m*l*sqrt(d^2-2*d*ct+ct^2+c^2*ct^2+(c^2*sp^2-2*c*cp*d*sp+cp^2*d^2)*st^2)}, {a, b, c, d})

The solution contains various implicit solutions with RootOf's. When trying to evaluate them by typing

allvalues(mysol);,

the returned set of solutions is about 800.000 characters long, but unfortunately contains various "+ [...15295 terms...] +" elements, and thus not displaying the full solution. The limits on the precision tab in the maple options are all disabled.
Does anybody know how to display the full expression, although it gets very long?

Thank you in advance,

Martin

Hi everyone,

I'm running Maple 18 and MapleSim 6.4 on my macbook pro 13 " with retina display and the GUI is blurred like there is no smoothing or the antialiasing is not working properly. I tried to find something helpfull in the setting but with no luck.

Is there something I can do to fix this?

Thanks

Carlo

Here in this work and used as the main topic a short description of electrostatics and electrodynamics using the Explore to model the fundamental laws command.

 Corriente_Eléctrica.mw   (in spanish)

 

Atte.

L. Araujo C.

 

 

I am having trouble with the SubstitutionTensor command.  It kicks out an error message for operand with different free indices, but the operands seems to be fine.  I checked all of the terms and they all seem fine. Thank you for your help.

 

 

restart

with(Physics):

Setup(mathematicalnotation = true, coordinatesystems = X, usephysicsevaluator = false)

[coordinatesystems = {X}, mathematicalnotation = true, usephysicsevaluator = false]

(1)

Define(l[mu]);

{Physics:-Dgamma[mu], Physics:-Psigma[mu], Physics:-d_[mu], eta[mu, nu], Physics:-g_[mu, nu], l[mu], Physics:-KroneckerDelta[mu, nu], Physics:-LeviCivita[alpha, beta, mu, nu], Physics:-SpaceTimeVector[mu](X)}

(2)

Define(G[mu, nu] = eta[mu, nu]+Physics:-`*`(l[mu](X), l[nu](X)))

{Physics:-Dgamma[mu], G[mu, nu], Physics:-Psigma[mu], Physics:-d_[mu], eta[mu, nu], Physics:-g_[mu, nu], l[mu], Physics:-KroneckerDelta[mu, nu], Physics:-LeviCivita[alpha, beta, mu, nu], Physics:-SpaceTimeVector[mu](X)}

(3)

declare(l(X))

l(x1, x2, x3, x4)*`will now be displayed as`*l

(4)

``

``

``

``

Setup(metric = rhs(G[]))

[metric = {(1, 1) = 1+l[1](X)^2, (1, 2) = l[1](X)*l[2](X), (1, 3) = l[1](X)*l[3](X), (1, 4) = l[1](X)*l[4](X), (2, 2) = 1+l[2](X)^2, (2, 3) = l[2](X)*l[3](X), (2, 4) = l[2](X)*l[4](X), (3, 3) = 1+l[3](X)^2, (3, 4) = l[3](X)*l[4](X), (4, 4) = -1+l[4](X)^2}]

(5)

g_[];

g[mu, nu] = (Matrix(4, 4, {(1, 1) = 1+l[1](X)^2, (1, 2) = l[1](X)*l[2](X), (1, 3) = l[1](X)*l[3](X), (1, 4) = l[1](X)*l[4](X), (2, 1) = l[1](X)*l[2](X), (2, 2) = 1+l[2](X)^2, (2, 3) = l[2](X)*l[3](X), (2, 4) = l[2](X)*l[4](X), (3, 1) = l[1](X)*l[3](X), (3, 2) = l[2](X)*l[3](X), (3, 3) = 1+l[3](X)^2, (3, 4) = l[3](X)*l[4](X), (4, 1) = l[1](X)*l[4](X), (4, 2) = l[2](X)*l[4](X), (4, 3) = l[3](X)*l[4](X), (4, 4) = -1+l[4](X)^2}))

(6)

``

Christoffel[`~alpha`, mu, nu] = convert(Christoffel[`~alpha`, mu, nu], g_)

Physics:-Christoffel[`~alpha`, mu, nu] = (1/2)*Physics:-g_[`~alpha`, `~beta`]*(Physics:-d_[nu](Physics:-g_[beta, mu], [X])+Physics:-d_[mu](Physics:-g_[beta, nu], [X])-Physics:-d_[beta](Physics:-g_[mu, nu], [X]))

(7)

Christoffel[beta, mu, nu] = convert(Christoffel[beta, mu, nu], g_)

Physics:-Christoffel[beta, mu, nu] = (1/2)*Physics:-d_[nu](Physics:-g_[beta, mu], [X])+(1/2)*Physics:-d_[mu](Physics:-g_[beta, nu], [X])-(1/2)*Physics:-d_[beta](Physics:-g_[mu, nu], [X])

(8)

``

SubstituteTensor(g_[mu, nu] = eta[mu, nu]+Physics:-`*`(l[mu](X), l[nu](X)), Physics:-Christoffel[beta, mu, nu] = (1/2)*Physics:-d_[nu](Physics:-g_[beta, mu], [X])+(1/2)*Physics:-d_[mu](Physics:-g_[beta, nu], [X])-(1/2)*Physics:-d_[beta](Physics:-g_[mu, nu], [X]), evaluateexpression)

Physics:-Christoffel[beta, mu, nu] = (1/2)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*l[beta](X)*Physics:-d_[nu](l[mu](X), [X])+(1/2)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)+(1/2)*l[beta](X)*Physics:-d_[mu](l[nu](X), [X])-(1/2)*Physics:-d_[beta](l[mu](X), [X])*l[nu](X)-(1/2)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])

(9)

``

``

Christoffel[`~alpha`, mu, nu] = Simplify(Physics:-`*`(eta[`~alpha`, `~beta`]-Physics:-`*`(l[`~alpha`](X), l[`~beta`](X)), rhs(Physics:-Christoffel[beta, mu, nu] = (1/2)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*l[beta](X)*Physics:-d_[nu](l[mu](X), [X])+(1/2)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)+(1/2)*l[beta](X)*Physics:-d_[mu](l[nu](X), [X])-(1/2)*Physics:-d_[beta](l[mu](X), [X])*l[nu](X)-(1/2)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X]))))

Physics:-Christoffel[`~alpha`, mu, nu] = -(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)*eta[`~alpha`, `~beta`]-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[beta](X)*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[beta](X)*Physics:-d_[nu](l[mu](X), [X])*eta[`~alpha`, `~beta`]-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)*eta[`~alpha`, `~beta`]-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[beta](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[beta](X)*Physics:-d_[mu](l[nu](X), [X])*eta[`~alpha`, `~beta`]+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])*eta[`~alpha`, `~beta`]+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])*eta[`~alpha`, `~beta`]

(10)

SubstituteTensor({Physics:-`*`(eta[`~mu`, `~nu`], d_[gamma](l[nu](X))) = d_[gamma](l[`~mu`](X)), Physics:-`*`(l[nu](X), eta[`~mu`, `~nu`]) = l[`~mu`](X), Physics:-`*`(l[`~mu`](X), l[mu](X)) = 0}, Physics:-Christoffel[`~alpha`, mu, nu] = -(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)*eta[`~alpha`, `~beta`]-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[beta](X)*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[beta](X)*Physics:-d_[nu](l[mu](X), [X])*eta[`~alpha`, `~beta`]-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)*eta[`~alpha`, `~beta`]-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[beta](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[beta](X)*Physics:-d_[mu](l[nu](X), [X])*eta[`~alpha`, `~beta`]+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])*eta[`~alpha`, `~beta`]+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])*eta[`~alpha`, `~beta`])

Physics:-Christoffel[`~alpha`, mu, nu] = -(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*l[nu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])*eta[`~alpha`, `~beta`]+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])*eta[`~alpha`, `~beta`]

(11)

Ricci[mu, nu] = convert(Ricci[mu, nu], Christoffel)

Physics:-Ricci[mu, nu] = Physics:-d_[alpha](Physics:-Christoffel[`~alpha`, mu, nu], [X])-Physics:-d_[nu](Physics:-Christoffel[`~alpha`, alpha, mu], [X])+Physics:-Christoffel[`~beta`, mu, nu]*Physics:-Christoffel[`~alpha`, alpha, beta]-Physics:-Christoffel[`~beta`, alpha, mu]*Physics:-Christoffel[`~alpha`, beta, nu]

(12)

SubstituteTensor(Physics:-Christoffel[`~alpha`, mu, nu] = -(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*l[nu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])*eta[`~alpha`, `~beta`]+(1/2)*l[`~alpha`](X)*l[`~beta`](X)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])*eta[`~alpha`, `~beta`], Physics:-Ricci[mu, nu] = Physics:-d_[alpha](Physics:-Christoffel[`~alpha`, mu, nu], [X])-Physics:-d_[nu](Physics:-Christoffel[`~alpha`, alpha, mu], [X])+Physics:-Christoffel[`~beta`, mu, nu]*Physics:-Christoffel[`~alpha`, alpha, beta]-Physics:-Christoffel[`~beta`, alpha, mu]*Physics:-Christoffel[`~alpha`, beta, nu], evaluateexpression)

Physics:-Ricci[mu, nu] = (1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X]))+(-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`])*(-(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[beta](l[lambda](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/2)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])*eta[`~alpha`, `~lambda`]+(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])-(1/2)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`])-(-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)+(1/2)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])-(1/2)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])-(1/2)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`])*(-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/2)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/2)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`])+(1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X]))-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X]))-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X]))+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[mu](l[tau](X), [X]), [X])*l[alpha](X)

(13)

SubstituteTensor({Physics:-`*`(eta[`~mu`, `~nu`], d_[gamma](l[nu](X))) = d_[gamma](l[`~mu`](X)), Physics:-`*`(l[nu](X), eta[`~mu`, `~nu`]) = l[`~mu`](X), Physics:-`*`(l[`~mu`](X), l[mu](X)) = 0}, Physics:-Ricci[mu, nu] = (1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X]))+(-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`])*(-(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[beta](l[lambda](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/2)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])*eta[`~alpha`, `~lambda`]+(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])-(1/2)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`])-(-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)+(1/2)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])-(1/2)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])-(1/2)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`])*(-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/2)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/2)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`])+(1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X]))-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X]))-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X]))+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[mu](l[tau](X), [X]), [X])*l[alpha](X))

Physics:-Ricci[mu, nu] = (1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`])*((1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/2)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/2)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`])+(1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X]))-(-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)+(1/2)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])-(1/2)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])-(1/2)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`])*(-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/2)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/2)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`])+(1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X]))-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X]))-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X]))+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)

(14)

expand(Physics:-`*`(Physics:-`*`(Physics:-Ricci[mu, nu] = (1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)+(1/2)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])-(1/2)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])-(1/2)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]+(1/2)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])-(1/2)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`])*((1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/2)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/2)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/2)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`])+(1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X]))-(-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)+(1/2)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)+(1/2)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)+(1/2)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)+(1/2)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])-(1/2)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]+(1/2)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])-(1/2)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`])*(-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/2)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/2)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/2)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/2)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/2)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`])+(1/2)*eta[`~alpha`, `~tau`]*(Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X]))-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X]))-(1/2)*eta[`~alpha`, `~kappa`]*(Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X]))+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X), l[`~mu`](X)), l[`~nu`](X)))

Physics:-Ricci[mu, nu]*l[`~mu`](X)*l[`~nu`](X) = (1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]

(15)

"SubstituteTensor({l[~mu](X)*l[mu](X)=0,l[nu](X)*eta[~mu,~nu]=l[~mu](X),eta[~mu,~nu]*d_[gamma](l[nu](X))=d_[gamma](l[~mu](X))},rhs(Physics:-Ricci[mu,nu]*l[~mu](X)*l[~nu](X) = -1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X),[X]),[X])-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](Physics:-d_[alpha](l[~alpha](X),[X]),[X])*l[mu](X)-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~alpha](X),[X])*Physics:-d_[mu](l[alpha](X),[X])-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X),[X]),[X])-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](Physics:-d_[mu](l[~alpha](X),[X]),[X])*l[alpha](X)-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~alpha](X),[X])*Physics:-d_[nu](l[alpha](X),[X])+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*Physics:-d_[mu](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X),[X]),[X])+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](Physics:-d_[mu](l[~alpha](X),[X]),[X])*l[nu](X)+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~alpha](X),[X])*Physics:-d_[alpha](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X),[X]),[X])+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](Physics:-d_[nu](l[~alpha](X),[X]),[X])*l[mu](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~tau]*Physics:-d_[nu](l[alpha](X),[X])*Physics:-d_[tau](l[mu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~tau]*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X),[X]),[X])+1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~tau]*Physics:-d_[nu](l[mu](X),[X])*Physics:-d_[tau](l[alpha](X),[X])+1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~tau]*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X),[X]),[X])-1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~kappa]*Physics:-d_[alpha](l[mu](X),[X])*Physics:-d_[kappa](l[nu](X),[X])-1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~kappa]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X),[X]),[X])-1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~kappa]*Physics:-d_[alpha](l[nu](X),[X])*Physics:-d_[kappa](l[mu](X),[X])-1/2*l[~mu](X)*l[~nu](X)*eta[~alpha,~kappa]*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X),[X]),[X])+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]-1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)-1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]+1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[nu](l[iota](X),[X])*l[mu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*eta[~beta,~omega]*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])*eta[~alpha,~chi]-1/4*l[~mu](X)*l[~nu](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X),[X])*eta[~beta,~omega]*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])*eta[~alpha,~chi]+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[alpha](l[omega](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[nu](X)*Physics:-d_[iota](l[mu](X),[X])*eta[~beta,~iota]*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[mu](X)*Physics:-d_[iota](l[nu](X),[X])*eta[~beta,~iota]*l[alpha](X)*Physics:-d_[lambda](l[beta](X),[X])*eta[~alpha,~lambda]+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*l[~alpha](X)*l[~lambda](X)*Physics:-d_[alpha](l[lambda](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*l[~alpha](X)*l[~lambda](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~iota](X)*Physics:-d_[mu](l[iota](X),[X])*l[nu](X)*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[nu](l[chi](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*Physics:-d_[beta](l[chi](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*l[nu](X)*Physics:-d_[chi](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[~alpha](X)*l[~chi](X)*l[beta](X)*Physics:-d_[chi](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*l[~omega](X)*Physics:-d_[mu](l[omega](X),[X])*l[alpha](X)*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~tau](X)*Physics:-d_[alpha](l[tau](X),[X])*Physics:-d_[nu](l[mu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[~tau](X)*Physics:-d_[alpha](l[tau](X),[X])*l[mu](X)+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[nu](l[~tau](X),[X])*Physics:-d_[alpha](l[tau](X),[X])*l[mu](X)+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~tau](X)*Physics:-d_[mu](l[tau](X),[X])*Physics:-d_[nu](l[alpha](X),[X])+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[~tau](X)*Physics:-d_[mu](l[tau](X),[X])*l[alpha](X)+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[~kappa](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[alpha](l[~kappa](X),[X])*l[mu](X)*Physics:-d_[kappa](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*Physics:-d_[alpha](l[mu](X),[X])*Physics:-d_[kappa](l[nu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X),[X]),[X])+1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[~kappa](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[alpha](l[~kappa](X),[X])*l[nu](X)*Physics:-d_[kappa](l[mu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*Physics:-d_[alpha](l[nu](X),[X])*Physics:-d_[kappa](l[mu](X),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X),[X]),[X])-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[~kappa](X)*Physics:-d_[mu](l[kappa](X),[X])*l[nu](X)-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[alpha](l[~kappa](X),[X])*Physics:-d_[mu](l[kappa](X),[X])*l[nu](X)-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X),[X]),[X])*l[nu](X)-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*Physics:-d_[mu](l[kappa](X),[X])*Physics:-d_[alpha](l[nu](X),[X])+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~beta](X),[X])*l[mu](X)*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[nu](l[mu](X),[X])*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[nu](X)*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[alpha](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[alpha](X),[X])+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*Physics:-d_[alpha](l[~alpha](X),[X])*l[beta](X)+1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*l[~alpha](X)*Physics:-d_[alpha](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[nu](X),[X])*Physics:-d_[lambda](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[mu](l[~beta](X),[X])*l[alpha](X)*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[mu](l[alpha](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~beta](X),[X])*l[mu](X)*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*Physics:-d_[nu](l[~alpha](X),[X])*l[beta](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[nu](l[beta](X),[X])-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[~tau](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X),[X])-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~tau](X)*Physics:-d_[nu](l[alpha](X),[X])*Physics:-d_[tau](l[mu](X),[X])-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[nu](l[~alpha](X),[X])*l[~tau](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X),[X])-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[nu](l[~tau](X),[X])*l[mu](X)*Physics:-d_[tau](l[alpha](X),[X])-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~tau](X)*Physics:-d_[nu](l[mu](X),[X])*Physics:-d_[tau](l[alpha](X),[X])-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~tau](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X),[X]),[X])+1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~tau](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X),[X]),[X])*l[mu](X)-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*Physics:-d_[nu](l[kappa](X),[X])*Physics:-d_[alpha](l[mu](X),[X])-1/2*l[~mu](X)*l[~nu](X)*Physics:-d_[alpha](l[~alpha](X),[X])*l[~kappa](X)*Physics:-d_[nu](l[kappa](X),[X])*l[mu](X)-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*Physics:-d_[alpha](l[~kappa](X),[X])*Physics:-d_[nu](l[kappa](X),[X])*l[mu](X)-1/2*l[~mu](X)*l[~nu](X)*l[~alpha](X)*l[~kappa](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X),[X]),[X])*l[mu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*Physics:-d_[beta](l[~alpha](X),[X])*l[nu](X)-1/4*l[~mu](X)*l[~nu](X)*l[~beta](X)*Physics:-d_[alpha](l[mu](X),[X])*l[~alpha](X)*Physics:-d_[beta](l[nu](X),[X])))"

op(32, rhs(Physics:-Ricci[mu, nu]*l[`~mu`](X)*l[`~nu`](X) = -(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)))

(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]

(16)

op(17, rhs(Physics:-Ricci[mu, nu]*l[`~mu`](X)*l[`~nu`](X) = (1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]))

(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])

(17)

op(77, rhs(Physics:-Ricci[mu, nu]*l[`~mu`](X)*l[`~nu`](X) = (1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[`~alpha`](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[mu](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](Physics:-d_[mu](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[alpha](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[`~alpha`](X), [X]), [X])*l[nu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[`~alpha`](X), [X]), [X])*l[mu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[alpha](X)*Physics:-d_[nu](Physics:-d_[tau](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~tau`]*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~kappa`]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[alpha](X)*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[alpha](X), [X])*Physics:-d_[tau](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*l[mu](X)*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[tau](l[alpha](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*l[mu](X)*Physics:-d_[nu](Physics:-d_[tau](l[alpha](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[nu](Physics:-d_[alpha](l[tau](X), [X]), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[nu](l[`~tau`](X), [X])*Physics:-d_[alpha](l[tau](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*Physics:-d_[nu](l[alpha](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~alpha`](X), [X])*l[`~tau`](X)*Physics:-d_[mu](l[tau](X), [X])*l[alpha](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[mu](X)*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[kappa](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*l[nu](X)*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[kappa](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[kappa](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[mu](l[kappa](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[kappa](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*Physics:-d_[alpha](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~kappa`](X)*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~kappa`](X), [X])*Physics:-d_[nu](l[kappa](X), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~kappa`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[kappa](X), [X]), [X])*l[mu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[nu](l[mu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[beta](l[`~alpha`](X), [X])*l[alpha](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[nu](X), [X])*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[mu](l[omega](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*Physics:-d_[alpha](l[omega](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~omega`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[beta](l[chi](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[nu](l[iota](X), [X])*l[mu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*Physics:-d_[mu](l[iota](X), [X])*l[nu](X)*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*Physics:-d_[alpha](l[lambda](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[nu](X)*Physics:-d_[iota](l[mu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*l[`~lambda`](X)*l[beta](X)*Physics:-d_[lambda](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*l[`~iota`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*l[alpha](X)*Physics:-d_[lambda](l[beta](X), [X])*eta[`~alpha`, `~lambda`]-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[beta](l[alpha](X), [X])-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[beta](X)-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*l[`~alpha`](X)*Physics:-d_[alpha](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[iota](l[nu](X), [X])*eta[`~beta`, `~iota`]*Physics:-d_[lambda](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[`~beta`](X), [X])*l[alpha](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[mu](l[alpha](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[nu](X)*Physics:-d_[chi](l[beta](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*l[beta](X)*Physics:-d_[chi](l[nu](X), [X])*eta[`~alpha`, `~chi`]+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[beta](l[`~alpha`](X), [X])*l[nu](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[mu](X)*Physics:-d_[omega](l[alpha](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[beta](l[nu](X), [X])+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*Physics:-d_[nu](l[`~alpha`](X), [X])*l[beta](X)+(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*Physics:-d_[nu](l[beta](X), [X])))

-(1/4)*l[`~mu`](X)*l[`~nu`](X)*l[alpha](X)*Physics:-d_[omega](l[mu](X), [X])*eta[`~beta`, `~omega`]*l[`~alpha`](X)*l[`~chi`](X)*Physics:-d_[nu](l[chi](X), [X])*l[beta](X)

(18)

``


Download Maple_Question_7.3.14.mw

hi

DirectSearch answer has confused me. How to reduce the residual.
See the program.Direct.mw

I'm interested in doing some experimental mathematics using the PSLQ integer relation algorithm.  The only third-party program for doing PSLQ problems I've been able to find is a GNU C++ program with a less-than-user-friendly command-line interface.  I've heard that Maple implements PSLQ and I like the symbolic input and presentation it offers as a CAS, but I can't find any information on which alternative types of Maple 18 make the PSLQ algorithm available.

Hi Maple friends. :)

I would like to graph and solve: 2*sin(2 x)=1 for the interval 0<=x<=360. My textbook gives the answers of x=15, 75, 195 and 225.

But I get an error messages:

plot(2*sin(2*x) = 1, x = 0 .. 360);
Error, invalid input: plot expects its 1st argument, p, to be of type {array, list, rtable, set, algebraic, procedure, And(`module`, appliable)}, but received 2*sin(2*x) = 1

solve(2*sin(2*x) = 1, x = 0 .. 360);
Error, invalid input: too many and/or wrong type of arguments passed to solve; first unused argument is x = 0 .. 360

Any help would be appreciated! Thanks in advance.

 

Hi all. I am using Maple 18.

1. Does Maple only output an answer, or can it be made to display the steps it took to achieve the result, in a way that is logical and understandable by the user? For example, I would like to see it display steps when integrating or differentiating, or dividing a polynomial by another polynomial. Basically any process that involve simplifyinf or factorisation.

2. I am trying to divide x^2 + 5x + 9 by x+2, but all Maple displays is the expression

How can I make it do the polynomial division and output the steps it took? I tried using simplify and evaluate from the context menu but the output is still just the expression.

3. Has something happened to this site? It was working fine in Opera until two days ago, and has sinmce started displaying "Error generating page" where the replies to questions should be. No problems with the "posts" section, only in the "questions" section.

Thanks in advance.

 

Hi all. I am using Maple 18.

1. How can I make maple NOT plot discontinuties with a vertical line? For example, plotting y=tan(x) displays vertical lines. Is there a setting to turn this off permanently?

2. When I type y=sin(x-Pi/2) and press enter, y = -cos(x) is displayed in blue. I am sure they are both the same thing, but I would like to see the expression that I typed, not an alternate expression that Maple wants to display.

3. Why do some expressions require a ; at the end, whilst others don't? Ie. y = sin(x) and y = 1+sin(x) do not, but y=2*sin(x) results in a "Warning, inserted missing semicolon at end of statement"

4. Is there a section on Mapleprimes(this site) where new users can ask questions? I would like to browse it to see what sort of problems other new Maples users have encountered. I am sure that my above questions may have been asked a few times over the years by newbies like myself.

Thanks in advance. :)

With this contribution we opened a breach in the proper use of the program applied Thermodynamics.

 

Introducción_a_la_Termodinámica.mw     (in spanish)

 

 

 

How can I know the solution is correct??

 

Here is the code:

s := solve(sin(x^2) = 1/2);
test := subs(x = s[1], sin(x^2) = 1/2);

 

 

First 81 82 83 84 85 86 87 Page 83 of 87