Thank you very much for the reply; it works perfectly. One small question. In my example above, I had a separate expression for the tensor u. Let say I have AB = MakeRule[{w[-a], epsilon[met][-a, -b, -c, -d] u[b] CD[c][u[d]]},
MetricOn -> All], so w[-a]/.AB gives the result I wish. If I also had an expression for u, say AA=MakeRule[{u[-a],PD[-a]x},MetricOn->All], how would I be able to substitute that expression into my final tensor. In other words, is it possible to make nested substitutions for the tensors?