Name: Rolf Mertig (email_not_shown)
Date: 03/15/10-10:18:23 PM Z

Try this:

TensorFunction[R_, i__] :=
  Signature[{i}]*TensorFunction[R, Sequence @@ Sort[{i}]] /;
    !OrderedQ[{i}]

Rolf

This archive was generated by hypermail 2b29 : 09/04/20-12:55:05 AM Z CEST