DefTensor[t[a, b, c, d], M4, {Antisymmetric[{a, b}], Antisymmetric[{c, d}]}]
t /: PD[_][t[___ _]] := 0
PD[a][t[b, c, d, e]]
In[]:= PD[_][t[___ _]] // InputForm
Out[]//InputForm= PD[_][t[_*___]]
PD[_][t[___]] ^:= 0
PD[a][t[]]
PD[a][t[b]]
PD[a][t[b, c, d, e, f]]
--
You received this message because you are subscribed to the Google Groups "xAct Tensor Computer Algebra" group.
To unsubscribe from this group and stop receiving emails from it, send an email to xact+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
DefTensor[t[a, b, c, d], M4, {Antisymmetric[{a, b}], Antisymmetric[{c, d}]}]
AutomaticRules[t, MakeRule[{t[a, b, c, d], t[c, d, a, b]}]];
Hi!
There is a predefined group for this called RiemannSymmetric.
DefTensor[T[a, b, c, d], M4, RiemannSymmetric[{a, b, c, d}]]
--
You received this message because you are subscribed to the Google Groups "xAct Tensor Computer Algebra" group.
To unsubscribe from this group and stop receiving emails from it, send an email to xact+uns...@googlegroups.com.