Michael_Watson

125 Reputation

3 Badges

16 years, 64 days

MaplePrimes Activity


These are questions asked by Michael_Watson

I want to write an equation in the text portion of my document.  I do not need it evaluated. I just want to write formulas, like I do in LaTeX. 

 

``

The TensorSubstittuition is not finding all of the eta[~mu,~mu]*l[nu](X)=l[~mu](X) substitutions.

``

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)

NULL

NULL

NULL

NULL

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)

NULL

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)

NULL

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)

NULL

NULL

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[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[`~alpha`](X), [X])*l[nu](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`]

(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)

term1 := 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[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[`~alpha`](X), [X])*l[nu](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:-`*`(Physics:-`*`(d_[alpha](Christoffel[`~alpha`, mu, nu]), l[`~mu`](X)), l[`~nu`](X)))

Physics:-d_[alpha](-(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[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[`~alpha`](X), [X])*l[nu](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`], [X])*l[`~mu`](X)*l[`~nu`](X)

(13)

expand(Physics:-d_[alpha](-(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[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[`~alpha`](X), [X])*l[nu](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`], [X])*l[`~mu`](X)*l[`~nu`](X))

(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[beta](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[beta](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](Physics:-d_[beta](l[mu](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[beta](l[mu](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[beta](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)*Physics:-d_[alpha](Physics:-d_[nu](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_[alpha](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[beta](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](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[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~beta`](X)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[beta](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~beta`](X)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[beta](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[beta](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[beta](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)

(14)

SubstituteTensor({Physics:-`*`(eta[`~mu`, `~nu`], d_[gamma](l[nu](X))) = d_[gamma](l[`~mu`](X)), Physics:-`*`(eta[`~mu`, `~nu`], l[nu](X)) = l[`~mu`](X), Physics:-`*`(l[`~mu`](X), l[mu](X)) = 0}, (1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[beta](X), [X])*Physics:-d_[nu](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[beta](X), [X])*Physics:-d_[mu](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](Physics:-d_[beta](l[mu](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[beta](l[mu](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[mu](X)*Physics:-d_[alpha](Physics:-d_[beta](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)*Physics:-d_[alpha](Physics:-d_[nu](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_[alpha](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](Physics:-d_[nu](l[beta](X), [X]), [X])*l[mu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](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[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*l[mu](X)+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~beta`](X)*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[mu](X)*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*l[mu](X)*Physics:-d_[alpha](Physics:-d_[beta](l[nu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~beta`](X)*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*l[nu](X)*Physics:-d_[beta](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[beta](l[mu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*l[nu](X)*Physics:-d_[alpha](Physics:-d_[beta](l[mu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*Physics:-d_[mu](l[beta](X), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](Physics:-d_[mu](l[beta](X), [X]), [X])*l[nu](X)-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*Physics:-d_[alpha](l[`~beta`](X), [X])*Physics:-d_[nu](l[beta](X), [X])*l[mu](X))

(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[beta](l[mu](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[beta](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*Physics:-d_[alpha](l[mu](X), [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)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[mu](X), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[mu](X), [X])

(15)

Simplify((1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[nu](l[mu](X), [X]), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*l[beta](X)*Physics:-d_[alpha](Physics:-d_[mu](l[nu](X), [X]), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[beta](l[mu](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*eta[`~alpha`, `~beta`]*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[mu](X), [X])*Physics:-d_[beta](l[nu](X), [X])+(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[alpha](l[nu](X), [X])*Physics:-d_[beta](l[mu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[mu](l[beta](X), [X])*Physics:-d_[alpha](l[nu](X), [X])-(1/2)*l[`~mu`](X)*l[`~nu`](X)*l[`~alpha`](X)*l[`~beta`](X)*Physics:-d_[nu](l[beta](X), [X])*Physics:-d_[alpha](l[mu](X), [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)*Physics:-d_[nu](l[`~alpha`](X), [X])*Physics:-d_[alpha](l[mu](X), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[mu](l[nu](X), [X])+(1/2)*Physics:-d_[alpha](l[`~alpha`](X), [X])*l[`~mu`](X)*l[`~nu`](X)*Physics:-d_[nu](l[mu](X), [X]))

l[`~lambda`](X)*Physics:-d_[beta](Physics:-d_[lambda](l[mu](X), [X]), [X])*l[alpha](X)*l[`~mu`](X)*eta[`~alpha`, `~beta`]-eta[`~beta`, `~kappa`]*Physics:-d_[beta](l[lambda](X), [X])*Physics:-d_[kappa](l[nu](X), [X])*l[`~lambda`](X)*l[`~nu`](X)+Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[kappa](l[nu](X), [X])*l[`~kappa`](X)*l[`~nu`](X)+Physics:-d_[kappa](l[nu](X), [X])*Physics:-d_[mu](l[`~kappa`](X), [X])*l[`~mu`](X)*l[`~nu`](X)

(16)

"SubstituteTensor({l[~mu](X)*l[mu](X)=0,eta[~mu,~nu]*l[nu](X)=l[~mu](X),eta[~mu,~nu]*d_[gamma](l[nu](X))=d_[gamma](l[~mu](X))},l[~lambda](X)*Physics:-d_[beta](Physics:-d_[lambda](l[mu](X),[X]),[X])*l[alpha](X)*l[~mu](X)*eta[~alpha,~beta]-eta[~beta,~kappa]*Physics:-d_[beta](l[lambda](X),[X])*Physics:-d_[kappa](l[nu](X),[X])*l[~lambda](X)*l[~nu](X)+Physics:-d_[alpha](l[~alpha](X),[X])*Physics:-d_[kappa](l[nu](X),[X])*l[~kappa](X)*l[~nu](X)+Physics:-d_[kappa](l[nu](X),[X])*Physics:-d_[mu](l[~kappa](X),[X])*l[~mu](X)*l[~nu](X))"

l[`~lambda`](X)*Physics:-d_[beta](Physics:-d_[lambda](l[mu](X), [X]), [X])*l[alpha](X)*l[`~mu`](X)*eta[`~alpha`, `~beta`]-eta[`~beta`, `~kappa`]*Physics:-d_[beta](l[lambda](X), [X])*Physics:-d_[kappa](l[nu](X), [X])*l[`~lambda`](X)*l[`~nu`](X)+Physics:-d_[alpha](l[`~alpha`](X), [X])*Physics:-d_[kappa](l[nu](X), [X])*l[`~kappa`](X)*l[`~nu`](X)+Physics:-d_[kappa](l[nu](X), [X])*Physics:-d_[mu](l[`~kappa`](X), [X])*l[`~mu`](X)*l[`~nu`](X)

(17)

``

The first term should change eta[~alpha,~beta]*l[alpha] -> l[~beta]. I made eta symmetric so the order should not matter. I notice that the command seems to work when the substitution is at the beginning of the term.  Do I need to use the new RepositionRepeatedIndicesAsIn command?

 

 

NULL

 

Download Maple_Question_7.7.14.mw

 

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

After using Simplify the indices are are arranged in the tensor.  I am using the April 14th update from the Physics R&D page.

 


restart

with(Physics):

Setup(mathematicalnotation = true, coordinatesystems = X)

[coordinatesystems = {X}, mathematicalnotation = true]

(1)

Define(l[mu], eta[mu, nu] = -rhs(g_[Minkowski]))

{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)

declare(l(X))

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

(3)

InitialMetric := g_[mu, nu] = eta[mu, nu]+Physics:-`*`(l[mu](X), l[nu](X)); 1; Define(G[mu, nu] = rhs(InitialMetric))

{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)}

(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)

NULL

We first define the Christoffel symbol in terms of the metric,   `g__μ,ν`.

``

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

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

(6)

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

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

(7)

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

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

(8)

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

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

(9)

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

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

(10)

NULL

NULL

Now we can substitute into the null condition for the Ricci tensor, `R__μν`*`#mi("l")`^mu*l^nu = 0.

convert(Physics:-`*`(Physics:-`*`(Ricci[mu, nu], l[`~mu`](X)), l[`~nu`](X)), Christoffel)

(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])*l[`~mu`](X)*l[`~nu`](X)

(11)

NULL

SubstituteTensorIndices(alpha = rho, (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])*l[`~mu`](X)*l[`~nu`](X))

(Physics:-d_[rho](Physics:-Christoffel[`~rho`, mu, nu], [X])-Physics:-d_[nu](Physics:-Christoffel[`~rho`, mu, rho], [X])+Physics:-Christoffel[`~beta`, mu, nu]*Physics:-Christoffel[`~rho`, beta, rho]-Physics:-Christoffel[`~beta`, mu, rho]*Physics:-Christoffel[`~rho`, beta, nu])*l[`~mu`](X)*l[`~nu`](X)

(12)

  Do the first term

 

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

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

(13)

NULL

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

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

(14)

 

 

Do same thing with the first term but use the Simplify command

 

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

Physics:-d_[rho](Physics:-Christoffel[`~rho`, mu, nu], [X])*l[`~mu`](X)*l[`~nu`](X) = -Physics:-d_[alpha2](l[`~alpha3`](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha5`](X)*l[`~rho`](X)*l[rho](X)+Physics:-d_[alpha4](l[`~alpha5`](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[alpha2](X)*l[`~alpha3`](X)*l[`~alpha4`](X)-Physics:-d_[alpha](l[alpha3](X), [X])*eta[`~alpha`, `~alpha1`]*Physics:-d_[alpha1](l[alpha2](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+eta[`~alpha`, `~alpha5`]*Physics:-d_[alpha2](l[alpha](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)-eta[`~alpha5`, `~alpha3`]*Physics:-d_[alpha3](Physics:-d_[alpha5](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[alpha2](X)*l[`~alpha6`](X)+eta[`~alpha6`, `~alpha5`]*Physics:-d_[alpha3](Physics:-d_[alpha5](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[alpha2](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](l[alpha3](X), [X])*Physics:-d_[rho](l[`~rho`](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](Physics:-d_[alpha3](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)*l[`~alpha6`](X)

(15)

SubstituteTensor(Physics:-`*`(l[`~nu`](X), l[nu](X)) = 0, Physics:-d_[rho](Physics:-Christoffel[`~rho`, mu, nu], [X])*l[`~mu`](X)*l[`~nu`](X) = -Physics:-d_[alpha2](l[`~alpha3`](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha5`](X)*l[`~rho`](X)*l[rho](X)+Physics:-d_[alpha4](l[`~alpha5`](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[alpha2](X)*l[`~alpha3`](X)*l[`~alpha4`](X)-Physics:-d_[alpha](l[alpha3](X), [X])*eta[`~alpha`, `~alpha1`]*Physics:-d_[alpha1](l[alpha2](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+eta[`~alpha`, `~alpha5`]*Physics:-d_[alpha2](l[alpha](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)-eta[`~alpha5`, `~alpha3`]*Physics:-d_[alpha3](Physics:-d_[alpha5](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[alpha2](X)*l[`~alpha6`](X)+eta[`~alpha6`, `~alpha5`]*Physics:-d_[alpha3](Physics:-d_[alpha5](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[alpha2](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](l[alpha3](X), [X])*Physics:-d_[rho](l[`~rho`](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](Physics:-d_[alpha3](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)*l[`~alpha6`](X))

Physics:-d_[rho](Physics:-Christoffel[`~rho`, mu, nu], [X])*l[`~mu`](X)*l[`~nu`](X) = -Physics:-d_[alpha](l[alpha3](X), [X])*eta[`~alpha`, `~alpha1`]*Physics:-d_[alpha1](l[alpha2](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+eta[`~alpha`, `~alpha5`]*Physics:-d_[alpha2](l[alpha](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](l[alpha3](X), [X])*Physics:-d_[rho](l[`~rho`](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](Physics:-d_[alpha3](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)*l[`~alpha6`](X)

(16)

 

Simplify command does make the algebra easier, but the indices are not the same. Now, equation 16 should correspond to equation 14, but there is no combination of alphas that is consistent.  The variables alpha1 and alpha5 must be rho. One term is always wrong when I try to change the other indices.

alpha2 and alpha3 must be either mu or nu based on the first term.  But alpha6 should also be either mu or nu based on the last term, however that will make alpha2 and alpha3 either (nu and rho) or (mu and rho).  Neither combination makes all of the terms consistent with (14).  Very frustrating.

 

SubstituteTensorIndices({alpha1 = rho, alpha5 = rho}, Physics:-d_[rho](Physics:-Christoffel[`~rho`, mu, nu], [X])*l[`~mu`](X)*l[`~nu`](X) = -Physics:-d_[alpha](l[alpha3](X), [X])*eta[`~alpha`, `~alpha1`]*Physics:-d_[alpha1](l[alpha2](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+eta[`~alpha`, `~alpha5`]*Physics:-d_[alpha2](l[alpha](X), [X])*Physics:-d_[alpha5](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](l[alpha3](X), [X])*Physics:-d_[rho](l[`~rho`](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](Physics:-d_[alpha3](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)*l[`~alpha6`](X))

Physics:-d_[rho](Physics:-Christoffel[`~rho`, mu, nu], [X])*l[`~mu`](X)*l[`~nu`](X) = -Physics:-d_[alpha](l[alpha3](X), [X])*eta[`~alpha`, `~rho`]*Physics:-d_[rho](l[alpha2](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+eta[`~alpha`, `~rho`]*Physics:-d_[alpha2](l[alpha](X), [X])*Physics:-d_[rho](l[alpha3](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](l[alpha3](X), [X])*Physics:-d_[rho](l[`~rho`](X), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)+Physics:-d_[alpha2](Physics:-d_[alpha3](l[alpha6](X), [X]), [X])*l[`~alpha2`](X)*l[`~alpha3`](X)*l[`~alpha6`](X)

(17)

``

 

``

``

``

``

``


Download Vacuum_Solutions_(Kerr-Schild)_3.mw

1 2 3 4 5 Page 4 of 5