Try this:
TensorFunction[R_, i__] := Signature[{i}]*TensorFunction[R, Sequence @@ Sort[{i}]] /; !OrderedQ[{i}]
Rolf
This archive was generated by hypermail 2b29 : 02/07/12-12:00:01 PM Z CET